[Koha-cvs] koha/holidays exceptionHolidays.pl holidays.pl ... [dev_week]
Mason James
szrj1m at yahoo.com
Mon Apr 16 09:23:48 CEST 2007
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Mason James <sushi> 07/04/16 07:23:48
Removed files:
holidays : exceptionHolidays.pl holidays.pl newHolidays.pl
Log message:
moving files to correct dir 'tools', as rel3
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/holidays/exceptionHolidays.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.2&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/holidays/holidays.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.2&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/holidays/newHolidays.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.2&r2=0
Patches:
Index: exceptionHolidays.pl
===================================================================
RCS file: exceptionHolidays.pl
diff -N exceptionHolidays.pl
--- exceptionHolidays.pl 25 Jan 2007 02:32:01 -0000 1.1.2.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,46 +0,0 @@
-#!/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::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::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/holidays/holidays.pl?branch=$branchcode");
Index: holidays.pl
===================================================================
RCS file: holidays.pl
diff -N holidays.pl
--- holidays.pl 23 Jan 2007 09:49:46 -0000 1.1.2.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,103 +0,0 @@
-#!/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::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 => \@listValues,
- -labels => \%list,
- -size => 1,
- -default => [$branch],
- -multiple => 0,
- -id => "branch",
- -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 => "parameters/holidays/holidays.rel3.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;
Index: newHolidays.pl
===================================================================
RCS file: newHolidays.pl
diff -N newHolidays.pl
--- newHolidays.pl 25 Jan 2007 02:32:01 -0000 1.1.2.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,51 +0,0 @@
-#!/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::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::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/holidays/holidays.pl?branch=$branchcode");
More information about the Koha-cvs
mailing list