View | Details | Raw Unified | Return to bug 25898
Collapse All | Expand All

(-)a/admin/background_jobs.pl (-1 / +1 lines)
Lines 27-33 use C4::Output; Link Here
27 
use Koha::BackgroundJobs;
 27 
use Koha::BackgroundJobs;
28 
use Koha::Virtualshelves;
 28 
use Koha::Virtualshelves;
29 

          29
          

        

          
            

              30
              
my $input             = new CGI;


              30
              
my $input             = CGI->new;

            

        

          31
          
my $op                = $input->param('op') || 'list';

          31
          
my $op                = $input->param('op') || 'list';

        

        

          32
          
my @messages;

          32
          
my @messages;

        

        

          33
          

          33
          

        



(-)a/course_reserves/batch_rm_items.pl
      (-1 / +1 lines)




  

    
      
            Lines 28-34
          use C4::CourseReserves qw(GetItemCourseReservesInfo DelCourseReserve GetCourseIt
      
      
        Link Here
      
    
  

        

          28
          

          28
          

        

        

          29
          
use Koha::Items;

          29
          
use Koha::Items;

        

        

          30
          

          30
          

        

          
            

              31
              
my $cgi = new CGI;


              31
              
my $cgi = CGI->new;

            

        

          32
          

          32
          

        

        

          33
          
my $action    = $cgi->param('action')    || q{};

          33
          
my $action    = $cgi->param('action')    || q{};

        

        

          34
          
my $barcodes  = $cgi->param('barcodes')  || q{};

          34
          
my $barcodes  = $cgi->param('barcodes')  || q{};

        



(-)a/debian/list-deps
      (-1 / +1 lines)




  

    
      
            Lines 45-51
          my %ignore = (
      
      
        Link Here
      
    
  

        

          45
          

          45
          

        

        

          46
          
my $prefix = "^/usr/((lib|share)/perl5|(lib|share)/perl/[0-9.]+|(lib|share)/.*-linux-gnu.*/perl/[0-9.]+|(lib|share)/.*-linux-gnu.*/perl5/[0-9.]+)";

          46
          
my $prefix = "^/usr/((lib|share)/perl5|(lib|share)/perl/[0-9.]+|(lib|share)/.*-linux-gnu.*/perl/[0-9.]+|(lib|share)/.*-linux-gnu.*/perl5/[0-9.]+)";

        

        

          47
          

          47
          

        

          
            

              48
              
my $pm   = new Parallel::ForkManager( Sys::CPU::cpu_count() );


              48
              
my $pm   = Parallel::ForkManager( Sys::CPU::cpu_count() )->new;

            

        

          49
          

          49
          

        

        

          50
          
my $modules = C4::Installer::PerlModules->new();

          50
          
my $modules = C4::Installer::PerlModules->new();

        

        

          51
          
my $prereqs = $modules->prereqs;

          51
          
my $prereqs = $modules->prereqs;

        



(-)a/t/db_dependent/Record/marcrecord2csv.t
      (-2 / +1 lines)




  

    
      
            Lines 134-140
          subtest 'Test for subfields 0' => sub {
      
      
        Link Here
      
    
  

        

          134
          

          134
          

        

        

          135
          
    # We change the barcode of the second item record to prevent an error "duplicate entry"

          135
          
    # We change the barcode of the second item record to prevent an error "duplicate entry"

        

        

          136
          
    my $field     = $record->field('952');

          136
          
    my $field     = $record->field('952');

        

          
            

              137
              
    my $new_field = new MARC::Field(


              137
              
    my $new_field = MARC::Field->new(

            

        

          138
          
        '952', ' ', ' ',

          138
          
        '952', ' ', ' ',

        

        

          139
          
        0 => '1',

          139
          
        0 => '1',

        

        

          140
          
        p => '3010023918',

          140
          
        p => '3010023918',

        

            

              141
              
- 

              
              
            






  

  Return to bug 25898