2373f47a76
Contrib from Tümer Garip (from Turkey) : * holiday : in /tools/ the holiday.pl script let you define holidays (days where the library is closed), branch by branch. You can define 3 types of holidays : - single day : only this day is closed - repet weekly (like "sunday") : the day is holiday every week - repet yearly (like "July, 4") : this day is closed every year. You can also put exception : - sunday is holiday, but "2006 March, 5th" the library will be open The holidays are used for return date calculation : the return date is set to the next date where the library is open. A systempreference (useDaysMode) set ON (Calendar) or OFF (Normal) the calendar calculation.
38 lines
1.1 KiB
Perl
Executable file
38 lines
1.1 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use CGI;
|
|
|
|
use C4::Auth;
|
|
use C4::Output;
|
|
use C4::Interface::CGI::Output;
|
|
use C4::Database;
|
|
use HTML::Template;
|
|
use C4::Calendar;
|
|
|
|
my $input = new CGI;
|
|
my $dbh = C4::Context->dbh();
|
|
|
|
my $branchcode = $input->param('showBranchName');
|
|
my $weekday = $input->param('showWeekday');
|
|
my $day = $input->param('showDay');
|
|
my $month = $input->param('showMonth');
|
|
my $year = $input->param('showYear');
|
|
my $title = $input->param('showTitle');
|
|
my $description = $input->param('showDescription');
|
|
|
|
my $calendar = C4::Calendar->new(branchcode => $branchcode);
|
|
|
|
if ($input->param('showOperation') eq 'exception') {
|
|
$calendar->insert_exception_holiday(day => $day,
|
|
month => $month,
|
|
year => $year,
|
|
title => $title,
|
|
description => $description);
|
|
} elsif ($input->param('showOperation') eq 'delete') {
|
|
$calendar->delete_holiday(weekday => $weekday,
|
|
day => $day,
|
|
month => $month,
|
|
year => $year);
|
|
}
|
|
print $input->redirect("/cgi-bin/koha/tools/holidays.pl?branch=$branchcode");
|