X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;ds=inline;f=tools%2Fholidays.pl;h=d5ace2764795bf5aa905b4af93779e8b7db67422;hb=07e30a78d306fbd395dbe510fb867ba31540388b;hp=c2c03a36ed451d38ec067ed91a736688dc033d94;hpb=04b2e6112f78b55ac542081ae87a41503c1b9b99;p=koha.git diff --git a/tools/holidays.pl b/tools/holidays.pl index c2c03a36ed..d5ace27647 100755 --- a/tools/holidays.pl +++ b/tools/holidays.pl @@ -1,100 +1,157 @@ #!/usr/bin/perl +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# Koha is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + +#####Sets holiday periods for each branch. Datedues will be extended if branch is closed -TG use strict; +use warnings; + use CGI; use C4::Auth; +use C4::Output; -use C4::Interface::CGI::Output; - -use C4::Calendar::Calendar; +use C4::Branch; # GetBranches +use C4::Calendar; my $input = new CGI; -my $branch = $input->param('branch'); -$branch=C4::Context->preference('defaultBranch') unless $branch; + my $dbh = C4::Context->dbh(); +# 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 => {tools => 'edit_calendar'}, + debug => 1, + }); +# keydate - date passed to calendar.js. calendar.js does not process dashes within a date. +my $keydate; +# calendardate - date passed in url for human readability (syspref) +my $calendardate; +my $today = C4::Dates->new(); +my $calendarinput = C4::Dates->new($input->param('calendardate')) || $today; +# if the url has an invalid date default to 'now.' +unless($calendardate = $calendarinput->output('syspref')) { + $calendardate = $today->output('syspref'); +} +unless($keydate = $calendarinput->output('iso')) { + $keydate = $today->output('iso'); +} +$keydate =~ s/-/\//g; + +my $branch= $input->param('branch') || C4::Context->userenv->{'branch'}; # 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 $onlymine=(C4::Context->preference('IndependantBranches') && + C4::Context->userenv && + C4::Context->userenv->{flags} % 2 !=1 && + C4::Context->userenv->{branch}?1:0); +if ( $onlymine ) { + $branch = C4::Context->userenv->{'branch'}; } -my @listValues = keys(%list); -if (!defined($branch)) { - $branch =$listValues[4]; +my $branchname = GetBranchName($branch); +my $branches = GetBranches($onlymine); +my @branchloop; +for my $thisbranch ( + sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } + keys %{$branches} ) { + push @branchloop, + { value => $thisbranch, + selected => $thisbranch eq $branch, + branchname => $branches->{$thisbranch}->{'branchname'}, + }; } -my $branchesList = CGI::scrolling_list(-name => 'branch', -id=>'branch', - -values => \@listValues, - -labels => \%list, - -size => 1, - -default => [$branch], - -multiple => 0, - -onChange => "changeBranch()"); -$branches->finish; +# 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 -my $calendar = C4::Calendar::Calendar->new(branchcode => $branch); + +my $calendar = C4::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; +# warn "WEEK DAY : $weekday"; + 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; + # Determine date format on month and day. + my $day_monthdate; + if (C4::Context->preference("dateformat") eq "metric") { + $day_monthdate = "$day_month_holidays->{$monthDay}{day}/$day_month_holidays->{$monthDay}{month}"; + } elsif (C4::Context->preference("dateformat") eq "us") { + $day_monthdate = "$day_month_holidays->{$monthDay}{month}/$day_month_holidays->{$monthDay}{day}"; + } else { + $day_monthdate = "$day_month_holidays->{$monthDay}{month}-$day_month_holidays->{$monthDay}{day}"; + } + my %day_month; + %day_month = (KEY => $monthDay, + DATE => $day_monthdate, + 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 $exceptiondate = C4::Dates->new($exception_holidays->{$yearMonthDay}{date}, "iso"); + my %exception_holiday; + %exception_holiday = (KEY => $yearMonthDay, + DATE => $exceptiondate->output("syspref"), + 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; + my $holidaydate = C4::Dates->new($single_holidays->{$yearMonthDay}{date}, "iso"); + my %holiday; + %holiday = (KEY => $yearMonthDay, + DATE => $holidaydate->output("syspref"), + 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); +$template->param( + WEEK_DAYS_LOOP => \@week_days, + branchloop => \@branchloop, + HOLIDAYS_LOOP => \@holidays, + EXCEPTION_HOLIDAYS_LOOP => \@exception_holidays, + DAY_MONTH_HOLIDAYS_LOOP => \@day_month_holidays, + calendardate => $calendardate, + keydate => $keydate, + branchcodes => $branchcodes, + branch => $branch, + DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(), + branchname => $branchname, + branch => $branch, +); # Shows the template with the real values replaced -output_html_with_http_headers $input, $cookie, $template->output; \ No newline at end of file +output_html_with_http_headers $input, $cookie, $template->output;