[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/tools exceptionHolidays.pl holidays.pl new... [dev_week]
From: |
Mason James |
Subject: |
[Koha-cvs] koha/tools exceptionHolidays.pl holidays.pl new... [dev_week] |
Date: |
Thu, 19 Apr 2007 01:34:33 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Mason James <sushi> 07/04/19 01:34:33
Added files:
tools : exceptionHolidays.pl holidays.pl newHolidays.pl
Log message:
mv from holidays dir to tools dir, as rel3
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/tools/exceptionHolidays.pl?cvsroot=koha&only_with_tag=dev_week&rev=1.3.4.1
http://cvs.savannah.gnu.org/viewcvs/koha/tools/holidays.pl?cvsroot=koha&only_with_tag=dev_week&rev=1.4.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/tools/newHolidays.pl?cvsroot=koha&only_with_tag=dev_week&rev=1.3.2.1
Patches:
Index: exceptionHolidays.pl
===================================================================
RCS file: exceptionHolidays.pl
diff -N exceptionHolidays.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ exceptionHolidays.pl 19 Apr 2007 01:34:33 -0000 1.3.4.1
@@ -0,0 +1,46 @@
+#!/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);
+
+$title || ($title = '');
+if ($description) {
+ $description =~ s/\r/\\r/g;
+ $description =~ s/\n/\\n/g;
+} else {
+ $description = '';
+}
+
+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");
Index: holidays.pl
===================================================================
RCS file: holidays.pl
diff -N holidays.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ holidays.pl 19 Apr 2007 01:34:33 -0000 1.4.2.1
@@ -0,0 +1,103 @@
+#!/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 $branch= $input->param('branch') ||
C4::Context->preference('defaultbranch') || 'MAIN';
+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',
+ -values => address@hidden,
+ -labels => \%list,
+ -size => 1,
+
-default => [$branch],
+ -multiple => 0,
+ -id
=> "branch",
+
-onChange => "changeBranch()");
+
+$branches->finish;
+
+# Get all the holidays
+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;
+}
+
+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 => address@hidden);
+$template->param(HOLIDAYS_LOOP => address@hidden);
+$template->param(EXCEPTION_HOLIDAYS_LOOP => address@hidden);
+$template->param(DAY_MONTH_HOLIDAYS_LOOP => address@hidden);
+$template->param(branch => $branch);
+
+# Shows the template with the real values replaced
+output_html_with_http_headers $input, $cookie, $template->output;
Index: newHolidays.pl
===================================================================
RCS file: newHolidays.pl
diff -N newHolidays.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ newHolidays.pl 19 Apr 2007 01:34:33 -0000 1.3.2.1
@@ -0,0 +1,51 @@
+#!/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('newBranchName');
+my $weekday = $input->param('newWeekday');
+my $day = $input->param('newDay');
+my $month = $input->param('newMonth');
+my $year = $input->param('newYear');
+my $title = $input->param('newTitle');
+my $description = $input->param('newDescription');
+
+my $calendar = C4:Calendar->new(branchcode => $branchcode);
+
+$title || ($title = '');
+if ($description) {
+ $description =~ s/\r/\\r/g;
+ $description =~ s/\n/\\n/g;
+} else {
+ $description = '';
+}
+
+if ($input->param('newOperation') eq 'weekday') {
+ $calendar->insert_week_day_holiday(weekday => $weekday,
+ title =>
$title,
+ description
=> $description);
+} elsif ($input->param('newOperation') eq 'repeatable') {
+ $calendar->insert_day_month_holiday(day => $day,
+ month => $month,
+ title =>
$title,
+ description
=> $description);
+} elsif ($input->param('newOperation') eq 'holiday') {
+ $calendar->insert_single_holiday(day => $day,
+ month => $month,
+ year => $year,
+ title => $title,
+ description =>
$description);
+
+}
+print $input->redirect("/cgi-bin/koha/tools/holidays.pl?branch=$branchcode");
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/tools exceptionHolidays.pl holidays.pl new... [dev_week],
Mason James <=