| 
      
            Lines 2-18
          use Modern::Perl;
      
      
        Link Here
      
     | 
  
        
          | 2 | 
           | 
          2 | 
           | 
        
        
          | 3 | 
          return { | 
          3 | 
          return { | 
        
        
          | 4 | 
              bug_number => "33105",  | 
          4 | 
              bug_number => "33105",  | 
        
          
            
              | 5 | 
                  description => "A vendor issues",  | 
              5 | 
                  description => "Add vendor issues",  | 
            
        
          | 6 | 
              up => sub { | 
          6 | 
              up => sub { | 
        
        
          | 7 | 
                  my ($args) = @_;  | 
          7 | 
                  my ($args) = @_;  | 
        
        
          | 8 | 
                  my ($dbh, $out) = @$args{qw(dbh out)}; | 
          8 | 
                  my ($dbh, $out) = @$args{qw(dbh out)}; | 
        
            
              | 9 | 
                      # Do you stuffs here  | 
               | 
               | 
            
        
          | 10 | 
                  unless (TableExists('aqbookseller_issues')) { | 
          9 | 
                  unless (TableExists('aqbookseller_issues')) { | 
        
        
          | 11 | 
                      $dbh->do(q{ | 
          10 | 
                      $dbh->do(q{ | 
        
        
          | 12 | 
                          CREATE TABLE `aqbookseller_issues` (  | 
          11 | 
                          CREATE TABLE `aqbookseller_issues` (  | 
        
        
          | 13 | 
                            `issue_id` int(11) NOT NULL AUTO_INCREMENT COMMENT 'primary key and unique identifier assigned by Koha',  | 
          12 | 
                            `issue_id` int(11) NOT NULL AUTO_INCREMENT COMMENT 'primary key and unique identifier assigned by Koha',  | 
        
        
          | 14 | 
                            `vendor_id` int(11) NOT NULL COMMENT 'link to the vendor',  | 
          13 | 
                            `vendor_id` int(11) NOT NULL COMMENT 'link to the vendor',  | 
        
          
            
              | 15 | 
                                `type` varchar(80) DEFAULT NULL COMMENT "type of the issue, authorised value VENDOR_ISSUE_TYPE",  | 
              14 | 
                                `type` varchar(80) DEFAULT NULL COMMENT 'type of the issue, authorised value VENDOR_ISSUE_TYPE',  | 
            
        
          | 16 | 
                            `started_on` date DEFAULT NULL COMMENT 'start of the issue',  | 
          15 | 
                            `started_on` date DEFAULT NULL COMMENT 'start of the issue',  | 
        
        
          | 17 | 
                            `ended_on` date DEFAULT NULL COMMENT 'end of the issue',  | 
          16 | 
                            `ended_on` date DEFAULT NULL COMMENT 'end of the issue',  | 
        
        
          | 18 | 
                            `notes` longtext DEFAULT NULL COMMENT 'notes',  | 
          17 | 
                            `notes` longtext DEFAULT NULL COMMENT 'notes',  | 
        
            
              | 19 | 
              -   | 
               | 
               |