[Koha-cvs] koha/tools holidays.pl [rel_2_2]

[Chris Cormack]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_2_2
Changes by:	Chris Cormack <rangi>	07/02/13 09:39:36

Added files:
	tools          : holidays.pl 

Log message:
	Script to manage holidays

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/tools/holidays.pl?cvsroot=koha&only_with_tag=rel_2_2&rev=1.3.2.1

Patches:
Index: holidays.pl
===================================================================
RCS file: holidays.pl
diff -N holidays.pl
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ holidays.pl	13 Feb 2007 09:39:36 -0000	1.3.2.1
@@ -0,0 +1,100 @@
+#!/usr/bin/perl
+
+use strict;
+use CGI;
+
+use C4::Auth;
+
+use C4::Interface::CGI::Output;
+
+use C4::Calendar::Calendar;
+
+my $input = new CGI;
+my $branch = $input->param('branch');
+$branch=C4::Context->preference('defaultBranch') unless $branch;
+my $dbh = C4::Context->dbh();
+
+# Set all the branches.
+my $branches = $dbh->prepare("select branchcode, branchname from branches");
+$branches->execute;
+# It creates a list of branches
+my %list;
+while (my ($branchcode, $branchname) = $branches->fetchrow) {
+	$list{$branchcode} = $branchname;
+}
+my @listValues = keys(%list);
+if (!defined($branch)) {
+	$branch =$listValues[4];
+}
+my $branchesList = CGI::scrolling_list(-name => 'branch', -id=>'branch',
+                           		       -values => \@listValues,
+			                           -labels => \%list,
+			                           -size => 1,
+					 -default => [$branch],
+			                           -multiple => 0,
+					 -onChange => "changeBranch()");
+
+$branches->finish;
+
+# Get all the holidays
+my $calendar = C4::Calendar::Calendar->new(branchcode => $branch);
+my $week_days_holidays = $calendar->get_week_days_holidays();
+my @week_days;
+foreach my $weekday (keys %$week_days_holidays) {
+	my %week_day;
+	%week_day = (KEY => $weekday,
+		         TITLE => $week_days_holidays->{$weekday}{title},
+		         DESCRIPTION => $week_days_holidays->{$weekday}{description});
+	push @week_days, \%week_day;
+}
+
+my $day_month_holidays = $calendar->get_day_month_holidays();
+my @day_month_holidays;
+foreach my $monthDay (keys %$day_month_holidays) {
+	my %day_month;
+	%day_month = (KEY => $monthDay,
+		          TITLE => $day_month_holidays->{$monthDay}{title},
+		          DESCRIPTION => $day_month_holidays->{$monthDay}{description});
+	push @day_month_holidays, \%day_month;
+}
+
+my $exception_holidays = $calendar->get_exception_holidays();
+my @exception_holidays;
+foreach my $yearMonthDay (keys %$exception_holidays) {
+	my %exception_holiday;
+	%exception_holiday = (KEY => $yearMonthDay,
+		                  TITLE => $exception_holidays->{$yearMonthDay}{title},
+		                  DESCRIPTION => $exception_holidays->{$yearMonthDay}{description});
+	push @exception_holidays, \%exception_holiday;
+}
+
+my $single_holidays = $calendar->get_single_holidays();
+my @holidays;
+foreach my $yearMonthDay (keys %$single_holidays) {
+	my %holiday;
+	%holiday = (KEY => $yearMonthDay,
+		        TITLE => $single_holidays->{$yearMonthDay}{title},
+		        DESCRIPTION => $single_holidays->{$yearMonthDay}{description});
+	push @holidays, \%holiday;
+}
+
+# Get the template to use
+my ($template, $loggedinuser, $cookie)
+    = get_template_and_user({template_name => "tools/holidays.tmpl",
+			                 type => "intranet",
+			                 query => $input,
+			                 authnotrequired => 0,
+			                 flagsrequired => {parameters => 1},
+					         debug => 1,
+			               });
+
+# Replace the template values with the real ones
+$template->param(BRANCHES => $branchesList);
+$template->param(WEEK_DAYS_LOOP => \@week_days);
+$template->param(HOLIDAYS_LOOP => \@holidays);
+$template->param(EXCEPTION_HOLIDAYS_LOOP => \@exception_holidays);
+$template->param(DAY_MONTH_HOLIDAYS_LOOP => \@day_month_holidays);
+$template->param(branch => $branch);
+
+# Shows the template with the real values replaced
+output_html_with_http_headers $input, $cookie, $template->output;