Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 22566: Accept 'all' in the branch params

Browse source 
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Martin Renvoize 2019-06-18 12:57:07 +01:00
parent 4f3413f0d2
commit 2b392a6db2
Signed by: martin.renvoize
GPG key ID: 422B469130441A0F
1 changed files with 16 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
misc/cronjobs/stockrotation.pl
View file

@ -126,20 +126,25 @@ my $ok = GetOptions(
'admin-email|a=s' => \$admin_email,
'branchcode|b=s' => sub {
my ( $opt_name, $opt_value ) = @_;
my $branches = Koha::Libraries->search( {},
{ order_by => { -asc => 'branchname' } } );
my $brnch = $branches->find($opt_value);
if ($brnch) {
$branch = $brnch;
return $brnch;
if ( $opt_value eq 'all' ) {
$branch = 0;
}
else {
printf("Option $opt_name should be one of (name -> code):\n");
while ( my $candidate = $branches->next ) {
printf( " %-40s -> %s\n",
$candidate->branchname, $candidate->branchcode );
my $branches = Koha::Libraries->search( {},
{ order_by => { -asc => 'branchname' } } );
my $brnch = $branches->find($opt_value);
if ($brnch) {
$branch = $brnch;
return $brnch;
}
else {
printf("Option $opt_name should be one of (name -> code):\n");
while ( my $candidate = $branches->next ) {
printf( " %-40s -> %s\n",
$candidate->branchname, $candidate->branchcode );
}
exit 1;
}
exit 1;
}
},
'execute|x' => \$execute,