| Lines 1-13
          
      
      
        Link Here | 
          
            
              | 1 | $DBversion = 'XXX'; # will be replaced by the RM | 1 | $DBversion = 'XXX';    # will be replaced by the RM | 
            
              | 2 | if( CheckVersion( $DBversion ) ) { | 2 | if ( CheckVersion($DBversion) ) { | 
        
          | 3 |  | 3 |  | 
          
            
              | 4 |     if( column_exists( 'items', 'paidfor' ) ) { | 4 |     if ( column_exists( 'items', 'paidfor' ) ) { | 
            
              | 5 |        $dbh->do(q|ALTER TABLE items DROP COLUMN paidfor|); | 5 |         my ($count) = $dbh->selectrow_array( | 
            
              |  |  | 6 |             qq| | 
            
              | 7 |                 SELECT COUNT(*) | 
            
              | 8 |                 FROM items | 
            
              | 9 |                 WHERE paidfor IS NOT NULL AND paidfor <> "" | 
            
              | 10 |             | | 
            
              | 11 |         ); | 
            
              | 12 |         if ($count) { | 
            
              | 13 |             warn "Warning - Cannot remove column items.paidfor. At least one value exists"; | 
            
              | 14 |         } | 
            
              | 15 |         else { | 
            
              | 16 |             $dbh->do(q|ALTER TABLE items DROP COLUMN paidfor|); | 
            
              | 17 |             $dbh->do(q| | 
            
              | 18 |                 DELETE FROM marc_subfield_structure | 
            
              | 19 |                 WHERE tagfield = '952' | 
            
              | 20 |                 AND tagsubfield = 'x' | 
            
              | 21 |                 AND kohafield = 'items.paidfor' | 
            
              | 22 |             |); | 
            
              | 23 |         } | 
        
          | 6 |     } | 24 |     } | 
        
          | 7 |  | 25 |  | 
        
          | 8 |     if ( column_exists( 'deleteditems', 'paidfor' ) ) { | 26 |     if ( column_exists( 'deleteditems', 'paidfor' ) ) { | 
          
            
              | 9 |        $dbh->do(q|ALTER TABLE deleteditems DROP COLUMN paidfor|); | 27 |         my ($count) = $dbh->selectrow_array( | 
            
              |  |  | 28 |             qq| | 
            
              | 29 |                 SELECT COUNT(*) | 
            
              | 30 |                 FROM items | 
            
              | 31 |                 WHERE paidfor IS NOT NULL AND paidfor <> "" | 
            
              | 32 |             | | 
            
              | 33 |         ); | 
            
              | 34 |         if ($count) { | 
            
              | 35 |             warn "Warning - Cannot remove column deleteditems.paidfor. At least one value exists"; | 
            
              | 36 |         } | 
            
              | 37 |         else { | 
            
              | 38 |             $dbh->do(q|ALTER TABLE deleteditems DROP COLUMN paidfor|); | 
            
              | 39 |         } | 
        
          | 10 |     } | 40 |     } | 
        
          | 11 |  | 41 |  | 
          
            
              | 12 |     NewVersion( $DBversion, 26268, "Remove items.paidfor field"); | 42 |     NewVersion( $DBversion, 26268, "Remove items.paidfor field" ); | 
        
          | 13 | } | 43 | } | 
            
              | 14 | -  |  |  |