X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=C4%2FCalendar.pm;h=dc9037b9c888de9eac45850bac2eee8b86207e6d;hb=f89639006f3401b63487c73c41ad4b61d2c8183d;hp=65ad72987da143cc5b1103448330cf05cd6d3bee;hpb=3d26a8cd9c2e3ab3aa1b991644ffa72f6a4db366;p=koha.git diff --git a/C4/Calendar.pm b/C4/Calendar.pm index 65ad72987d..dc9037b9c8 100644 --- a/C4/Calendar.pm +++ b/C4/Calendar.pm @@ -37,6 +37,10 @@ BEGIN { &insert_day_month_holiday &insert_single_holiday &insert_exception_holiday + &ModWeekdayholiday + &ModDaymonthholiday + &ModSingleholiday + &ModExceptionholiday &delete_holiday &isHoliday &addDate @@ -54,15 +58,14 @@ C4::Calendar::Calendar - Koha module dealing with holidays. =head1 DESCRIPTION -This package is used to deal with holidays. Through this package, you can set all kind of holidays for the library. +This package is used to deal with holidays. Through this package, you can set +all kind of holidays for the library. =head1 FUNCTIONS -=over 2 +=head2 new -=item new - - $calendar = C4::Calendar->new(branchcode => $branchcode); + $calendar = C4::Calendar->new(branchcode => $branchcode); Each library branch has its own Calendar. C<$branchcode> specifies which Calendar you want. @@ -104,7 +107,9 @@ sub _init { while (my $row = $repeatable->fetchrow_hashref) { my $key = $row->{month} . "/" . $row->{day}; $day_month_holidays{$key}{title} = $row->{title}; - $day_month_holidays{$key}{description} = $row->{description} + $day_month_holidays{$key}{description} = $row->{description}; + $day_month_holidays{$key}{day} = sprintf("%02d", $row->{day}); + $day_month_holidays{$key}{month} = sprintf("%02d", $row->{month}); } $self->{'day_month_holidays'} = \%day_month_holidays; @@ -117,6 +122,8 @@ sub _init { while (my ($day, $month, $year, $title, $description) = $special->fetchrow) { $exception_holidays{"$year/$month/$day"}{title} = $title; $exception_holidays{"$year/$month/$day"}{description} = $description; + $exception_holidays{"$year/$month/$day"}{date} = + sprintf("%04d-%02d-%02d", $year, $month, $day); } $self->{'exception_holidays'} = \%exception_holidays; @@ -125,14 +132,16 @@ sub _init { while (my ($day, $month, $year, $title, $description) = $special->fetchrow) { $single_holidays{"$year/$month/$day"}{title} = $title; $single_holidays{"$year/$month/$day"}{description} = $description; + $single_holidays{"$year/$month/$day"}{date} = + sprintf("%04d-%02d-%02d", $year, $month, $day); } $self->{'single_holidays'} = \%single_holidays; return $self; } -=item get_week_days_holidays +=head2 get_week_days_holidays - $week_days_holidays = $calendar->get_week_days_holidays(); + $week_days_holidays = $calendar->get_week_days_holidays(); Returns a hash reference to week days holidays. @@ -144,9 +153,9 @@ sub get_week_days_holidays { return $week_days_holidays; } -=item get_day_month_holidays - - $day_month_holidays = $calendar->get_day_month_holidays(); +=head2 get_day_month_holidays + + $day_month_holidays = $calendar->get_day_month_holidays(); Returns a hash reference to day month holidays. @@ -158,8 +167,8 @@ sub get_day_month_holidays { return $day_month_holidays; } -=item get_exception_holidays - +=head2 get_exception_holidays + $exception_holidays = $calendar->exception_holidays(); Returns a hash reference to exception holidays. This kind of days are those @@ -174,8 +183,8 @@ sub get_exception_holidays { return $exception_holidays; } -=item get_single_holidays - +=head2 get_single_holidays + $single_holidays = $calendar->get_single_holidays(); Returns a hash reference to single holidays. This kind of holidays are those which @@ -189,7 +198,7 @@ sub get_single_holidays { return $single_holidays; } -=item insert_week_day_holiday +=head2 insert_week_day_holiday insert_week_day_holiday(weekday => $weekday, title => $title, @@ -217,7 +226,7 @@ sub insert_week_day_holiday { return $self; } -=item insert_day_month_holiday +=head2 insert_day_month_holiday insert_day_month_holiday(day => $day, month => $month, @@ -248,7 +257,7 @@ sub insert_day_month_holiday { return $self; } -=item insert_single_holiday +=head2 insert_single_holiday insert_single_holiday(day => $day, month => $month, @@ -283,7 +292,7 @@ sub insert_single_holiday { return $self; } -=item insert_exception_holiday +=head2 insert_exception_holiday insert_exception_holiday(day => $day, month => $month, @@ -318,7 +327,134 @@ sub insert_exception_holiday { return $self; } -=item delete_holiday +=head2 ModWeekdayholiday + + ModWeekdayholiday(weekday =>$weekday, + title => $title, + description => $description) + +Modifies the title and description of a weekday for $self->{branchcode}. + +C<$weekday> Is the title to update for the holiday. + +C<$description> Is the description to update for the holiday. + +=cut + +sub ModWeekdayholiday { + my $self = shift @_; + my %options = @_; + + my $dbh = C4::Context->dbh(); + my $updateHoliday = $dbh->prepare("UPDATE repeatable_holidays SET title = ?, description = ? WHERE branchcode = ? AND weekday = ?"); + $updateHoliday->execute( $options{title},$options{description},$self->{branchcode},$options{weekday}); + $self->{'week_days_holidays'}->{$options{weekday}}{title} = $options{title}; + $self->{'week_days_holidays'}->{$options{weekday}}{description} = $options{description}; + return $self; +} + +=head2 ModDaymonthholiday + + ModDaymonthholiday(day => $day, + month => $month, + title => $title, + description => $description); + +Modifies the title and description for a day/month holiday for $self->{branchcode}. + +C<$day> The day of the month for the update. + +C<$month> The month to be used for the update. + +C<$title> The title to be updated for the holiday. + +C<$description> The description to be update for the holiday. + +=cut + +sub ModDaymonthholiday { + my $self = shift @_; + my %options = @_; + + my $dbh = C4::Context->dbh(); + my $updateHoliday = $dbh->prepare("UPDATE repeatable_holidays SET title = ?, description = ? WHERE month = ? AND day = ? AND branchcode = ?"); + $updateHoliday->execute( $options{title},$options{description},$options{month},$options{day},$self->{branchcode}); + $self->{'day_month_holidays'}->{"$options{month}/$options{day}"}{title} = $options{title}; + $self->{'day_month_holidays'}->{"$options{month}/$options{day}"}{description} = $options{description}; + return $self; +} + +=head2 ModSingleholiday + + ModSingleholiday(day => $day, + month => $month, + year => $year, + title => $title, + description => $description); + +Modifies the title and description for a single holiday for $self->{branchcode}. + +C<$day> Is the day of the month to make the update. + +C<$month> Is the month to make the update. + +C<$year> Is the year to make the update. + +C<$title> Is the title to update for the holiday formed by $year/$month/$day. + +C<$description> Is the description to update for the holiday formed by $year/$month/$day. + +=cut + +sub ModSingleholiday { + my $self = shift @_; + my %options = @_; + + my $dbh = C4::Context->dbh(); + my $isexception = 0; + my $updateHoliday = $dbh->prepare("UPDATE special_holidays SET title = ?, description = ? WHERE day = ? AND month = ? AND year = ? AND branchcode = ? AND isexception = ?"); + $updateHoliday->execute($options{title},$options{description},$options{day},$options{month},$options{year},$self->{branchcode},$isexception); + $self->{'single_holidays'}->{"$options{year}/$options{month}/$options{day}"}{title} = $options{title}; + $self->{'single_holidays'}->{"$options{year}/$options{month}/$options{day}"}{description} = $options{description}; + return $self; +} + +=head2 ModExceptionholiday + + ModExceptionholiday(day => $day, + month => $month, + year => $year, + title => $title, + description => $description); + +Modifies the title and description for an exception holiday for $self->{branchcode}. + +C<$day> Is the day of the month for the holiday. + +C<$month> Is the month for the holiday. + +C<$year> Is the year for the holiday. + +C<$title> Is the title to be modified for the holiday formed by $year/$month/$day. + +C<$description> Is the description to be modified for the holiday formed by $year/$month/$day. + +=cut + +sub ModExceptionholiday { + my $self = shift @_; + my %options = @_; + + my $dbh = C4::Context->dbh(); + my $isexception = 1; + my $updateHoliday = $dbh->prepare("UPDATE special_holidays SET title = ?, description = ? WHERE day = ? AND month = ? AND year = ? AND branchcode = ? AND isexception = ?"); + $updateHoliday->execute($options{title},$options{description},$options{day},$options{month},$options{year},$self->{branchcode},$isexception); + $self->{'exception_holidays'}->{"$options{year}/$options{month}/$options{day}"}{title} = $options{title}; + $self->{'exception_holidays'}->{"$options{year}/$options{month}/$options{day}"}{description} = $options{description}; + return $self; +} + +=head2 delete_holiday delete_holiday(weekday => $weekday day => $day, @@ -353,7 +489,7 @@ sub delete_holiday { my $id = $isSingleHoliday->fetchrow; $isSingleHoliday->finish; # Close the last query - my $deleteHoliday = $dbh->prepare("SELECT FROM special_holidays WHERE id = ?"); + my $deleteHoliday = $dbh->prepare("DELETE FROM special_holidays WHERE id = ?"); $deleteHoliday->execute($id); delete($self->{'single_holidays'}->{"$options{year}/$options{month}/$options{day}"}); } else { @@ -393,10 +529,9 @@ sub delete_holiday { return $self; } -=item isHoliday - - $isHoliday = isHoliday($day, $month $year); +=head2 isHoliday + $isHoliday = isHoliday($day, $month $year); C<$day> Is the day to check whether if is a holiday or not. @@ -432,7 +567,7 @@ sub isHoliday { } -=item addDate +=head2 addDate my ($day, $month, $year) = $calendar->addDate($date, $offset) @@ -469,7 +604,7 @@ sub addDate { return(C4::Dates->new( sprintf("%04d-%02d-%02d",$year,$month,$day),'iso')); } -=item daysBetween +=head2 daysBetween my $daysBetween = $calendar->daysBetween($startdate, $enddate) @@ -504,8 +639,6 @@ sub daysBetween ($$$) { __END__ -=back - =head1 AUTHOR Koha Physics Library UNLP