Bug 22566: Accept 'all' in the branch params

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

diff --git a/misc/cronjobs/stockrotation.pl b/misc/cronjobs/stockrotation.pl
index f3c6b91..3143839 100755 (executable)
--- a/misc/cronjobs/stockrotation.pl
+++ b/misc/cronjobs/stockrotation.pl
@@ -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,