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