| 
      
            Lines 1-5
          
      
      
        Link Here
      
     | 
  
        
          | 1 | 
          use Modern::Perl;  | 
          1 | 
          use Modern::Perl;  | 
        
            
              | 2 | 
              use Koha::Installer::Output qw(say_warning say_failure say_success say_info);  | 
               | 
               | 
            
        
          | 3 | 
           | 
          2 | 
           | 
        
        
          | 4 | 
          return { | 
          3 | 
          return { | 
        
        
          | 5 | 
              bug_number  => "26176",  | 
          4 | 
              bug_number  => "26176",  | 
        
  
    | 
      
            Lines 13-31
          return {
      
      
        Link Here
      
     | 
  
        
          | 13 | 
                      UPDATE IGNORE systempreferences SET variable = "StaffLoginRestrictLibraryByIP"  | 
          12 | 
                      UPDATE IGNORE systempreferences SET variable = "StaffLoginRestrictLibraryByIP"  | 
        
        
          | 14 | 
                      WHERE variable = "AutoLocation"  | 
          13 | 
                      WHERE variable = "AutoLocation"  | 
        
        
          | 15 | 
                  }  | 
          14 | 
                  }  | 
        
          
            
              | 16 | 
                          ) == 1  | 
              15 | 
                      );  | 
            
            
              | 17 | 
                          && say_success( $out, "Renamed system preference 'AutoLocation' to 'StaffLoginRestrictLibraryByIP'" );  | 
              16 | 
                      say $out "Renamed system preference 'AutoLocation' to 'StaffLoginRestrictLibraryByIP'";  | 
            
        
          | 18 | 
           | 
          17 | 
           | 
        
        
          | 19 | 
                  $dbh->do(  | 
          18 | 
                  $dbh->do(  | 
        
        
          | 20 | 
                      q{ | 
          19 | 
                      q{ | 
        
        
          | 21 | 
                      UPDATE IGNORE systempreferences SET variable = "StaffLoginLibraryBasedOnIP"  | 
          20 | 
                      UPDATE IGNORE systempreferences SET variable = "StaffLoginLibraryBasedOnIP"  | 
        
        
          | 22 | 
                      WHERE variable = "StaffLoginBranchBasedOnIP"  | 
          21 | 
                      WHERE variable = "StaffLoginBranchBasedOnIP"  | 
        
        
          | 23 | 
                  }  | 
          22 | 
                  }  | 
        
          
            
              | 24 | 
                          ) == 1  | 
              23 | 
                      );  | 
            
            
              | 25 | 
                          && say_success(  | 
              24 | 
                      say $out "Renamed system preference 'StaffLoginBranchBasedOnIP' to 'StaffLoginLibraryBasedOnIP'";  | 
            
            
              | 26 | 
                          $out,  | 
               | 
               | 
            
            
              | 27 | 
                          "Renamed system preference 'StaffLoginBranchBasedOnIP' to 'StaffLoginLibraryBasedOnIP'"  | 
            
            
              | 28 | 
                          );  | 
            
            
              | 29 | 
               | 
            
        
          | 30 | 
              },  | 
          25 | 
              },  | 
        
        
          | 31 | 
          };  | 
          26 | 
          };  |