Mongolian updates

[koha.git] / tools / holidays.pl

diff --git a/tools/holidays.pl b/tools/holidays.pl
index c92e521..5d7ab2e 100755 (executable)
--- a/tools/holidays.pl
+++ b/tools/holidays.pl
@@ -17,6 +17,8 @@
 
 #####Sets holiday periods for each branch. Datedues will be extended if branch is closed -TG
 use strict;
+use warnings;
+
 use CGI;
 
 use C4::Auth;
@@ -72,7 +74,8 @@ for my $thisbranch (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{b
             );
     push @branchloop, \%row;
 }
-
+# branches calculated - put branch codes in a single string so they can be passed in a form
+my $branchcodes = join("|", keys %$branches);
 
 # Get all the holidays
 
@@ -139,6 +142,7 @@ $template->param(WEEK_DAYS_LOOP => \@week_days,
                                DAY_MONTH_HOLIDAYS_LOOP => \@day_month_holidays,
                                calendardate => $calendardate,
                                keydate => $keydate,
+                               branchcodes => $branchcodes,
                                branch => $branch
        );