| Lines 4592-4597
          sub TransformToNum {
      
      
        Link Here | 
        
          | 4592 |     my $version = shift; | 4592 |     my $version = shift; | 
        
          | 4593 |     # remove the 3 last . to have a Perl number | 4593 |     # remove the 3 last . to have a Perl number | 
        
          | 4594 |     $version =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; | 4594 |     $version =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; | 
            
              |  |  | 4595 |     # three X's at the end indicate that you are testing patch with dbrev | 
            
              | 4596 |     # change it into 999 | 
            
              | 4597 |     # prevents error on a < comparison between strings (should be: lt) | 
            
              | 4598 |     $version =~ s/XXX$/999/; | 
        
          | 4595 |     return $version; | 4599 |     return $version; | 
        
          | 4596 | } | 4600 | } | 
        
          | 4597 |  | 4601 |  | 
  
    | Lines 4602-4608
          set the DBversion in the systempreferences
      
      
        Link Here | 
        
          | 4602 | =cut | 4606 | =cut | 
        
          | 4603 |  | 4607 |  | 
        
          | 4604 | sub SetVersion { | 4608 | sub SetVersion { | 
          
            
              | 4605 |     my $kohaversion = TransformToNum(shift); | 4609 |     return if $_[0]=~ /XXX$/; | 
            
              |  |  | 4610 |       #you are testing a patch with a db revision; do not change version | 
            
              | 4611 |     my $kohaversion = TransformToNum($_[0]); | 
        
          | 4606 |     if (C4::Context->preference('Version')) { | 4612 |     if (C4::Context->preference('Version')) { | 
        
          | 4607 |       my $finish=$dbh->prepare("UPDATE systempreferences SET value=? WHERE variable='Version'"); | 4613 |       my $finish=$dbh->prepare("UPDATE systempreferences SET value=? WHERE variable='Version'"); | 
        
          | 4608 |       $finish->execute($kohaversion); | 4614 |       $finish->execute($kohaversion); | 
            
              | 4609 | -  |  |  |