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

(-)a/misc/admin/koha-preferences (-2 / +1 lines)
Lines 296-302 print_usage() if ( $ARGV[0] =~ /^(-h|--help|-help|help)$/ ); Link Here
296 

          296
          

        

        

          297
          
print_usage( 1 ) if ( !$ARGV[0] || ref($commands{$ARGV[0]}) ne 'CODE' );

          297
          
print_usage( 1 ) if ( !$ARGV[0] || ref($commands{$ARGV[0]}) ne 'CODE' );

        

        

          298
          

          298
          

        

          
            

              299
              
$command = $commands{$ARGV[0]};


              299
              
my $command = $commands{$ARGV[0]};

            

        

          300
          
shift @ARGV;

          300
          
shift @ARGV;

        

        

          301
          
$command->(@ARGV);

          301
          
$command->(@ARGV);

        

        

          302
          

          302
          

        

            

              303
              
- 

              
              
            






  

  Return to bug 21395