Attachment #32110 for bug #11211

View | Details | Raw Unified | Return to bug 11211
Collapse All | Expand All




# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA  02111-1307 USA

use Modern::Perl;
use warnings;
use vars qw($VERSION @EXPORT);

use Carp;
use Date::Calc qw( Date_to_Days Today);

use Koha::Database;

our ( @ISA, @EXPORT );

BEGIN {
    @ISA = qw( Exporter );
    @EXPORT = qw(
        GetSingleEvents
        GetWeeklyEvents
        GetYearlyEvents
        ModSingleEvent
        ModRepeatingEvent
        DelSingleEvent
        DelRepeatingEvent
        CopyAllEvents
    );
}

use constant ISO_DATE_FORMAT => "%04d-%02d-%02d";
=head1 NAME

C4::Calendar - Koha module dealing with holidays.

=head1 SYNOPSIS

    use C4::Calendar;

=head1 DESCRIPTION

This package is used to deal with hours and holidays;
all kind of holidays for the library.

=head1 FUNCTIONS

=head2 GetSingleEvents

  $calendar = C4::Calendar->new(branchcode => $branchcode);

Each library branch has its own Calendar.  
C<$branchcode> specifies which Calendar you want.

=cut

sub new {
    my $classname = shift @_;
    my %options = @_;
    my $self = bless({}, $classname);
    foreach my $optionName (keys %options) {
        $self->{lc($optionName)} = $options{$optionName};
    }
    defined($self->{branchcode}) or croak "No branchcode argument to new.  Should be C4::Calendar->new(branchcode => \$branchcode)";
    $self->_init($self->{branchcode});
    return $self;
}

sub _init {
    my $self = shift @_;
    my $branch = shift;
    defined($branch) or die "No branchcode sent to _init";  # must test for defined here and above to allow ""
    my $dbh = C4::Context->dbh();
    my $repeatable = $dbh->prepare( 'SELECT *
                                       FROM repeatable_holidays
                                      WHERE ( branchcode = ? )
                                        AND (ISNULL(weekday) = ?)' );
    $repeatable->execute($branch,0);
    my %week_days_holidays;
    while (my $row = $repeatable->fetchrow_hashref) {
        my $key = $row->{weekday};
        $week_days_holidays{$key}{title}       = $row->{title};
        $week_days_holidays{$key}{description} = $row->{description};
    }
    $self->{'week_days_holidays'} = \%week_days_holidays;

    $repeatable->execute($branch,1);
    my %day_month_holidays;
    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}{day} = sprintf("%02d", $row->{day});
        $day_month_holidays{$key}{month} = sprintf("%02d", $row->{month});
    }
    $self->{'day_month_holidays'} = \%day_month_holidays;

    my $special = $dbh->prepare( 'SELECT day, month, year, title, description
                                    FROM special_holidays
                                   WHERE ( branchcode = ? )
                                     AND (isexception = ?)' );
    $special->execute($branch,1);
    my %exception_holidays;
    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(ISO_DATE_FORMAT, $year, $month, $day);
    }
    $self->{'exception_holidays'} = \%exception_holidays;

    $special->execute($branch,0);
    my %single_holidays;
    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(ISO_DATE_FORMAT, $year, $month, $day);
    }
    $self->{'single_holidays'} = \%single_holidays;
    return $self;
}

=head2 get_week_days_holidays

   $week_days_holidays = $calendar->get_week_days_holidays();

Returns a hash reference to week days holidays.

=cut

sub get_week_days_holidays {
    my $self = shift @_;
    my $week_days_holidays = $self->{'week_days_holidays'};
    return $week_days_holidays;
}

=head2 get_day_month_holidays

   $day_month_holidays = $calendar->get_day_month_holidays();

Returns a hash reference to day month holidays.

=cut

sub get_day_month_holidays {
    my $self = shift @_;
    my $day_month_holidays = $self->{'day_month_holidays'};
    return $day_month_holidays;
}

=head2 get_exception_holidays

    $exception_holidays = $calendar->exception_holidays();

Returns a hash reference to exception holidays. This kind of days are those
which stands for a holiday, but you wanted to make an exception for this particular
date.

=cut

sub get_exception_holidays {
    my $self = shift @_;
    my $exception_holidays = $self->{'exception_holidays'};
    return $exception_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
happend just one time.

  \@events = GetSingleEvents( $branchcode )

sub get_single_holidays {
    my $self = shift @_;
    my $single_holidays = $self->{'single_holidays'};
    return $single_holidays;
}

=head2 insert_week_day_holiday

    insert_week_day_holiday(weekday => $weekday,
                            title => $title,
                            description => $description);

Get the non-repeating events for the given library.

C<$day> Is the week day to make holiday.

C<$title> Is the title to store for the holiday formed by $year/$month/$day.

C<$description> Is the description to store for the holiday formed by $year/$month/$day.

=cut

sub GetSingleEvents {
    my ( $branchcode ) = @_;

    return C4::Context->dbh->selectall_arrayref( q{
        SELECT
            CONCAT(LPAD(year, 4, '0'), '-', LPAD(month, 2, '0'), '-', LPAD(day, 2, '0')) as event_date,
            0 as open_hour, 0 as open_minute, IF(isexception, 24, 0) as close_hour,
            0 as close_minute, title, description, IF(isexception, 0, 1) as closed
        FROM special_holidays
        WHERE branchcode = ?
    }, { Slice => {} }, $branchcode );
    $self->{'week_days_holidays'}->{$weekday}{description} = $options{description};
    return $self;
}

=head2 GetWeeklyEvents

  \@events = GetWeeklyEvents( $branchcode )
                             month => $month,
                             title => $title,
                             description => $description);

Get the weekly-repeating events for the given library.

C<$day> Is the day month to make the date to insert.

C<$month> Is month to make the date to insert.

C<$title> Is the title to store for the holiday formed by $year/$month/$day.

C<$description> Is the description to store for the holiday formed by $year/$month/$day.

=cut

sub GetWeeklyEvents {
    my ( $branchcode ) = @_;
    my %options = @_;

    my $dbh = C4::Context->dbh();
    my $insertHoliday = $dbh->prepare("insert into repeatable_holidays (id,branchcode,weekday,day,month,title,description) values ('', ?, NULL, ?, ?, ?,? )");
	$insertHoliday->execute( $self->{branchcode}, $options{day},$options{month},$options{title}, $options{description});
    $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 insert_single_holiday

    insert_single_holiday(day => $day,
                          month => $month,
                          year => $year,
                          title => $title,
                          description => $description);

Inserts a new single holiday for $self->{branchcode}.

    return C4::Context->dbh->selectall_arrayref( q{
        SELECT
            weekday, 0 as open_hour, 0 as open_minute, 0 as close_hour,
            0 as close_minute, title, description, 1 as closed
        FROM repeatable_holidays
        WHERE branchcode = ? AND weekday IS NOT NULL
    }, { Slice => {} }, $branchcode );

C<$description> Is the description to store for the holiday formed by $year/$month/$day.

=cut

sub insert_single_holiday {
    my $self = shift @_;
    my %options = @_;
    
    @options{qw(year month day)} = ( $options{date} =~ m/(\d+)-(\d+)-(\d+)/o )
      if $options{date} && !$options{day};

	my $dbh = C4::Context->dbh();
    my $isexception = 0;
    my $insertHoliday = $dbh->prepare("insert into special_holidays (id,branchcode,day,month,year,isexception,title,description) values ('', ?,?,?,?,?,?,?)");
	$insertHoliday->execute( $self->{branchcode}, $options{day},$options{month},$options{year}, $isexception, $options{title}, $options{description});
    $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 GetYearlyEvents

    insert_exception_holiday(day => $day,
                             month => $month,
                             year => $year,
                             title => $title,
                             description => $description);

Inserts a new exception holiday for $self->{branchcode}.

C<$day> Is the day month to make the date to insert.

  \@events = GetYearlyEvents( $branchcode )

Get the yearly-repeating events for the given library.

C<$title> Is the title to store for the holiday formed by $year/$month/$day.

C<$description> Is the description to store for the holiday formed by $year/$month/$day.

=cut

sub GetYearlyEvents {
    my ( $branchcode ) = @_;
    my %options = @_;

    @options{qw(year month day)} = ( $options{date} =~ m/(\d+)-(\d+)-(\d+)/o )
      if $options{date} && !$options{day};

    return C4::Context->dbh->selectall_arrayref( q{
        SELECT
            month, day, 0 as open_hour, 0 as open_minute, 0 as close_hour,
            0 as close_minute, title, description, 1 as closed
        FROM repeatable_holidays
        WHERE branchcode = ? AND weekday IS NULL
    }, { Slice => {} }, $branchcode );
}

=head2 ModSingleEvent

    ModWeekdayholiday(weekday =>$weekday,
                      title => $title,
                      description => $description)

Modifies the title and description of a weekday for $self->{branchcode}.

  ModSingleEvent( $branchcode, \%info )

Creates or updates an event for a single date. $info->{date} should be an
ISO-formatted date string, and \%info should also contain the following keys:
open_hour, open_minute, close_hour, close_minute, title and description.

=cut

sub ModSingleEvent {
    my ( $branchcode, $info ) = @_;
    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);

    my ( $year, $month, $day ) = ( $info->{date} =~ /(\d+)-(\d+)-(\d+)/ );
    return unless ( $year && $month && $day );

    my $dbh = C4::Context->dbh;
    my @args = ( ( map { $info->{$_} } qw(title description) ), $info->{close_hour} != 0, $branchcode, $year, $month, $day );

    # The code below relies on $dbh->do returning 0 when the update affects no rows
    my $affected = $dbh->do( q{
        UPDATE special_holidays
        SET
            title = ?, description = ?, isexception = ?
        WHERE branchcode = ? AND year = ? AND month = ? AND day = ?
    }, {}, @args );

    $dbh->do( q{
        INSERT
        INTO special_holidays(title, description, isexception, branchcode, year, month, day)
        VALUES (?, ?, ?, ?, ?, ?, ?)
    }, {}, @args ) unless ( $affected > 0 );

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 ModRepeatingEvent

    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.

  ModRepeatingEvent( $branchcode, \%info )

Creates or updates a weekly- or yearly-repeating event. Either $info->{weekday},
or $info->{month} and $info->{day} should be set, for a weekly or yearly event,
respectively.

=cut

sub _get_compare {
    my ( $colname, $value ) = @_;
    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.

    return ' AND ' . $colname . ' ' . ( defined( $value ) ? '=' : 'IS' ) . ' ?';

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;
}

sub ModRepeatingEvent {
    my ( $branchcode, $info ) = @_;
    delete_holiday(weekday => $weekday
                   day => $day,
                   month => $month,
                   year => $year);

Delete a holiday for $self->{branchcode}.

C<$weekday> Is the week day to delete.

    my $dbh = C4::Context->dbh;
    my $open = ( $info->{close_hour} != 0 );

    if ($open) {
        $dbh->do( q{
            DELETE FROM repeatable_holidays
            WHERE branchcode = ?
        } . _get_compare( 'weekday', $info->{weekday} ) . _get_compare( 'month', $info->{month} ) . _get_compare( 'day', $info->{day} ), {}, $branchcode, $info->{weekday}, $info->{month}, $info->{day} );

sub delete_holiday {
    my $self = shift @_;
    my %options = @_;

    # Verify what kind of holiday that day is. For example, if it is
    # a repeatable holiday, this should check if there are some exception
	# for that holiday rule. Otherwise, if it is a regular holiday, it´s 
    # ok just deleting it.

    my $dbh = C4::Context->dbh();
    my $isSingleHoliday = $dbh->prepare("SELECT id FROM special_holidays WHERE (branchcode = ?) AND (day = ?) AND (month = ?) AND (year = ?)");
    $isSingleHoliday->execute($self->{branchcode}, $options{day}, $options{month}, $options{year});
    if ($isSingleHoliday->rows) {
        my $id = $isSingleHoliday->fetchrow;
        $isSingleHoliday->finish; # Close the last query

        my $deleteHoliday = $dbh->prepare("DELETE FROM special_holidays WHERE id = ?");
        $deleteHoliday->execute($id);
        delete($self->{'single_holidays'}->{"$options{year}/$options{month}/$options{day}"});
    } else {
        my @args = ( ( map { $info->{$_} } qw(title description) ), $branchcode, $info->{weekday}, $info->{month}, $info->{day} );

        # The code below relies on $dbh->do returning 0 when the update affects no rows
        my $affected = $dbh->do( q{
            UPDATE repeatable_holidays
            SET
                title = ?, description = ?
            WHERE branchcode = ?
        } . _get_compare( 'weekday', $info->{weekday} ) . _get_compare( 'month', $info->{month} ) . _get_compare( 'day', $info->{day} ), {}, @args );

        $dbh->do( q{
            INSERT
            INTO repeatable_holidays(title, description, branchcode, weekday, month, day)
            VALUES (?, ?, ?, ?, ?, ?)
        }, {}, @args ) unless ( $affected > 0 );
        } else {
            $isWeekdayHoliday->finish; # Close the last query

            my $isDayMonthHoliday = $dbh->prepare("SELECT id FROM repeatable_holidays WHERE (branchcode = ?) AND (day = ?) AND (month = ?)");
            $isDayMonthHoliday->execute($self->{branchcode}, $options{day}, $options{month});
            if ($isDayMonthHoliday->rows) {
                my $id = $isDayMonthHoliday->fetchrow;
                $isDayMonthHoliday->finish;
                my $updateExceptions = $dbh->prepare("UPDATE special_holidays SET isexception = 0 WHERE (special_holidays.branchcode = ?) AND (special_holidays.day = ?) and (special_holidays.month = ?)");
                $updateExceptions->execute($self->{branchcode}, $options{day}, $options{month});
                $updateExceptions->finish; # Close the last query

                my $deleteHoliday = $dbh->prepare("DELETE FROM repeatable_holidays WHERE (id = ?)");
                $deleteHoliday->execute($id);
                delete($self->{'day_month_holidays'}->{"$options{month}/$options{day}"});
            }
        }
    }
    return $self;
}
=head2 delete_holiday_range

    delete_holiday_range(day => $day,
                   month => $month,
                   year => $year);

Delete a holiday range of dates for $self->{branchcode}.

C<$day> Is the day month to make the date to delete.

C<$month> Is month to make the date to delete.

C<$year> Is year to make the date to delete.

=cut

sub delete_holiday_range {
    my $self = shift;
    my %options = @_;

    my $dbh = C4::Context->dbh();
    my $sth = $dbh->prepare("DELETE FROM special_holidays WHERE (branchcode = ?) AND (day = ?) AND (month = ?) AND (year = ?)");
    $sth->execute($self->{branchcode}, $options{day}, $options{month}, $options{year});
}

=head2 DelSingleEvent

  DelSingleEvent( $branchcode, \%info )
                   month => $month);

Deletes an event for a single date. $info->{date} should be an ISO-formatted date string.

C<$day> Is the day month to make the date to delete.

C<$month> Is month to make the date to delete.

=cut

sub DelSingleEvent {
    my ( $branchcode, $info ) = @_;
    my %options = @_;

    my $dbh = C4::Context->dbh();
    my $sth = $dbh->prepare("DELETE FROM repeatable_holidays WHERE (branchcode = ?) AND (day = ?) AND (month = ?)");
    $sth->execute($self->{branchcode}, $options{day}, $options{month});
}

=head2 delete_exception_holiday_range

    my ( $year, $month, $day ) = ( $info->{date} =~ /(\d+)-(\d+)-(\d+)/ );
    return unless ( $year && $month && $day );
                   month => $month,
                   year => $year);

    C4::Context->dbh->do( q{
        DELETE FROM special_holidays
        WHERE branchcode = ? AND year = ? AND month = ? AND day = ?
    }, {}, $branchcode, $year, $month, $day );
C<$month> Is month to make the date to delete.

C<$year> Is year to make the date to delete.

=cut

sub delete_exception_holiday_range {
    my $self = shift;
    my %options = @_;

    my $dbh = C4::Context->dbh();
    my $sth = $dbh->prepare("DELETE FROM special_holidays WHERE (branchcode = ?) AND (isexception = 1) AND (day = ?) AND (month = ?) AND (year = ?)");
    $sth->execute($self->{branchcode}, $options{day}, $options{month}, $options{year});
}

=head2 DelRepeatingEvent

    $isHoliday = isHoliday($day, $month $year);

C<$day> Is the day to check whether if is a holiday or not.

C<$month> Is the month to check whether if is a holiday or not.

C<$year> Is the year to check whether if is a holiday or not.

=cut

sub isHoliday {
    my ($self, $day, $month, $year) = @_;
	# FIXME - date strings are stored in non-padded metric format. should change to iso.
	# FIXME - should change arguments to accept C4::Dates object
	$month=$month+0;
	$year=$year+0;
	$day=$day+0;
    my $weekday = &Date::Calc::Day_of_Week($year, $month, $day) % 7; 
    my $weekDays   = $self->get_week_days_holidays();
    my $dayMonths  = $self->get_day_month_holidays();
    my $exceptions = $self->get_exception_holidays();
    my $singles    = $self->get_single_holidays();
    if (defined($exceptions->{"$year/$month/$day"})) {
        return 0;
    } else {
        if ((exists($weekDays->{$weekday})) ||
            (exists($dayMonths->{"$month/$day"})) ||
            (exists($singles->{"$year/$month/$day"}))) {
		 	return 1;
        } else {
            return 0;
        }
    }

  DelRepeatingEvent( $branchcode, \%info )

Deletes a weekly- or yearly-repeating event. Either $info->{weekday}, or
$info->{month} and $info->{day} should be set, for a weekly or yearly event,
respectively.

=cut

sub DelRepeatingEvent {
    my ( $branchcode, $info ) = @_;

    croak "No target_branch" unless $target_branch;

    C4::Context->dbh->do( q{
        DELETE FROM repeatable_holidays
        WHERE branchcode = ?
    } . _get_compare( 'weekday', $info->{weekday} ) . _get_compare( 'month', $info->{month} ) . _get_compare( 'day', $info->{day} ), {}, $branchcode, $info->{weekday}, $info->{month}, $info->{day} );

    my $wdh = $self->get_week_days_holidays;
    $target_calendar->insert_week_day_holiday( weekday => $_, %{ $wdh->{$_} } )
      foreach keys %$wdh;
    $target_calendar->insert_day_month_holiday(%$_)
      foreach values %{ $self->get_day_month_holidays };
    $target_calendar->insert_exception_holiday(%$_)
      foreach grep { $_->{date} gt $today } values %{ $self->get_exception_holidays };
    $target_calendar->insert_single_holiday(%$_)
      foreach grep { $_->{date} gt $today } values %{ $self->get_single_holidays };

    return 1;
}

=head2 CopyAllEvents

  CopyAllEvents( $from_branchcode, $to_branchcode )

Copies all events from one branch to another.

C<$offset> Is the number of days that this function has to count from $date.

=cut

sub CopyAllEvents {
    my ( $from_branchcode, $to_branchcode ) = @_;

    C4::Context->dbh->do( q{
        INSERT IGNORE INTO special_holidays(branchcode, year, month, day, isexception, title, description)
        SELECT ?, year, month, day, isexception, title, description
        FROM special_holidays
        WHERE branchcode = ?
    }, {}, $to_branchcode, $from_branchcode );

    C4::Context->dbh->do( q{
        INSERT IGNORE INTO repeatable_holidays(branchcode, weekday, month, day, title, description)
        SELECT ?, weekday, month, day, title, description
        FROM repeatable_holidays
        WHERE branchcode = ?
    }, {}, $to_branchcode, $from_branchcode );
            ($year, $month, $day) = &Date::Calc::Add_Delta_Days($year, $month, $day, $daystep);
            if (!($self->isHoliday($day, $month, $year))) {
                $offset = $offset - $daystep;
			}
        }
	} else { ## ($daysMode eq 'Days') 
        ($year, $month, $day) = &Date::Calc::Add_Delta_Days($year, $month, $day, $offset );
    }
    return(C4::Dates->new( sprintf(ISO_DATE_FORMAT,$year,$month,$day),'iso'));
}

=head2 daysBetween

    my $daysBetween = $calendar->daysBetween($startdate, $enddate)

C<$startdate> and C<$enddate> are C4::Dates objects that define the interval.

Returns the number of non-holiday days in the interval.
useDaysMode syspref has no effect here.
=cut

sub daysBetween {
    my $self      = shift or return;
    my $startdate = shift or return;
    my $enddate   = shift or return;
    my ($yearFrom,$monthFrom,$dayFrom) = split("-",$startdate->output('iso'));
    my ($yearTo,  $monthTo,  $dayTo  ) = split("-",  $enddate->output('iso'));
    if (Date_to_Days($yearFrom,$monthFrom,$dayFrom) > Date_to_Days($yearTo,$monthTo,$dayTo)) {
        return 0;
        # we don't go backwards  ( FIXME - handle this error better )
    }
    my $count = 0;
    while (1) {
        ($yearFrom != $yearTo or $monthFrom != $monthTo or $dayFrom != $dayTo) or last; # if they all match, it's the last day
        unless ($self->isHoliday($dayFrom, $monthFrom, $yearFrom)) {
            $count++;
        }
        ($yearFrom, $monthFrom, $dayFrom) = &Date::Calc::Add_Delta_Days($yearFrom, $monthFrom, $dayFrom, 1);
    }
    return($count);
}

1;


=head1 AUTHOR

Koha Physics Library UNLP <matias_veleda@hotmail.com>
Jesse Weaver <jweaver@bywatersolutions.com>

=cut




    return $datedue;
}


=head2 CheckRepeatableHolidays

  $countrepeatable = CheckRepeatableHoliday($itemnumber,$week_day,$branchcode);

This function checks if the date due is a repeatable holiday

C<$date_due>   = returndate calculate with no day check
C<$itemnumber>  = itemnumber
C<$branchcode>  = localisation of issue 

=cut

sub CheckRepeatableHolidays{
my($itemnumber,$week_day,$branchcode)=@_;
my $dbh = C4::Context->dbh;
my $query = qq|SELECT count(*)  
	FROM repeatable_holidays 
	WHERE branchcode=?
	AND weekday=?|;
my $sth = $dbh->prepare($query);
$sth->execute($branchcode,$week_day);
my $result=$sth->fetchrow;
return $result;
}


=head2 CheckSpecialHolidays

  $countspecial = CheckSpecialHolidays($years,$month,$day,$itemnumber,$branchcode);

This function check if the date is a special holiday

C<$years>   = the years of datedue
C<$month>   = the month of datedue
C<$day>     = the day of datedue
C<$itemnumber>  = itemnumber
C<$branchcode>  = localisation of issue 

=cut

sub CheckSpecialHolidays{
my ($years,$month,$day,$itemnumber,$branchcode) = @_;
my $dbh = C4::Context->dbh;
my $query=qq|SELECT count(*) 
	     FROM `special_holidays`
	     WHERE year=?
	     AND month=?
	     AND day=?
             AND branchcode=?
	    |;
my $sth = $dbh->prepare($query);
$sth->execute($years,$month,$day,$branchcode);
my $countspecial=$sth->fetchrow ;
return $countspecial;
}

=head2 CheckRepeatableSpecialHolidays

  $countspecial = CheckRepeatableSpecialHolidays($month,$day,$itemnumber,$branchcode);

This function check if the date is a repeatble special holidays

C<$month>   = the month of datedue
C<$day>     = the day of datedue
C<$itemnumber>  = itemnumber
C<$branchcode>  = localisation of issue 

=cut

sub CheckRepeatableSpecialHolidays{
my ($month,$day,$itemnumber,$branchcode) = @_;
my $dbh = C4::Context->dbh;
my $query=qq|SELECT count(*) 
	     FROM `repeatable_holidays`
	     WHERE month=?
	     AND day=?
             AND branchcode=?
	    |;
my $sth = $dbh->prepare($query);
$sth->execute($month,$day,$branchcode);
my $countspecial=$sth->fetchrow ;
return $countspecial;
}



sub CheckValidBarcode{
my ($barcode) = @_;
my $dbh = C4::Context->dbh;

Lines 742-747 our $PERL_DEPS = { Link Here

(-)a/C4/Installer/PerlDependencies.pm (+5 lines)
742	'required' => '0',	742	'required' => '0',
743	'min_ver' => '5.836',	743	'min_ver' => '5.836',
744	},	744	},
		745	'Template::Plugin::JavaScript' => {
		746	'usage' => 'Core',
		747	'required' => '1',
		748	'min_ver' => '0.02',
		749	},
745	};	750	};
746		751
747	1;	752	1;




}


=head2 GetSpecialHolidays

    &GetSpecialHolidays($date_dues,$itemnumber);

return number of special days  between date of the day and date due

C<$date_dues> is the envisaged date of book return.

C<$itemnumber> is the book's item number.

=cut

sub GetSpecialHolidays {
    my ( $date_dues, $itemnumber ) = @_;

    # calcul the today date
    my $today = join "-", &Today();

    # return the holdingbranch
    my $iteminfo = GetIssuesIteminfo($itemnumber);

    # use sql request to find all date between date_due and today
    my $dbh = C4::Context->dbh;
    my $query =
      qq|SELECT DATE_FORMAT(concat(year,'-',month,'-',day),'%Y-%m-%d') as date
FROM `special_holidays`
WHERE DATE_FORMAT(concat(year,'-',month,'-',day),'%Y-%m-%d') >= ?
AND   DATE_FORMAT(concat(year,'-',month,'-',day),'%Y-%m-%d') <= ?
AND branchcode=?
|;
    my @result = GetWdayFromItemnumber($itemnumber);
    my @result_date;
    my $wday;
    my $dateinsec;
    my $sth = $dbh->prepare($query);
    $sth->execute( $date_dues, $today, $iteminfo->{'branchcode'} )
      ;    # FIXME: just use NOW() in SQL instead of passing in $today

    while ( my $special_date = $sth->fetchrow_hashref ) {
        push( @result_date, $special_date );
    }

    my $specialdaycount = scalar(@result_date);

    for ( my $i = 0 ; $i < scalar(@result_date) ; $i++ ) {
        $dateinsec = UnixDate( $result_date[$i]->{'date'}, "%o" );
        ( undef, undef, undef, undef, undef, undef, $wday, undef, undef ) =
          localtime($dateinsec);
        for ( my $j = 0 ; $j < scalar(@result) ; $j++ ) {
            if ( $wday == ( $result[$j]->{'weekday'} ) ) {
                $specialdaycount--;
            }
        }
    }

    return $specialdaycount;
}

=head2 GetRepeatableHolidays

    &GetRepeatableHolidays($date_dues, $itemnumber, $difference,);

return number of day closed between date of the day and date due

C<$date_dues> is the envisaged date of book return.

C<$itemnumber> is item number.

C<$difference> numbers of between day date of the day and date due

=cut

sub GetRepeatableHolidays {
    my ( $date_dues, $itemnumber, $difference ) = @_;
    my $dateinsec = UnixDate( $date_dues, "%o" );
    my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) =
      localtime($dateinsec);
    my @result = GetWdayFromItemnumber($itemnumber);
    my @dayclosedcount;
    my $j;

    for ( my $i = 0 ; $i < scalar(@result) ; $i++ ) {
        my $k = $wday;

        for ( $j = 0 ; $j < $difference ; $j++ ) {
            if ( $result[$i]->{'weekday'} == $k ) {
                push( @dayclosedcount, $k );
            }
            $k++;
            ( $k = 0 ) if ( $k eq 7 );
        }
    }
    return scalar(@dayclosedcount);
}


=head2 GetWayFromItemnumber

    &Getwdayfromitemnumber($itemnumber);

return the different week day from repeatable_holidays table

C<$itemnumber> is  item number.

=cut

sub GetWdayFromItemnumber {
    my ($itemnumber) = @_;
    my $iteminfo = GetIssuesIteminfo($itemnumber);
    my @result;
    my $query = qq|SELECT weekday
    FROM repeatable_holidays
    WHERE branchcode=?
|;
    my $sth = C4::Context->dbh->prepare($query);

    $sth->execute( $iteminfo->{'branchcode'} );
    while ( my $weekday = $sth->fetchrow_hashref ) {
        push( @result, $weekday );
    }
    return @result;
}


=head2 GetIssuesIteminfo

    &GetIssuesIteminfo($itemnumber);




# 3.16, bug 8089 will be fixed and we can switch the caching over
# to Koha::Cache.
our ( $exception_holidays, $single_holidays );
sub _exception_holidays {
    my ( $self ) = @_;
    my $dbh = C4::Context->dbh;
    my $branch = $self->{branchcode};

    return $exception_holidays;
}

sub _single_holidays {
    my ( $self ) = @_;
    my $dbh = C4::Context->dbh;
    my $branch = $self->{branchcode};


    $localdt->truncate( to => 'day' );

    if ( $self->_exception_holidays->contains($localdt) ) {
        # exceptions are not holidays
        return 0;
    }

        return 1;
    }

    if ( $self->_single_holidays->contains($localdt) ) {
        return 1;
    }


    return;
}

sub add_holiday {
    my $self = shift;
    my $new_dt = shift;
    my @dt = $self->single_holidays->as_list;
    push @dt, $new_dt;
    $self->{single_holidays} =
      DateTime::Set->from_datetimes( dates => \@dt );
    $single_holidays = $self->{single_holidays};

    return;
}

1;
__END__


no closed days. TODO passing an array of closed days to this would
allow testing of more configurations

=head2 add_holiday

Passed a datetime object this will add it to the calendar's list of
closed days. This is for testing so that we can alter the Calenfar object's
list of specified dates

=head1 DIAGNOSTICS

Will croak if not passed a branchcode in new

Lines 87-93 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/tools-menu.inc (-1 / +1 lines)
87	<h5>Additional tools</h5>	87	<h5>Additional tools</h5>
88	<ul>	88	<ul>
89	[% IF ( CAN_user_tools_edit_calendar ) %]	89	[% IF ( CAN_user_tools_edit_calendar ) %]
90	<li><a href="/cgi-bin/koha/tools/holidays.pl">Calendar</a></li>	90	<li><a href="/cgi-bin/koha/tools/calendar.pl">Calendar</a></li>
91	[% END %]	91	[% END %]
92	[% IF ( CAN_user_tools_manage_csv_profiles ) %]	92	[% IF ( CAN_user_tools_manage_csv_profiles ) %]
93	<li><a href="/cgi-bin/koha/tools/csv-profiles.pl">CSV profiles</a></li>	93	<li><a href="/cgi-bin/koha/tools/csv-profiles.pl">CSV profiles</a></li>




[% USE 'JavaScript' %]
[% USE 'KohaDates' %]
[% INCLUDE 'doc-head-open.inc' %]
<title>Koha &rsaquo; Tools &rsaquo; [% branchname %] Calendar</title>
[% INCLUDE 'doc-head-close.inc' %]
[% INCLUDE 'calendar.inc' %]
<link rel="stylesheet" type="text/css" href="[% themelang %]/css/datatables.css" />
[% INCLUDE 'datatables.inc' %]
<script language="JavaScript" type="text/javascript">
//<![CDATA[
    [% IF (dateformat == 'metric') %]dt_add_type_uk_date();[% END %]
    var weekdays = new Array(_("Sundays"),_("Mondays"),_("Tuesdays"),_("Wednesdays"),_("Thursdays"),_("Fridays"),_("Saturdays"));

    var single_events = {
        [% FOREACH event IN single_events %]
        '[% event.event_date %]': {
            title: '[% event.title | js %]',
            description: '[% event.description | js %]',
            closed: [% event.closed %],
            eventType: 'single',
            open_hour: '[% event.open_hour %]',
            open_minute: '[% event.open_minute %]',
            close_hour: '[% event.close_hour %]',
            close_minute: '[% event.close_minute %]'
        },
        [% END %]
    };

    var weekly_events = {
        [% FOREACH event IN weekly_events %]
        [% event.weekday %]: {
            title: '[% event.title | js %]',
            description: '[% event.description | js %]',
            closed: [% event.closed %],
            eventType: 'weekly',
            weekday: [% event.weekday %],
            open_hour: '[% event.open_hour %]',
            open_minute: '[% event.open_minute %]',
            close_hour: '[% event.close_hour %]',
            close_minute: '[% event.close_minute %]'
        },
        [% END %]
    };

    var yearly_events = {
        [% FOREACH event IN yearly_events %]
        '[% event.month %]-[% event.day %]': {
            title: '[% event.title | js %]',
            description: '[% event.description | js %]',
            closed: [% event.closed %],
            eventType: 'yearly',
            month: [% event.month %],
            day: [% event.day %],
            open_hour: '[% event.open_hour %]',
            open_minute: '[% event.open_minute %]',
            close_hour: '[% event.close_hour %]',
            close_minute: '[% event.close_minute %]'
        },
        [% END %]
    };

    function eventOperation(formObject, opType) {
        var op = document.getElementsByName('op');
        op[0].value = opType;
        formObject.submit();
    }

    function zeroPad(value) {
        return value >= 10 ? value : ('0' + value);
    }

    // This function shows the "Show Event" panel //
    function showEvent(dayName, day, month, year, weekDay, event) {
        $("#newEvent").slideUp("fast");
        $("#showEvent").slideDown("fast");
        $('#showDaynameOutput').html(dayName);
        $('#showDayname').val(dayName);
        $('#showBranchNameOutput').html($("#branch :selected").text());
        $('#showBranchName').val($("#branch").val());
        $('#showDayOutput').html(day);
        $('#showDay').val(day);
        $('#showMonthOutput').html(month);
        $('#showMonth').val(month);
        $('#showYearOutput').html(year);
        $('#showYear').val(year);
        $('#showDescription').val(event.description);
        $('#showWeekday:first').val(weekDay);
        $('#showTitle').val(event.title);
        $('#showEventType').val(event.eventType);

        if (event.closed) {
            $('#showHoursTypeClosed')[0].checked = true;
        } else if (event.close_hour == 24) {
            $('#showHoursTypeOpen')[0].checked = true;
        } else {
            $('#showHoursTypeOpenSet')[0].checked = true;
            $('#showHoursTypeOpenSet').change();
            $('#showOpenTime').val(event.open_hour + ':' + zeroPad(event.open_minute));
            $('#showCloseTime').val(event.close_hour + ':' + zeroPad(event.close_minute));
        }

        $("#operationDelLabel").html(_("Delete this event."));
        if(event.eventType == 'weekly') {
            $("#holtype").attr("class","key repeatableweekly").html(_("Event repeating weekly"));
        } else if(event.eventType == 'yearly') {
            $("#holtype").attr("class","key repeatableyearly").html(_("Event repeating yearly"));
        } else {
            $("#holtype").attr("class","key event").html(_("Single event"));
        }
    }

    // This function shows the "Add Event" panel //
    function newEvent (dayName, day, month, year, weekDay) {
        $("#showEvent").slideUp("fast");
        $("#newEvent").slideDown("fast");
        $("#newDaynameOutput").html(dayName);
        $("#newDayname").val(dayName);
        $("#newBranchNameOutput").html($('#branch :selected').text());
        $("#newBranchName").val($('#branch').val());
        $("#newDayOutput").html(day);
        $("#newDay").val(day);
        $("#newMonthOutput").html(month);
        $("#newMonth").val(month);
        $("#newYearOutput").html(year);
        $("#newYear").val(year);
        $("#newWeekday:first").val(weekDay);
    }

    function hidePanel(aPanelName) {
        $("#"+aPanelName).slideUp("fast");
    }

    function changeBranch () {
        var branch = $("#branch option:selected").val();
        location.href='/cgi-bin/koha/tools/calendar.pl?branch=' + branch + '&calendardate=' + "[% calendardate %]";
    }

    /* This function gives css clases to each kind of day */
    function dateStatusHandler(date) {
        date = new Date(date);
        var day = date.getDate();
        var month = date.getMonth() + 1;
        var year = date.getFullYear();
        var weekDay = date.getDay();
        var dayMonth = month + '-' + day;
        var dateString = year + '-' + zeroPad(month) + '-' + zeroPad(day);

        if ( single_events[dateString] != null) {
            return [true, "event", "Single event: "+single_events[dateString].title];
        } else if ( yearly_events[dayMonth] != null ) {
            return [true, "repeatableyearly", "Yearly event: "+yearly_events[dayMonth].title];
        } else if ( weekly_events[weekDay] != null ){
            return [true, "repeatableweekly", "Weekly event: "+weekly_events[weekDay].title];
        } else {
            return [true, "normalday", "Normal day"];
        }
    }

    /* This function is in charge of showing the correct panel considering the kind of event */
    function dateChanged(calendar) {
        calendar = new Date(calendar);
        var day = calendar.getDate();
        var month = calendar.getMonth() + 1;
        var year = calendar.getFullYear();
        var weekDay = calendar.getDay();
        var dayName = weekdays[weekDay];
        var dayMonth = month + '-' + day;
        var dateString = year + '-' + zeroPad(month) + '-' + zeroPad(day);
        if ( single_events[dateString] != null ) {
            showEvent( dayName, day, month, year, weekDay, single_events[dateString] );
        } else if ( yearly_events[dayMonth] != null ) {
            showEvent( dayName, day, month, year, weekDay, yearly_events[dayMonth] );
        } else if ( weekly_events[weekDay] != null ) {
            showEvent( dayName, day, month, year, weekDay, weekly_events[weekDay] );
        } else {
            newEvent( dayName, day, month, year, weekDay );
        }
    };

    $(document).ready(function() {

        $(".hint").hide();
        $("#branch").change(function(){
            changeBranch();
        });
        $("#weekly-events,#single-events").dataTable($.extend(true, {}, dataTablesDefaults, {
            "sDom": 't',
            "bPaginate": false
        }));
        $("#yearly-events").dataTable($.extend(true, {}, dataTablesDefaults, {
            "sDom": 't',
            "aoColumns": [
                { "sType": "title-string" },null,null,null
            ],
            "bPaginate": false
        }));
        $("a.helptext").click(function(){
            $(this).parent().find(".hint").toggle(); return false;
        });
        $("#dateofrange").datepicker();
        $("#datecancelrange").datepicker();
        $("#dateofrange").each(function () { this.value = "" });
        $("#datecancelrange").each(function () { this.value = "" });
        $("#jcalendar-container").datepicker({
          beforeShowDay: function(thedate) {
            var day = thedate.getDate();
            var month = thedate.getMonth() + 1;
            var year = thedate.getFullYear();
            var dateString = year + '/' + month + '/' + day;
            return dateStatusHandler(dateString);
            },
            onSelect: function(dateText, inst) {
                dateChanged($(this).datepicker("getDate"));
            },
            defaultDate: new Date("[% keydate %]")
        });
        $(".hourssel input").change(function() {
            $(".hoursentry", this.form).toggle(this.value == 'openSet');
        }).each( function() { this.checked = false } );
    });
//]]>
</script>
<style type="text/css"> .key { padding : 3px; white-space:nowrap; line-height:230%; }
.ui-datepicker { font-size : 150%; }
.ui-datepicker th, .ui-datepicker .ui-datepicker-title select { font-size : 80%; }
.ui-datepicker td a { padding : .5em; }
.ui-datepicker .ui-datepicker-buttonpane button.ui-datepicker-current { font-size : 80%; }
.key { padding : 3px; white-space:nowrap; line-height:230%; }
.normalday { background-color :  #EDEDED; color :  Black; border : 1px solid #BCBCBC; }
.exception { background-color :  #b3d4ff; color :  Black; border : 1px solid #BCBCBC; }
.event {  background-color :  #ffaeae; color :  Black;  border : 1px solid #BCBCBC; }
.repeatableweekly {  background-color :  #FFFF99; color :  Black;  border : 1px solid #BCBCBC; }
.repeatableyearly {  background-color :  #FFCC66; color :  Black;  border : 1px solid #BCBCBC; }
td.exception a.ui-state-default { background:  #b3d4ff none; color :  Black; border : 1px solid #BCBCBC; }
td.event a.ui-state-default {  background:  #ffaeae none; color :  Black;  border : 1px solid #BCBCBC; }
td.repeatableweekly a.ui-state-default {  background:  #FFFF99 none; color :  Black;  border : 1px solid #BCBCBC; }
td.repeatableyearly a.ui-state-default {  background:  #FFCC66 none; color :  Black;  border : 1px solid #BCBCBC; }
.information { z-index : 1; background-color :  #DCD2F1; width : 300px; display : none; border : 1px solid #000000; color :  #000000; font-size :  8pt; font-weight :  bold; background-color :  #FFD700; cursor :  pointer; padding : 2px; }
.panel { z-index : 1; display : none; border : 3px solid #CCC; padding : 3px; margin-top: .3em;  background-color: #FEFEFE; } fieldset.brief { border : 0; margin-top: 0; }
#showEvent { margin : .5em 0; } h1 select { width: 20em; } div.yui-b fieldset.brief ol { font-size:100%; } div.yui-b fieldset.brief li, div.yui-b fieldset.brief li.radio  { padding:0.2em 0; } .help { margin:.3em 0;border:1px solid #EEE;padding:.3em .7em; font-size : 90%; } #single-events, #weekly-events, #yearly-events { font-size : 90%; margin-bottom : 1em;} .calendar td, .calendar th, .calendar .button, .calendar tbody .day { padding : .7em; font-size: 110%; } .calendar { width: auto; border : 0; }
li.hourssel {
    margin-top: .5em;
}
li.hourssel label {
    padding-left: .2em;
    padding-right: .5em;
}
li.hoursentry {
    margin-bottom: .5em;
}
li.hoursentry input {
    padding-left: .2em;
    padding-right: .5em;
}
</style>
</head>
<body id="tools_events" class="tools">
[% INCLUDE 'header.inc' %]
[% INCLUDE 'cat-search.inc' %]

<div id="breadcrumbs"><a href="/cgi-bin/koha/mainpage.pl">Home</a> &rsaquo; <a href="/cgi-bin/koha/tools/tools-home.pl">Tools</a> &rsaquo; [% branchname %] Calendar</div>

<div id="doc3" class="yui-t1">

   <div id="bd">
    <div id="yui-main">
    <div class="yui-b">
    <h2>[% branchname %] Calendar</h2>
    <div class="yui-g">
    <div class="yui-u first">
        <label for="branch">Calendar for:</label>
            <select id="branch" name="branch">
                [% FOREACH branchloo IN branchloop %]
                    [% IF ( branchloo.selected ) %]
                        <option value="[% branchloo.value %]" selected="selected">[% branchloo.branchname %]</option>
                    [% ELSE %]
                        <option value="[% branchloo.value %]">[% branchloo.branchname %]</option>
                    [% END %]
                [% END %]
            </select>

    <!-- ******************************** FLAT PANELS ******************************************* -->
    <!-- *****           Makes all the flat panel to deal with events                     ***** -->
    <!-- **************************************************************************************** -->

    <!-- ********************** Panel for showing already loaded events *********************** -->
    <div class="panel" id="showEvent">
         <form action="/cgi-bin/koha/tools/calendar.pl" method="post">
             <input type="hidden" id="showEventType" name="eventType" value="" />
            <fieldset class="brief">
            <h3>Edit this event</h3>
            <span id="holtype"></span>
            <ol>
            <li>
                <strong>Library:</strong> <span id="showBranchNameOutput"></span>
                <input type="hidden" id="showBranchName" name="branchName" />
            </li>
            <li>
                <strong>From Date:</strong>
                <span id="showDaynameOutput"></span>,

                                [% IF ( dateformat == "us" ) %]<span id="showMonthOutput"></span>/<span id="showDayOutput"></span>/<span id="showYearOutput"></span>[% ELSIF ( dateformat == "metric" ) %]<span id="showDayOutput"></span>/<span id="showMonthOutput"></span>/<span id="showYearOutput"></span>[% ELSE %]<span id="showYearOutput"></span>/<span id="showMonthOutput"></span>/<span id="showDayOutput"></span>[% END %]

                <input type="hidden" id="showWeekday" name="weekday" />
                <input type="hidden" id="showDay" name="day" />
                <input type="hidden" id="showMonth" name="month" />
                <input type="hidden" id="showYear" name="year" />
            </li>
            <li class="dateinsert">
                <b>To Date : </b>
                <input type="text" id="datecancelrange" name="dateofrange" size="20" value="[% dateofrange %]" class="datepicker"/>
            </li>
            <li class="radio hourssel">
                <input type="radio" name="hoursType" id="showHoursTypeOpen" value="open" /><label for="showHoursTypeOpen">Open (will delete repeating events)</label>
                <input type="radio" name="hoursType" id="showHoursTypeClosed" value="closed" /><label for="showHoursTypeClosed">Closed</label>
            </li>
            <li class="radio hoursentry" style="display:none">
                <label for="showOpenTime">Open at:</label>
                <input type="time" name="openTime" id="showOpenTime" size="3" maxlength="5" value="0:00" pattern="(0?[0-9]|1[0-9]|2[0-3]):([0-5][0-9])" />
                <label for="showCloseTime">Closed at:</label>
                <input type="time" name="closeTime" id="showCloseTime" size="3" maxlength="5" value="23:59" pattern="(0?[0-9]|1[0-9]|2[0-3]):([0-5][0-9])" />
            </li>
            <li><label for="showTitle">Title: </label><input type="text" name="title" id="showTitle" size="35" /></li>
            <!-- showTitle is necessary for exception radio button to work properly -->
                <label for="showDescription">Description:</label>
                <textarea rows="2" cols="40" id="showDescription" name="description"></textarea>
            </li>
            <li class="radio"><input type="radio" name="op" id="showOperationDel" value="delete" /> <label for="showOperationDel" id="showOperationDelLabel">Delete this event</label>
                <a href="#" class="helptext">[?]</a>
                <div class="hint">This will delete this event rule.
            <li class="radio"><input type="radio" name="op" id="showOperationDelRange" value="deleterange" /> <label for="showOperationDelRange" id="showOperationDelLabelRange">Delete the single events on a range</label>.
                <a href="#" class="helptext">[?]</a>
                <div class="hint">This will delete the single events only. The repeatable events will not be deleted.</div>
            </li>
            <li class="radio"><input type="radio" name="op" id="showOperationDelRangeRepeat" value="deleterangerepeat" /> <label for="showOperationDelRangeRepeat" id="showOperationDelLabelRangeRepeat">Delete the repeated events on a range</label>.
                <a href="#" class="helptext">[?]</a>
                <div class="hint">This will delete the yearly repeated events only.</div>
            </li>
            <li class="radio"><input type="radio" name="op" id="showOperationEdit" value="save" checked="checked" /> <label for="showOperationEdit">Edit this event</label>
                <a href="#" class="helptext">[?]</a>
                <div class="hint">This will save changes to the event's title and description. If the information for a repeatable event is modified, it affects all of the dates on which the event is repeated.</div></li>
            </ol>
            <fieldset class="action">
                <input type="submit" name="submit" value="Save" />
                <a href="#" class="cancel" name="cancel2" onclick=" hidePanel('showEvent');">Cancel</a>
            </fieldset>
            </fieldset>
        </form>
    </div>

    <!-- ***************************** Panel to deal with new events **********************  -->
    <div class="panel" id="newEvent">
         <form action="/cgi-bin/koha/tools/calendar.pl" method="post">
            <input type="hidden" name="branchCodes" id="branchCodes" value="[% branchcodes %]" />
            <input type="hidden" name="op" value="save" />
            <fieldset class="brief">
            <h3>Add new event</h3>

        <ol>
            <li>
                <strong>Library:</strong>
                <span id="newBranchNameOutput"></span>
                <input type="hidden" id="newBranchName" name="branchName" />
            </li>
            <li>
                <strong>From date:</strong>
                <span id="newDaynameOutput"></span>,

                         [% IF ( dateformat == "us" ) %]<span id="newMonthOutput"></span>/<span id="newDayOutput"></span>/<span id="newYearOutput"></span>[% ELSIF ( dateformat == "metric" ) %]<span id="newDayOutput"></span>/<span id="newMonthOutput"></span>/<span id="newYearOutput"></span>[% ELSE %]<span id="newYearOutput"></span>/<span id="newMonthOutput"></span>/<span id="newDayOutput"></span>[% END %]

                <input type="hidden" id="newWeekday" name="weekday" />
                <input type="hidden" id="newDay" name="day" />
                <input type="hidden" id="newMonth" name="month" />
                <input type="hidden" id="newYear" name="year" />
            </li>
            <li class="dateinsert">
                <b>To date : </b>
                <input type="text" id="dateofrange" name="dateofrange" size="20" value="[% dateofrange %]" class="datepicker" />
            </li>
            <li class="radio hourssel">
                <input type="radio" name="hoursType" id="newHoursTypeOpen" value="open" /><label for="newHoursTypeOpen">Open (will not work for repeating events)</label>
                <input type="radio" name="hoursType" id="newHoursTypeClosed" value="closed" /><label for="newHoursTypeClosed">Closed</label>
            </li>
            <li class="radio hoursentry" style="display:none">
                <label for="newOpenTime">Open at:</label>
                <input type="time" name="openTime" id="newOpenTime" size="3" maxlength="5" value="0:00" pattern="(0?[0-9]|1[0-9]|2[0-3]):([0-5][0-9])" />
                <label for="newCloseTime">Closed at:</label>
                <input type="time" name="closeTime" id="newCloseTime" size="3" maxlength="5" value="23:59" pattern="(0?[0-9]|1[0-9]|2[0-3]):([0-5][0-9])" />
            </li>
            <li><label for="title">Title: </label><input type="text" name="title" id="title" size="35" /></li>
            <li><label for="newDescription">Description:</label>
                <textarea rows="2" cols="40" id="newDescription" name="description"></textarea>
            </li>
            <li class="radio"><input type="radio" name="eventType" id="newOperationOnce" value="single" checked="checked" />
                            <label for="newOperationOnce">Event only on this day</label>.
                            <a href="#" class="helptext">[?]</a>
                            <div class="hint">Make a single event. For example, selecting August 1st, 2012 will not affect August 1st in other years.</div>
                            </li>
            <li class="radio"><input type="radio" name="eventType" id="newOperationDay" value="weekly" />
                            <label for="newOperationDay">Event repeated weekly</label>.
                            <a href="#" class="helptext">[?]</a>
                            <div class="hint">Make this weekday an event, every week. For example, if your library is closed on Saturdays, use this option to make every Saturday a event.</div>
                            </li>
            <li class="radio"><input type="radio" name="eventType" id="newOperationYear" value="yearly" />
                            <label for="newOperationYear">Event repeated yearly</label>.
                            <a href="#" class="helptext">[?]</a>
                            <div class="hint">Make this day of the year an event, every year. For example, selecting August 1st will set the hours for August 1st every year.</div>
                            </li>
            <li class="radio"><input type="radio" name="eventType" id="newOperationField" value="singlerange" />
                            <label for="newOperationField">Events on a range</label>.
                            <a href="#" class="helptext">[?]</a>
                            <div class="hint">Make events for a range of days. For example, selecting August 1st, 2012 and August 10st, 2012 will make all days between 1st and 10st event, but will not affect August 1-10 in other years.</div>
                            </li>
            <li class="radio"><input type="radio" name="eventType" id="newOperationFieldyear" value="yearlyrange" />
                            <label for="newOperationFieldyear">Events repeated yearly on a range</label>.
                            <a href="#" class="helptext">[?]</a>
                            <div class="hint">Make a single event on a range repeated yearly. For example, selecting August 1st, 2012  and August 10st, 2012 will make all days between 1st and 10st event, and will affect August 1-10 in other years.</div>
                            </li>
                <li class="radio">
                <input type="checkbox" name="allBranches" id="allBranches" />
                <label for="allBranches">Copy to all libraries</label>.
                <a href="#" class="helptext">[?]</a>
                <div class="hint">If checked, this event will be copied to all libraries. If the event already exists for a library, no change is made.</div>
                </li></ol>
                <fieldset class="action">
                    <input type="submit" name="submit" value="Save" />
                    <a href="#" class="cancel" name="cancel2" onclick=" hidePanel('newEvent');">Cancel</a>
                </fieldset>
                </fieldset>
         </form>
    </div>

    <!-- *************************************************************************************** -->
    <!-- ******                          END OF FLAT PANELS                               ****** -->
    <!-- *************************************************************************************** -->

<!-- ************************************************************************************** -->
<!-- ******                              MAIN SCREEN CODE                            ****** -->
<!-- ************************************************************************************** -->
<h3>Calendar information</h3>
<div id="jcalendar-container"></div>

<div style="margin-top: 2em;">
<form action="/cgi-bin/koha/tools/calendar.pl" method="post">
    <input type="hidden" name="op" value="copyall" />
    <input type="hidden" name="from_branchcode" value="[% branch %]" />
  <label for="branchcode">Copy events to:</label>
  <select id="branchcode" name="branchcode" required>
    <option value=""></option>
    [% FOREACH branchloo IN branchloop %]
    <option value="[% branchloo.value %]">[% branchloo.branchname %]</option>
    [% END %]
  </select>
    <input type="submit" value="Copy" />
</form>
</div>

</div>
<div class="yui-u">
<div class="help">
<h4>Hints</h4>
    <ul>
        <li>Search in the calendar the day you want to set as event.</li>
        <li>Click the date to add or edit a event.</li>
        <li>Enter a title and description for the event.</li>
        <li>Specify how the event should repeat.</li>
        <li>Click Save to finish.</li>
    </ul>
<h4>Key</h4>
    <p>
        <span class="key normalday">Working day</span>
        <span class="key event">Unique event</span>
        <span class="key repeatableweekly">Event repeating weekly</span>
        <span class="key repeatableyearly">Event repeating yearly</span>
    </p>
</div>
<div id="event-list">
[% IF ( weekly_events ) %]
<h3>Weekly - Repeatable Events</h3>
<table id="weekly-events">
<thead>
<tr>
  <th class="repeatableweekly">Day of week</th>
  <th class="repeatableweekly">Title</th>
  <th class="repeatableweekly">Description</th>
  <th class="repeatableweekly">Hours</th>
</tr>
</thead>
<tbody>
  [% FOREACH event IN weekly_events %]
  <tr>
  <td>
<script type="text/javascript">
  document.write(weekdays[ [% event.weekday %]]);
</script>
  </td>
  <td>[% event.title %]</td>
  <td>[% event.description %]</td>
  <td>
    [% IF event.closed %]
    Closed
    [% ELSIF event.close_hour == 24 %]
    Open
    [% ELSE %]
    [% event.open_hour %]:[% event.open_minute > 10 ? event.open_minute : ( '0' _ event.open_minute) %] -
    [% event.close_hour %]:[% event.close_minute > 10 ? event.close_minute : ( '0' _ event.close_minute) %]
    [% END %]
  </td>
  </tr>
  [% END %]
</tbody>
</table>
[% END %]

[% IF ( yearly_events ) %]
<h3>Yearly - Repeatable Events</h3>
<table id="yearly-events">
<thead>
<tr>
  [% IF ( dateformat == "metric" ) %]
  <th class="repeatableyearly">Day/Month</th>
  [% ELSE %]
  <th class="repeatableyearly">Month/Day</th>
  [% END %]
  <th class="repeatableyearly">Title</th>
  <th class="repeatableyearly">Description</th>
  <th class="repeatableyearly">Hours</th>
</tr>
</thead>
<tbody>
  [% FOREACH event IN yearly_events %]
  <tr>
  <td><span title="[% event.month_day_display %]">[% event.month_day_sort %]</span></td>
  <td>[% event.title %]</td>
  <td>[% event.description %]</td>
  <td>
    [% IF event.closed %]
    Closed
    [% ELSIF event.close_hour == 24 %]
    Open
    [% ELSE %]
    [% event.open_hour %]:[% event.open_minute > 10 ? event.open_minute : ( '0' _ event.open_minute) %] -
    [% event.close_hour %]:[% event.close_minute > 10 ? event.close_minute : ( '0' _ event.close_minute) %]
    [% END %]
  </td>
  </tr>
  [% END %]
</tbody>
</table>
[% END %]

[% IF ( single_events ) %]
<h3>Single Events</h3>
<table id="single-events">
<thead>
<tr>
  <th class="event">Date</th>
  <th class="event">Title</th>
  <th class="event">Description</th>
  <th class="event">Hours</th>
</tr>
</thead>
<tbody>
    [% FOREACH event IN single_events %]
<tr>
  <td><a href="/cgi-bin/koha/tools/calendar.pl?branch=[% branch %]&amp;calendardate=[% event.event_date | $KohaDates %]"><span title="[% event.event_date %]">[% event.event_date | $KohaDates %]</span></a></td>
  <td>[% event.title %]</td>
  <td>[% event.description %]</td>
  <td>
    [% IF event.closed %]
    Closed
    [% ELSIF event.close_hour == 24 %]
    Open
    [% ELSE %]
    [% event.open_hour %]:[% event.open_minute > 10 ? event.open_minute : ( '0' _ event.open_minute) %] -
    [% event.close_hour %]:[% event.close_minute > 10 ? event.close_minute : ( '0' _ event.close_minute) %]
    [% END %]
  </td>
</tr>
  [% END %]
</tbody>
</table>
[% END %]
</div>
</div>
</div>
</div>
</div>

<div class="yui-b noprint">
[% INCLUDE 'tools-menu.inc' %]
</div>
</div>
[% INCLUDE 'intranet-bottom.inc' %]




[% INCLUDE 'doc-head-open.inc' %]
<title>Koha &rsaquo; Tools &rsaquo; [% branchname %] calendar</title>
[% INCLUDE 'doc-head-close.inc' %]
[% INCLUDE 'calendar.inc' %]
<link rel="stylesheet" type="text/css" href="[% themelang %]/css/datatables.css" />
[% INCLUDE 'datatables.inc' %]
<script type="text/javascript">
//<![CDATA[
    var weekdays = new Array(_("Sundays"),_("Mondays"),_("Tuesdays"),_("Wednesdays"),_("Thursdays"),_("Fridays"),_("Saturdays"));

    /* Creates all the structures to deal with all different kinds of holidays */
    var week_days = new Array();
    var holidays = new Array();
    var holidates = new Array();
    var exception_holidays = new Array();
    var day_month_holidays = new Array();
    var hola= "[% code %]";
    [% FOREACH WEEK_DAYS_LOO IN WEEK_DAYS_LOOP %]
    week_days["[% WEEK_DAYS_LOO.KEY %]"] = {title:"[% WEEK_DAYS_LOO.TITLE %]", description:"[% WEEK_DAYS_LOO.DESCRIPTION %]"};
    [% END %]
    [% FOREACH HOLIDAYS_LOO IN HOLIDAYS_LOOP %]
    holidates.push("[% HOLIDAYS_LOO.KEY %]");
    holidays["[% HOLIDAYS_LOO.KEY %]"] = {title:"[% HOLIDAYS_LOO.TITLE %]", description:"[% HOLIDAYS_LOO.DESCRIPTION %]"};

    [% END %]
    [% FOREACH EXCEPTION_HOLIDAYS_LOO IN EXCEPTION_HOLIDAYS_LOOP %]
    exception_holidays["[% EXCEPTION_HOLIDAYS_LOO.KEY %]"] = {title:"[% EXCEPTION_HOLIDAYS_LOO.TITLE %]", description:"[% EXCEPTION_HOLIDAYS_LOO.DESCRIPTION %]"};
    [% END %]
    [% FOREACH DAY_MONTH_HOLIDAYS_LOO IN DAY_MONTH_HOLIDAYS_LOOP %]
    day_month_holidays["[% DAY_MONTH_HOLIDAYS_LOO.KEY %]"] = {title:"[% DAY_MONTH_HOLIDAYS_LOO.TITLE %]", description:"[% DAY_MONTH_HOLIDAYS_LOO.DESCRIPTION %]"};
    [% END %]

    function holidayOperation(formObject, opType) {
        var op = document.getElementsByName('operation');
        op[0].value = opType;
        formObject.submit();
    }

    // This function shows the "Show Holiday" panel //
    function showHoliday (exceptionPosibility, dayName, day, month, year, weekDay, title, description, holidayType) {
        $("#newHoliday").slideUp("fast");
        $("#showHoliday").slideDown("fast");
        $('#showDaynameOutput').html(dayName);
        $('#showDayname').val(dayName);
        $('#showBranchNameOutput').html($("#branch :selected").text());
        $('#showBranchName').val($("#branch").val());
        $('#showDayOutput').html(day);
        $('#showDay').val(day);
        $('#showMonthOutput').html(month);
        $('#showMonth').val(month);
        $('#showYearOutput').html(year);
        $('#showYear').val(year);
        $('#showDescription').val(description);
        $('#showWeekday:first').val(weekDay);
        $('#showTitle').val(title);
        $('#showHolidayType').val(holidayType);

        if (holidayType == 'exception') {
            $("#showOperationDelLabel").html(_("Delete this exception."));
            $("#holtype").attr("class","key exception").html(_("Holiday exception"));
        } else if(holidayType == 'weekday') {
            $("#showOperationDelLabel").html(_("Delete this holiday."));
            $("#holtype").attr("class","key repeatableweekly").html(_("Holiday repeating weekly"));
        } else if(holidayType == 'daymonth') {
            $("#showOperationDelLabel").html(_("Delete this holiday."));
            $("#holtype").attr("class","key repeatableyearly").html(_("Holiday repeating yearly"));
        } else {
            $("#showOperationDelLabel").html(_("Delete this holiday."));
            $("#holtype").attr("class","key holiday").html(_("Unique holiday"));
        }
        
        if (exceptionPosibility == 1) {
            $("#exceptionPosibility").parent().show();
        } else {
            $("#exceptionPosibility").parent().hide();
        }
    }

    // This function shows the "Add Holiday" panel //
    function newHoliday (dayName, day, month, year, weekDay) {
        $("#showHoliday").slideUp("fast");
        $("#newHoliday").slideDown("fast");
        $("#newDaynameOutput").html(dayName);
        $("#newDayname").val(dayName);
        $("#newBranchNameOutput").html($('#branch :selected').text());
        $("#newBranchName").val($('#branch').val());
        $("#newDayOutput").html(day);
        $("#newDay").val(day);
        $("#newMonthOutput").html(month);
        $("#newMonth").val(month);
        $("#newYearOutput").html(year);
        $("#newYear").val(year);
        $("#newWeekday:first").val(weekDay);
    }

    function hidePanel(aPanelName) {
        $("#"+aPanelName).slideUp("fast");
    }

    function changeBranch () {
        var branch = $("#branch option:selected").val();
        location.href='/cgi-bin/koha/tools/holidays.pl?branch=' + branch + '&calendardate=' + "[% calendardate %]";
    }

    function Help() {
        newin=window.open("/cgi-bin/koha/help.pl","KohaHelp",'width=600,height=600,toolbar=false,scrollbars=yes');
    }

    /* This function gives css clases to each kind of day */
    function dateStatusHandler(date) {
        date = new Date(date);
        var day = date.getDate();
        var month = date.getMonth() + 1;
        var year = date.getFullYear();
        var weekDay = date.getDay();
        var dayMonth = month + '/' + day;
        var dateString = year + '/' + month + '/' + day;
        if (exception_holidays[dateString] != null) {
            return [true, "exception", _("Exception: %s").format(exception_holidays[dateString].title)];
        } else if ( week_days[weekDay] != null ){
            return [true, "repeatableweekly", _("Weekly holiday: %s").format(week_days[weekDay].title)];
        } else if ( day_month_holidays[dayMonth] != null ) {
            return [true, "repeatableyearly", _("Yearly holiday: %s").format(day_month_holidays[dayMonth].title)];
        } else if (holidays[dateString] != null) {
            return [true, "holiday", _("Single holiday: %s").format(holidays[dateString].title)];
        } else {
            return [true, "normalday", _("Normal day")];
        }
    }

    /* This function is in charge of showing the correct panel considering the kind of holiday */
    function dateChanged(calendar) {
        calendar = new Date(calendar);
        var day = calendar.getDate();
        var month = calendar.getMonth() + 1;
        var year = calendar.getFullYear();
        var weekDay = calendar.getDay();
        var dayName = weekdays[weekDay];
        var dayMonth = month + '/' + day;
        var dateString = year + '/' + month + '/' + day;
            if (holidays[dateString] != null) {
                showHoliday(0, dayName, day, month, year, weekDay, holidays[dateString].title,     holidays[dateString].description, 'ymd');
            } else if (exception_holidays[dateString] != null) {
                showHoliday(0, dayName, day, month, year, weekDay, exception_holidays[dateString].title, exception_holidays[dateString].description, 'exception');
            } else if (week_days[weekDay] != null) {
                showHoliday(1, dayName, day, month, year, weekDay, week_days[weekDay].title,     week_days[weekDay].description, 'weekday');
            } else if (day_month_holidays[dayMonth] != null) {
                showHoliday(1, dayName, day, month, year, weekDay, day_month_holidays[dayMonth].title, day_month_holidays[dayMonth].description, 'daymonth');
            } else {
                newHoliday(dayName, day, month, year, weekDay);
            }
    };

    $(document).ready(function() {

        $(".hint").hide();
        $("#branch").change(function(){
            changeBranch();
        });
        $("#holidayweeklyrepeatable").dataTable($.extend(true, {}, dataTablesDefaults, {
            "sDom": 't',
            "bPaginate": false
        }));
        $("#holidayexceptions,#holidaysyearlyrepeatable,#holidaysunique").dataTable($.extend(true, {}, dataTablesDefaults, {
            "sDom": 't',
            "aoColumns": [
                { "sType": "title-string" },null,null
            ],
            "bPaginate": false
        }));
        $("a.helptext").click(function(){
            $(this).parent().find(".hint").toggle(); return false;
        });
        $("#dateofrange").datepicker();
        $("#datecancelrange").datepicker();
        $("#dateofrange").each(function () { this.value = "" });
        $("#datecancelrange").each(function () { this.value = "" });
        $("#jcalendar-container").datepicker({
          beforeShowDay: function(thedate) {
            var day = thedate.getDate();
            var month = thedate.getMonth() + 1;
            var year = thedate.getFullYear();
            var dateString = year + '/' + month + '/' + day;
            return dateStatusHandler(dateString);
            },
        onSelect: function(dateText, inst) {
            dateChanged($(this).datepicker("getDate"));
        },
        defaultDate: new Date("[% keydate %]")
    });
    });
//]]>
</script>
<style type="text/css"> .key { padding : 3px; white-space:nowrap; line-height:230%; }
.ui-datepicker { font-size : 150%; }
.ui-datepicker th, .ui-datepicker .ui-datepicker-title select { font-size : 80%; }
.ui-datepicker td a { padding : .5em; }
.ui-datepicker .ui-datepicker-buttonpane button.ui-datepicker-current { font-size : 80%; }
.key { padding : 3px; white-space:nowrap; line-height:230%; }
.normalday { background-color :  #EDEDED; color :  Black; border : 1px solid #BCBCBC; }
.exception { background-color :  #b3d4ff; color :  Black; border : 1px solid #BCBCBC; }
.holiday {  background-color :  #ffaeae; color :  Black;  border : 1px solid #BCBCBC; }
.repeatableweekly {  background-color :  #FFFF99; color :  Black;  border : 1px solid #BCBCBC; }
.repeatableyearly {  background-color :  #FFCC66; color :  Black;  border : 1px solid #BCBCBC; }
td.exception a.ui-state-default { background:  #b3d4ff none; color :  Black; border : 1px solid #BCBCBC; }
td.holiday a.ui-state-default {  background:  #ffaeae none; color :  Black;  border : 1px solid #BCBCBC; }
td.repeatableweekly a.ui-state-default {  background:  #FFFF99 none; color :  Black;  border : 1px solid #BCBCBC; }
td.repeatableyearly a.ui-state-default {  background:  #FFCC66 none; color :  Black;  border : 1px solid #BCBCBC; }
.information { z-index : 1; background-color :  #DCD2F1; width : 300px; display : none; border : 1px solid #000000; color :  #000000; font-size :  8pt; font-weight :  bold; background-color :  #FFD700; cursor :  pointer; padding : 2px; }
.panel { z-index : 1; display : none; border : 3px solid #CCC; padding : 3px; margin-top: .3em;  background-color: #FEFEFE; } fieldset.brief { border : 0; margin-top: 0; }
#showHoliday { margin : .5em 0; } h1 select { width: 20em; } div.yui-b fieldset.brief ol { font-size:100%; } div.yui-b fieldset.brief li, div.yui-b fieldset.brief li.radio  { padding:0.2em 0; } .help { margin:.3em 0;border:1px solid #EEE;padding:.3em .7em; font-size : 90%; } #holidayweeklyrepeatable, #holidaysyearlyrepeatable, #holidaysunique, #holidayexceptions { font-size : 90%; margin-bottom : 1em;} .calendar td, .calendar th, .calendar .button, .calendar tbody .day { padding : .7em; font-size: 110%; } .calendar { width: auto; border : 0; }
</style>
</head>
<body id="tools_holidays" class="tools">
[% INCLUDE 'header.inc' %]
[% INCLUDE 'cat-search.inc' %]

<div id="breadcrumbs"><a href="/cgi-bin/koha/mainpage.pl">Home</a> &rsaquo; <a href="/cgi-bin/koha/tools/tools-home.pl">Tools</a> &rsaquo; [% branchname %] calendar</div>

<div id="doc3" class="yui-t1">
   
   <div id="bd">
    <div id="yui-main">
    <div class="yui-b">
    <h2>[% branchname %] calendar</h2>
    <div class="yui-g">
    <div class="yui-u first">
        <label for="branch">Define the holidays for:</label>
            <select id="branch" name="branch">
                [% FOREACH branchloo IN branchloop %]
                    [% IF ( branchloo.selected ) %]
                        <option value="[% branchloo.value %]" selected="selected">[% branchloo.branchname %]</option>
                    [% ELSE %]
                        <option value="[% branchloo.value %]">[% branchloo.branchname %]</option>
                    [% END %]
                [% END %]
            </select>
    
    <!-- ******************************** FLAT PANELS ******************************************* -->
    <!-- *****           Makes all the flat panel to deal with holidays                     ***** -->
    <!-- **************************************************************************************** -->

    <!-- ********************** Panel for showing already loaded holidays *********************** -->
    <div class="panel" id="showHoliday">
         <form action="/cgi-bin/koha/tools/exceptionHolidays.pl" method="post">
             <input type="hidden" id="showHolidayType" name="showHolidayType" value="" />
            <fieldset class="brief">
            <h3>Edit this holiday</h3>
            <span id="holtype"></span>
            <ol>
            <li>
                <strong>Library:</strong> <span id="showBranchNameOutput"></span>
                <input type="hidden" id="showBranchName" name="showBranchName" />
            </li>
            <li>
                <strong>From date:</strong>
                <span id="showDaynameOutput"></span>, 
                
                                [% IF ( dateformat == "us" ) %]<span id="showMonthOutput"></span>/<span id="showDayOutput"></span>/<span id="showYearOutput"></span>[% ELSIF ( dateformat == "metric" ) %]<span id="showDayOutput"></span>/<span id="showMonthOutput"></span>/<span id="showYearOutput"></span>[% ELSE %]<span id="showYearOutput"></span>/<span id="showMonthOutput"></span>/<span id="showDayOutput"></span>[% END %]

                <input type="hidden" id="showDayname" name="showDayname" />
                <input type="hidden" id="showWeekday" name="showWeekday" />
                <input type="hidden" id="showDay" name="showDay" />
                <input type="hidden" id="showMonth" name="showMonth" />
                <input type="hidden" id="showYear" name="showYear" />
            </li>
            <li class="dateinsert">
                <b>To Date : </b>
                <input type="text" id="datecancelrange" name="datecancelrange" size="20" value="[% datecancelrange %]" class="datepicker"/>
            </li>
            <li><label for="showTitle">Title: </label><input type="text" name="showTitle" id="showTitle" size="35" /></li>
            <!-- showTitle is necessary for exception radio button to work properly -->
            <li>
                <label for="showDescription">Description:</label>
                <textarea rows="2" cols="40" id="showDescription" name="showDescription"></textarea>
            </li>
            <li class="radio"><div id="exceptionPosibility" style="position:static">
                <input type="radio" name="showOperation" id="showOperationExc" value="exception" /> <label for="showOperationExc">Generate an exception for this repeated holiday.</label>
                <a href="#" class="helptext">[?]</a>
                <div class="hint">You can make an exception for this holiday rule. This means that you will be able to say that for a repeatable holiday there is one day which is going to be an exception.</div>
            </div></li>
            <li class="radio"><input type="radio" name="showOperation" id="showOperationExcRange" value="exceptionrange" />
                <label for="showOperationExcRange">Generate exceptions on a range of dates.</label>
                <a href="#" class="helptext">[?]</a>
                <div class="hint">You can make an exception on a range of dates repeated yearly.</div>
            </li>
            <li class="radio"><input type="radio" name="showOperation" id="showOperationDel" value="delete" /> <label for="showOperationDel" id="showOperationDelLabel">Delete this holiday</label>
                <a href="#" class="helptext">[?]</a>
                <div class="hint">This will delete this holiday rule. If it is a repeatable holiday, this option checks for possible exceptions. If an exception exists, this option will remove the exception and set the date to a regular holiday.</div></li>
            <li class="radio"><input type="radio" name="showOperation" id="showOperationDelRange" value="deleterange" /> <label for="showOperationDelRange" id="showOperationDelLabelRange">Delete the single holidays on a range</label>.
                <a href="#" class="helptext">[?]</a>
                <div class="hint">This will delete the single holidays rules only. The repeatable holidays and exceptions will not be deleted.</div>
            </li>
            <li class="radio"><input type="radio" name="showOperation" id="showOperationDelRangeRepeat" value="deleterangerepeat" /> <label for="showOperationDelRangeRepeat" id="showOperationDelLabelRangeRepeat">Delete the repeated holidays on a range</label>.
                <a href="#" class="helptext">[?]</a>
                <div class="hint">This will delete the repeated holidays rules only. The repeatable holidays will be deleted but not the exceptions.</div>
            </li>
            <li class="radio"><input type="radio" name="showOperation" id="showOperationDelRangeRepeatExcept" value="deleterangerepeatexcept" /> <label for="showOperationDelRangeRepeatExcept" id="showOperationDelLabelRangeRepeatExcept">Delete the exceptions on a range</label>.
                <a href="#" class="helptext">[?]</a>
                <div class="hint">This will delete the exceptions inside a given range. Be careful about your scope range if it is oversized you could slow down Koha.</div>
            </li>
            <li class="radio"><input type="radio" name="showOperation" id="showOperationEdit" value="edit" checked="checked" /> <label for="showOperationEdit">Edit this holiday</label>
                <a href="#" class="helptext">[?]</a>
                <div class="hint">This will save changes to the holiday's title and description. If the information for a repeatable holiday is modified, it affects all of the dates on which the holiday is repeated.</div></li>
            </ol>
            <fieldset class="action">
                <input type="submit" name="submit" value="Save" />
                <a href="#" class="cancel" onclick=" hidePanel('showHoliday');">Cancel</a>
            </fieldset>
            </fieldset>
        </form>
    </div>

    <!-- ***************************** Panel to deal with new holidays **********************  -->
    <div class="panel" id="newHoliday">
         <form action="/cgi-bin/koha/tools/newHolidays.pl" method="post">
                <input type="hidden" name="branchCodes" id="branchCodes" value="[% branchcodes %]" /> 
            <fieldset class="brief">
            <h3>Add new holiday</h3>
            <ol>
            <li>
                <strong>Library:</strong>
                <span id="newBranchNameOutput"></span>
                <input type="hidden" id="newBranchName" name="newBranchName" />
            </li>
            <li>
                <strong>From date:</strong>
                <span id="newDaynameOutput"></span>, 

                         [% IF ( dateformat == "us" ) %]<span id="newMonthOutput"></span>/<span id="newDayOutput"></span>/<span id="newYearOutput"></span>[% ELSIF ( dateformat == "metric" ) %]<span id="newDayOutput"></span>/<span id="newMonthOutput"></span>/<span id="newYearOutput"></span>[% ELSE %]<span id="newYearOutput"></span>/<span id="newMonthOutput"></span>/<span id="newDayOutput"></span>[% END %]

                <input type="hidden" id="newDayname" name="showDayname" />
                <input type="hidden" id="newWeekday" name="newWeekday" />
                <input type="hidden" id="newDay" name="newDay" />
                <input type="hidden" id="newMonth" name="newMonth" />
                <input type="hidden" id="newYear" name="newYear" />
            </li>
            <li class="dateinsert">
                <b>To date: </b>
                <input type="text" id="dateofrange" name="dateofrange" size="20" value="[% dateofrange %]" class="datepicker" />
            </li>
            <li><label for="title">Title: </label><input type="text" name="newTitle" id="title" size="35" /></li>
            <li><label for="newDescription">Description:</label>
                <textarea rows="2" cols="40" id="newDescription" name="newDescription"></textarea>
            </li>
            <li class="radio"><input type="radio" name="newOperation" id="newOperationOnce" value="holiday" checked="checked" />
            <label for="newOperationOnce">Holiday only on this day</label>.
            <a href="#" class="helptext">[?]</a>
            <div class="hint">Make a single holiday. For example, selecting August 1, 2012 will make it a holiday, but will not affect August 1 in other years.</div>
            </li>
            <li class="radio"><input type="radio" name="newOperation" id="newOperationDay" value="weekday" />
                            <label for="newOperationDay">Holiday repeated every same day of the week</label>.
                            <a href="#" class="helptext">[?]</a>
                            <div class="hint">Make this weekday a holiday, every week. For example, if your library is closed on Saturdays, use this option to make every Saturday a holiday.</div>
                            </li>
            <li class="radio"><input type="radio" name="newOperation" id="newOperationYear" value="repeatable" />
                            <label for="newOperationYear">Holiday repeated yearly on the same date</label>.
                            <a href="#" class="helptext">[?]</a>
                            <div class="hint">This will take this day and month as a reference to make it a holiday. Through this option, you can repeat this rule for every year. For example, selecting August 1 will make August 1 a holiday every year.</div>
                            </li>
            <li class="radio"><input type="radio" name="newOperation" id="newOperationField" value="holidayrange" />
                            <label for="newOperationField">Holidays on a range</label>.
                            <a href="#" class="helptext">[?]</a>
                            <div class="hint">Make a single holiday on a range. For example, selecting August 1, 2012  and August 10, 2012 will make all days between August 1 and 10 a holiday, but will not affect August 1-10 in other years.</div>
                            </li>
            <li class="radio"><input type="radio" name="newOperation" id="newOperationFieldyear" value="holidayrangerepeat" />
                            <label for="newOperationFieldyear">Holidays repeated yearly on a range</label>.
                            <a href="#" class="helptext">[?]</a>
                            <div class="hint">Make a single holiday on a range repeated yearly. For example, selecting August 1, 2012  and August 10, 2012 will make all days between August 1 and 10 a holiday, and will affect August 1-10 in other years.</div>
                            </li>
                <li class="radio">
                <input type="checkbox" name="allBranches" id="allBranches" />
                <label for="allBranches">Copy to all libraries</label>.
                <a href="#" class="helptext">[?]</a>
                <div class="hint">If checked, this holiday will be copied to all libraries. If the holiday already exists for a library, no change is made.</div>
                </li></ol>
                <fieldset class="action">
                    <input type="submit" name="submit" value="Save" />
                    <a href="#" class="cancel" onclick=" hidePanel('newHoliday');">Cancel</a>
                </fieldset>
                </fieldset>
         </form>
    </div>

    <!-- *************************************************************************************** -->
    <!-- ******                          END OF FLAT PANELS                               ****** -->
    <!-- *************************************************************************************** -->

<!-- ************************************************************************************** -->
<!-- ******                              MAIN SCREEN CODE                            ****** -->
<!-- ************************************************************************************** -->
<h3>Calendar information</h3>
<div id="jcalendar-container"></div>

<div style="margin-top: 2em;">
<form action="copy-holidays.pl" method="post">
    <input type="hidden" name="from_branchcode" value="[% branch %]" />
  <label for="branchcode">Copy holidays to:</label>
  <select id="branchcode" name="branchcode">
    <option value=""></option>
    [% FOREACH branchloo IN branchloop %]
    <option value="[% branchloo.value %]">[% branchloo.branchname %]</option>
    [% END %]
  </select>
    <input type="submit" value="Copy" />
</form>
</div>

</div>
<div class="yui-u">
<div class="help">
<h4>Hints</h4>
    <ul>
        <li>Search in the calendar the day you want to set as holiday.</li>
        <li>Click the date to add or edit a holiday.</li>
        <li>Enter a title and description for the holiday.</li>
        <li>Specify how the holiday should repeat.</li>
        <li>Click Save to finish.</li>
    </ul>
<h4>Key</h4>
    <p>
        <span class="key normalday">Working day</span>
        <span class="key holiday">Unique holiday</span>
        <span class="key repeatableweekly">Holiday repeating weekly</span>
        <span class="key repeatableyearly">Holiday repeating yearly</span>
        <span class="key exception">Holiday exception</span>
    </p>
</div>
<div id="holiday-list">
<!-- Exceptions First -->
<!--   this will probably always have the least amount of data -->
[% IF ( EXCEPTION_HOLIDAYS_LOOP ) %]
<h3>Exceptions</h3>
  <table id="holidayexceptions">
<thead><tr>
  <th class="exception">Date</th>
  <th class="exception">Title</th>
  <th class="exception">Description</th>
</tr>
</thead>
<tbody>
  [% FOREACH EXCEPTION_HOLIDAYS_LOO IN EXCEPTION_HOLIDAYS_LOOP %]
  <tr>
  <td><a href="/cgi-bin/koha/tools/holidays.pl?branch=[% branch %]&amp;calendardate=[% EXCEPTION_HOLIDAYS_LOO.DATE %]"><span title="[% EXCEPTION_HOLIDAYS_LOO.DATE_SORT %]">[% EXCEPTION_HOLIDAYS_LOO.DATE %]</span></a></td>
  <td>[% EXCEPTION_HOLIDAYS_LOO.TITLE %]</td>
  <td>[% EXCEPTION_HOLIDAYS_LOO.DESCRIPTION %]</td> 
  </tr>
  [% END %] 
</tbody>
</table>
[% END %]

[% IF ( WEEK_DAYS_LOOP ) %]
<h3>Weekly - Repeatable holidays</h3>
<table id="holidayweeklyrepeatable">
<thead>
<tr>
  <th class="repeatableweekly">Day of week</th>
  <th class="repeatableweekly">Title</th>
  <th class="repeatableweekly">Description</th>
</tr>
</thead>
<tbody>
  [% FOREACH WEEK_DAYS_LOO IN WEEK_DAYS_LOOP %]
  <tr>
  <td>
<script type="text/javascript">
  document.write(weekdays[ [% WEEK_DAYS_LOO.KEY %]]);
</script>
  </td> 
  <td>[% WEEK_DAYS_LOO.TITLE %]</td> 
  <td>[% WEEK_DAYS_LOO.DESCRIPTION %]</td> 
  </tr>
  [% END %] 
</tbody>
</table>
[% END %]

[% IF ( DAY_MONTH_HOLIDAYS_LOOP ) %]
<h3>Yearly - Repeatable holidays</h3>
<table id="holidaysyearlyrepeatable">
<thead>
<tr>
  [% IF ( dateformat == "metric" ) %]
  <th class="repeatableyearly">Day/month</th>
  [% ELSE %]
  <th class="repeatableyearly">Month/day</th>
  [% END %]
  <th class="repeatableyearly">Title</th>
  <th class="repeatableyearly">Description</th>
</tr>
</thead>
<tbody>
  [% FOREACH DAY_MONTH_HOLIDAYS_LOO IN DAY_MONTH_HOLIDAYS_LOOP %]
  <tr>
  <td><span title="[% DAY_MONTH_HOLIDAYS_LOO.DATE_SORT %]">[% DAY_MONTH_HOLIDAYS_LOO.DATE %]</span></td>
  <td>[% DAY_MONTH_HOLIDAYS_LOO.TITLE %]</td> 
  <td>[% DAY_MONTH_HOLIDAYS_LOO.DESCRIPTION %]</td> 
  </tr>
  [% END %] 
</tbody>
</table>
[% END %]

[% IF ( HOLIDAYS_LOOP ) %]
<h3>Unique holidays</h3>
<table id="holidaysunique">
<thead>
<tr>
  <th class="holiday">Date</th>
  <th class="holiday">Title</th>
  <th class="holiday">Description</th>
</tr>
</thead>
<tbody>
    [% FOREACH HOLIDAYS_LOO IN HOLIDAYS_LOOP %]
<tr>
  <td><a href="/cgi-bin/koha/tools/holidays.pl?branch=[% branch %]&amp;calendardate=[% HOLIDAYS_LOO.DATE %]"><span title="[% HOLIDAYS_LOO.DATE_SORT %]">[% HOLIDAYS_LOO.DATE %]</span></a></td>
  <td>[% HOLIDAYS_LOO.TITLE %]</td>
  <td>[% HOLIDAYS_LOO.DESCRIPTION %]</td>
</tr>
  [% END %] 
</tbody>
</table>
[% END %]
</div>
</div>
</div>
</div>
</div>

<div class="yui-b noprint">
[% INCLUDE 'tools-menu.inc' %]
</div>
</div>
[% INCLUDE 'intranet-bottom.inc' %]

Lines 73-79 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/tools-home.tt (-1 / +1 lines)
73	<h3>Additional tools</h3>	73	<h3>Additional tools</h3>
74	<dl>	74	<dl>
75	[% IF ( CAN_user_tools_edit_calendar ) %]	75	[% IF ( CAN_user_tools_edit_calendar ) %]
76	<dt><a href="/cgi-bin/koha/tools/holidays.pl">Calendar</a></dt>	76	<dt><a href="/cgi-bin/koha/tools/calendar.pl">Calendar</a></dt>
77	<dd>Define days when the library is closed</dd>	77	<dd>Define days when the library is closed</dd>
78	[% END %]	78	[% END %]
79		79

Lines 40-48 use Date::Calc qw/Date_to_Days/; Link Here

(-)a/misc/cronjobs/staticfines.pl (-3 / +8 lines)
40	use C4::Context;	40	use C4::Context;
41	use C4::Circulation;	41	use C4::Circulation;
42	use C4::Overdues;	42	use C4::Overdues;
43	use C4::Calendar qw(); # don't need any exports from Calendar
44	use C4::Biblio;	43	use C4::Biblio;
45	use C4::Debug; # supplying $debug and $cgi_debug	44	use C4::Debug; # supplying $debug and $cgi_debug
		45	use Koha::Calendar;
		46
46	use Getopt::Long;	47	use Getopt::Long;
47	use List::MoreUtils qw/none/;	48	use List::MoreUtils qw/none/;
48	use Koha::DateUtils;	49	use Koha::DateUtils;
Lines 172-181 for ( my $i = 0 ; $i < scalar(@$data) ; $i++ ) { Link Here
172		173
173	my $calendar;	174	my $calendar;
174	unless ( defined( $calendars{$branchcode} ) ) {	175	unless ( defined( $calendars{$branchcode} ) ) {
175	$calendars{$branchcode} = C4::Calendar->new( branchcode => $branchcode );	176	$calendars{$branchcode} = Koha::Calendar->new( branchcode => $branchcode );
176	}	177	}
177	$calendar = $calendars{$branchcode};	178	$calendar = $calendars{$branchcode};
178	my $isHoliday = $calendar->isHoliday( $tday, $tmonth, $tyear );	179	my $isHoliday = $calendar->is_holiday( DateTime->new(
		180	year => $tyear,
		181	month => $tmonth,
		182	day => $tday
		183	) );
179		184
180	# Reassing datedue_days if -delay specified in commandline	185	# Reassing datedue_days if -delay specified in commandline
181	$bigdebug and warn "Using commandline supplied delay : $delay" if ($delay);	186	$bigdebug and warn "Using commandline supplied delay : $delay" if ($delay);




use C4::Letters;
use C4::Overdues;
use C4::Dates;
use Koha::Calendar;

sub usage {
    pod2usage( -verbose => 2 );

          sprintf( "%04d-%02d-%02d", $date_due[0], $date_due[1], $date_due[2] );
        $issue->{'level'} = 1;   # only one level for Hold Waiting notifications

        my $calendar = Koha::Calendar->new( branchcode => $issue->{'site'} );
        $issue->{'days_since_waiting'} = $calendar->days_between(
            DateTime->new(
                year => $waitingdate[0],
                month => $waitingdate[1],
                day => $waitingdate[2],
                time_zone => C4::Context->tz,
            ),
            DateTime->now(
                time_zone => C4::Context->tz,
            ),
        );
        {
            $days_to_subtract++;
        }
        $issue->{'days_since_waiting'} =
          $issue->{'days_since_waiting'} - $days_to_subtract;

        if (
            (




use warnings;
use DateTime;
use DateTime::Duration;
use Test::More tests => 34;
use Test::MockModule;
use DBD::Mock;
use Koha::DateUtils;

BEGIN {
    use_ok('Koha::Calendar');

    # This was the only test C4 had
    # Remove when no longer used
    use_ok('C4::Calendar');
}

my $module_context = new Test::MockModule('C4::Context');




use Modern::Perl;

use Test::More tests => 14;

use C4::Calendar;
use C4::Context;

my $dbh = C4::Context->dbh;

# Start transaction
$dbh->{AutoCommit} = 0;
$dbh->{RaiseError} = 1;

my %new_holiday = ( open_hour    => 0,
                    open_minute  => 0,
                    close_hour   => 0,
                    close_minute => 0,
                    title        => 'example week_day_holiday',
                    description  => 'This is an example week_day_holiday used for testing' );

# Weekly events
ModRepeatingEvent( 'UPL', { weekday => 1, %new_holiday } );

my $weekly_events = GetWeeklyEvents( 'UPL' );
is( $weekly_events->[0]->{'title'}, $new_holiday{'title'}, 'weekly title' );
is( $weekly_events->[0]->{'description'}, $new_holiday{'description'}, 'weekly description' );

$new_holiday{close_hour} = 24;

ModRepeatingEvent( 'UPL', { weekday => 1, %new_holiday } );
$weekly_events = GetWeeklyEvents( 'UPL' );
is( scalar @$weekly_events, 0, 'weekly modification, not insertion' );

$new_holiday{close_hour} = 0;
ModRepeatingEvent( 'UPL', { weekday => 1, %new_holiday } );

# Yearly events

ModRepeatingEvent( 'UPL', { month => 6, day => 26, %new_holiday } );

my $yearly_events = GetYearlyEvents( 'UPL' );
is( $yearly_events->[0]->{'title'}, $new_holiday{'title'}, 'yearly title' );
is( $yearly_events->[0]->{'description'}, $new_holiday{'description'}, 'yearly description' );

$new_holiday{close_hour} = 24;

ModRepeatingEvent( 'UPL', { month => 6, day => 26, %new_holiday } );
$yearly_events = GetYearlyEvents( 'UPL' );
is( scalar @$yearly_events, 0, 'yearly modification, not insertion' );

$new_holiday{close_hour} = 0;
ModRepeatingEvent( 'UPL', { month => 6, day => 26, %new_holiday } );

# Single events

ModSingleEvent( 'UPL', { date => '2013-03-17', %new_holiday } );

my $single_events = GetSingleEvents( 'UPL' );
is( $single_events->[0]->{'title'}, $new_holiday{'title'}, 'single title' );
is( $single_events->[0]->{'description'}, $new_holiday{'description'}, 'single description' );
is( $single_events->[0]->{'closed'}, 1, 'single closed' );

$new_holiday{close_hour} = 24;

ModSingleEvent( 'UPL', { date => '2013-03-17', %new_holiday } );
$single_events = GetSingleEvents( 'UPL' );
is( scalar @$single_events, 1, 'single modification, not insertion' );
is( $single_events->[0]->{'closed'}, 0, 'single closed' );


# delete

DelRepeatingEvent( 'UPL', { weekday => 1 } );
$weekly_events = GetWeeklyEvents( 'UPL' );
is( scalar @$weekly_events, 0, 'weekly deleted' );

DelRepeatingEvent( 'UPL', { month => 6, day => 26 } );
$yearly_events = GetYearlyEvents( 'UPL' );
is( scalar @$yearly_events, 0, 'yearly deleted' );

DelSingleEvent( 'UPL', { date => '2013-03-17' } );

$single_events = GetSingleEvents( 'UPL' );
is( scalar @$single_events, 0, 'single deleted' );

$dbh->rollback;




use DateTime::TimeZone;

use C4::Context;
use Test::More tests => 6;

BEGIN { use_ok('Koha::Calendar'); }
BEGIN { use_ok('C4::Calendar'); }

my $branchcode = 'MPL';

my $koha_calendar = Koha::Calendar->new( branchcode => $branchcode );
my $c4_calendar = C4::Calendar->new( branchcode => $branchcode );

isa_ok( $koha_calendar, 'Koha::Calendar', 'Koha::Calendar class returned' );
isa_ok( $c4_calendar,   'C4::Calendar',   'C4::Calendar class returned' );

my $sunday = DateTime->new(
    year  => 2011,

is( $koha_calendar->is_holiday($monday),    0, 'Monday is not a closed day' );
is( $koha_calendar->is_holiday($christmas), 1, 'Christmas is a closed day' );
is( $koha_calendar->is_holiday($newyear), 1, 'New Years day is a closed day' );

my $custom_holiday = DateTime->new(
    year  => 2013,
    month => 11,
    day   => 12,
);
is( $koha_calendar->is_holiday($custom_holiday), 0, '2013-11-10 does not start off as a holiday' );
$koha_calendar->add_holiday($custom_holiday);
is( $koha_calendar->is_holiday($custom_holiday), 1, 'able to add holiday for testing' );





#!/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 3 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, see <http://www.gnu.org/licenses>.

#####Sets holiday periods for each branch. Datedues will be extended if branch is closed -TG

use Modern::Perl;

use CGI;

use C4::Auth;
use C4::Output;

use C4::Branch; # GetBranches
use C4::Calendar;

my $input = new CGI;

my $dbh = C4::Context->dbh();
# Get the template to use
my ($template, $loggedinuser, $cookie)
    = get_template_and_user({template_name => "tools/calendar.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('branchName') || $input->param('branch') || C4::Context->userenv->{'branch'};
# Set all the branches.
my $onlymine=(C4::Context->preference('IndependentBranches') &&
              C4::Context->userenv &&
              C4::Context->userenv->{flags} % 2 !=1  &&
              C4::Context->userenv->{branch}?1:0);
if ( $onlymine ) {
    $branch = C4::Context->userenv->{'branch'};
}
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'},
      };
}

# branches calculated - put branch codes in a single string so they can be passed in a form
my $branchcodes = join '|', keys %{$branches};

my $op = $input->param( 'op' ) // '';

my @ranged_dates;

if ( my $dateofrange = $input->param( 'dateofrange' ) ) {
    my $date = $input->param( 'year' ) . '-' . $input->param( 'month' ) . '-' . $input->param( 'day' );

    my ( $start_year, $start_month, $start_day ) = split( /-/, $date );
    my ( $end_year, $end_month, $end_day ) = split( /-/, C4::Dates->new( $dateofrange )->output( 'iso' ) );

    if ( $end_year && $end_month && $end_day ){
        my $first_dt = DateTime->new(year => $start_year, month => $start_month, day => $start_day);
        my $end_dt   = DateTime->new(year => $end_year, month => $end_month, day => $end_day);

        for ( my $dt = $first_dt->clone(); $dt <= $end_dt; $dt->add(days => 1) ) {
            push @ranged_dates, $dt->clone();
        }
    }
}

my @branches;
if ( $input->param( 'allBranches' ) || !$input->param( 'branchName' ) ) {
    @branches = split /\|/, $input->param( 'branchcodes' );
} else {
    @branches = ( $input->param( 'branchName' ) );
}

if ( $op eq 'save' ) {
    my $date = $input->param( 'year' ) . '-' . $input->param( 'month' ) . '-' . $input->param( 'day' );

    local our ( $open_hour, $open_minute, $close_hour, $close_minute );

    if ( $input->param( 'hoursType' ) eq 'open' ) {
        ( $open_hour, $open_minute ) = ( 0, 0 );
        ( $close_hour, $close_minute ) = ( 24, 0 );
    } elsif ( $input->param( 'hoursType' ) eq 'closed' ) {
        ( $open_hour, $open_minute ) = ( 0, 0 );
        ( $close_hour, $close_minute ) = ( 0, 0 );
    } else {
        ( $open_hour, $open_minute ) = ( $input->param( 'openTime' ) =~ /(0?[0-9]|1[0-9]|2[0-3]):([0-5][0-9])/ );
        ( $close_hour, $close_minute ) = ( $input->param( 'closeTime' ) =~ /(0?[0-9]|1[0-9]|2[0-3]):([0-5][0-9])/ );
    }

    foreach my $branchcode ( @branches ) {
        my %event_types = (
            'single' => sub {
                ModSingleEvent( $branchcode, {
                    date => $date,
                    title => $input->param( 'title' ),
                    description => $input->param( 'description' ),
                    open_hour => $open_hour,
                    open_minute => $open_minute,
                    close_hour => $close_hour,
                    close_minute => $close_minute
                } );
            },

            'weekly' => sub {
                ModRepeatingEvent( $branchcode, {
                    weekday => $input->param( 'weekday' ),
                    title => $input->param( 'title' ),
                    description => $input->param( 'description' ),
                    open_hour => $open_hour,
                    open_minute => $open_minute,
                    close_hour => $close_hour,
                    close_minute => $close_minute
                } );
            },

            'yearly' => sub {
                ModRepeatingEvent( $branchcode, {
                    month => $input->param( 'month' ),
                    day => $input->param( 'day' ),
                    title => $input->param( 'title' ),
                    description => $input->param( 'description' ),
                    open_hour => $open_hour,
                    open_minute => $open_minute,
                    close_hour => $close_hour,
                    close_minute => $close_minute
                } );
            },

            'singlerange' => sub {
                foreach my $dt ( @ranged_dates ) {
                    ModSingleEvent( $branchcode, {
                        date => $dt->ymd,
                        title => $input->param( 'title' ),
                        description => $input->param( 'description' ),
                        open_hour => $open_hour,
                        open_minute => $open_minute,
                        close_hour => $close_hour,
                        close_minute => $close_minute
                    } );
                }
            },

            'yearlyrange' => sub {
                foreach my $dt ( @ranged_dates ) {
                    ModRepeatingEvent( $branchcode, {
                        month => $dt->month,
                        day => $dt->day,
                        title => $input->param( 'title' ),
                        description => $input->param( 'description' ),
                        open_hour => $open_hour,
                        open_minute => $open_minute,
                        close_hour => $close_hour,
                        close_minute => $close_minute
                    } );
                }
            },
        );

        # Choose from the above options
        $event_types{ $input->param( 'eventType' ) }->();
    }
} elsif ( $op eq 'delete' ) {
    my $date = $input->param( 'year' ) . '-' . $input->param( 'month' ) . '-' . $input->param( 'day' );

    foreach my $branchcode ( @branches ) {
        my %event_types = (
            'single' => sub {
                DelSingleEvent( $branchcode, { date => $date } );
            },

            'weekly' => sub {
                DelRepeatingEvent( $branchcode, { weekday => $input->param( 'weekday' ) } );
            },

            'yearly' => sub {
                DelRepeatingEvent( $branchcode, { month => $input->param( 'month' ), day => $input->param( 'day' ) } );
            },
        );

        # Choose from the above options
        $event_types{ $input->param( 'eventType' ) }->();
    }
} elsif ( $op eq 'deleterange' ) {
    foreach my $branchcode ( @branches ) {
        foreach my $dt ( @ranged_dates ) {
            DelSingleEvent( $branchcode, { date => $dt->ymd } );
        }
    }
} elsif ( $op eq 'deleterangerepeat' ) {
    foreach my $branchcode ( @branches ) {
        foreach my $dt ( @ranged_dates ) {
            DelRepeatingEvent( $branchcode, { month => $dt->month, day => $dt->day } );
        }
    }
} elsif ( $op eq 'copyall' ) {
    CopyAllEvents( $input->param( 'from_branchcode' ), $input->param( 'branchcode' ) );
}

my $yearly_events = GetYearlyEvents($branch);
foreach my $event ( @$yearly_events ) {
    # Determine date format on month and day.
    my $day_monthdate;
    my $day_monthdate_sort;
    if (C4::Context->preference("dateformat") eq "metric") {
      $day_monthdate_sort = "$event->{month}-$event->{day}";
      $day_monthdate = "$event->{day}/$event->{month}";
    } elsif (C4::Context->preference("dateformat") eq "us") {
      $day_monthdate = "$event->{month}/$event->{day}";
      $day_monthdate_sort = $day_monthdate;
    } else {
      $day_monthdate = "$event->{month}-$event->{day}";
      $day_monthdate_sort = $day_monthdate;
    }

    $event->{month_day_display} = $day_monthdate;
    $event->{month_day_sort} = $day_monthdate_sort;
}

$template->param(
    weekly_events            => GetWeeklyEvents($branch),
    yearly_events            => $yearly_events,
    single_events            => GetSingleEvents($branch),
    branchloop               => \@branchloop,
    calendardate             => $calendardate,
    keydate                  => $keydate,
    branchcodes              => $branchcodes,
    branch                   => $branch,
    branchname               => $branchname,
);

# Shows the template with the real values replaced
output_html_with_http_headers $input, $cookie, $template->output;




#!/usr/bin/perl

# Copyright 2012 Catalyst IT
#
# 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.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use strict;
use warnings;

use CGI;

use C4::Auth;
use C4::Output;


use C4::Calendar;

my $input               = new CGI;
my $dbh                 = C4::Context->dbh();

my $branchcode          = $input->param('branchcode');
my $from_branchcode     = $input->param('from_branchcode');

C4::Calendar->new(branchcode => $from_branchcode)->copy_to_branch($branchcode) if $from_branchcode && $branchcode;

print $input->redirect("/cgi-bin/koha/tools/holidays.pl?branch=".($branchcode || $from_branchcode));




#!/usr/bin/perl

use strict;
use warnings;

use CGI;

use C4::Auth;
use C4::Output;
use DateTime;

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 $day1;
my $month1;
my $year1;
my $title = $input->param('showTitle');
my $description = $input->param('showDescription');
my $holidaytype = $input->param('showHolidayType');
my $datecancelrange = $input->param('datecancelrange');
my $calendardate = sprintf("%04d-%02d-%02d", $year, $month, $day);
my $isodate = C4::Dates->new($calendardate, 'iso');
$calendardate = $isodate->output('syspref');

my $calendar = C4::Calendar->new(branchcode => $branchcode);

$title || ($title = '');
if ($description) {
    $description =~ s/\r/\\r/g;
    $description =~ s/\n/\\n/g;
} else {
    $description = '';
}   

# We format the date
my @dateend = split(/[\/-]/, $datecancelrange);
if (C4::Context->preference("dateformat") eq "metric") {
    $day1 = $dateend[0];
    $month1 = $dateend[1];
    $year1 = $dateend[2];
}elsif (C4::Context->preference("dateformat") eq "us") {
    $month1 = $dateend[0];
    $day1 = $dateend[1];
    $year1 = $dateend[2];
} else {
    $year1 = $dateend[0];
    $month1 = $dateend[1];
    $day1 = $dateend[2];
}

# We make an array with holiday's days
my @holiday_list;
if ($year1 && $month1 && $day1){
            my $first_dt = DateTime->new(year => $year, month  => $month,  day => $day);
            my $end_dt   = DateTime->new(year => $year1, month  => $month1,  day => $day1);

            for (my $dt = $first_dt->clone();
                $dt <= $end_dt;
                $dt->add(days => 1) )
                {
                push @holiday_list, $dt->clone();
                }
}
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 'exceptionrange' ) {
        if (@holiday_list){
            foreach my $date (@holiday_list){
                $calendar->insert_exception_holiday(
                    day         => $date->{local_c}->{day},
                    month       => $date->{local_c}->{month},
                    year       => $date->{local_c}->{year},
                    title       => $title,
                    description => $description
                    );
            }
        }
} elsif ($input->param('showOperation') eq 'edit') {
    if($holidaytype eq 'weekday') {
      $calendar->ModWeekdayholiday(weekday => $weekday,
                                   title => $title,
                                   description => $description);
    } elsif ($holidaytype eq 'daymonth') {
      $calendar->ModDaymonthholiday(day => $day,
                                    month => $month,
                                    title => $title,
                                    description => $description);
    } elsif ($holidaytype eq 'ymd') {
      $calendar->ModSingleholiday(day => $day,
                                  month => $month,
                                  year => $year,
                                  title => $title,
                                  description => $description);
    } elsif ($holidaytype eq 'exception') {
      $calendar->ModExceptionholiday(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);
}elsif ($input->param('showOperation') eq 'deleterange') {
    if (@holiday_list){
        foreach my $date (@holiday_list){
            $calendar->delete_holiday_range(weekday => $weekday,
                                            day => $date->{local_c}->{day},
                                            month => $date->{local_c}->{month},
                                            year => $date->{local_c}->{year});
            }
    }
}elsif ($input->param('showOperation') eq 'deleterangerepeat') {
    if (@holiday_list){
        foreach my $date (@holiday_list){
           $calendar->delete_holiday_range_repeatable(weekday => $weekday,
                                         day => $date->{local_c}->{day},
                                         month => $date->{local_c}->{month});
        }
    }
}elsif ($input->param('showOperation') eq 'deleterangerepeatexcept') {
    if (@holiday_list){
        foreach my $date (@holiday_list){
           $calendar->delete_exception_holiday_range(weekday => $weekday,
                                         day => $date->{local_c}->{day},
                                         month => $date->{local_c}->{month},
                                         year => $date->{local_c}->{year});
        }
    }
}
print $input->redirect("/cgi-bin/koha/tools/holidays.pl?branch=$branchcode&calendardate=$calendardate");




#!/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::Branch; # GetBranches
use C4::Calendar;

my $input = new CGI;

my $dbh = C4::Context->dbh();
# Get the template to use
my ($template, $loggedinuser, $cookie)
    = get_template_and_user({template_name => "tools/holidays.tt",
                             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 $onlymine =
  (      C4::Context->preference('IndependentBranches')
      && C4::Context->userenv
      && !C4::Context->IsSuperLibrarian()
      && C4::Context->userenv->{branch} ? 1 : 0 );
if ( $onlymine ) { 
    $branch = C4::Context->userenv->{'branch'};
}
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'},
      };
}

# 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->new(branchcode => $branch);
my $week_days_holidays = $calendar->get_week_days_holidays();
my @week_days;
foreach my $weekday (keys %$week_days_holidays) {
# 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) {
    # Determine date format on month and day.
    my $day_monthdate;
    my $day_monthdate_sort;
    if (C4::Context->preference("dateformat") eq "metric") {
      $day_monthdate_sort = "$day_month_holidays->{$monthDay}{month}-$day_month_holidays->{$monthDay}{day}";
      $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}";
      $day_monthdate_sort = $day_monthdate;
    } else {
      $day_monthdate = "$day_month_holidays->{$monthDay}{month}-$day_month_holidays->{$monthDay}{day}";
      $day_monthdate_sort = $day_monthdate;
    }
    my %day_month;
    %day_month = (KEY => $monthDay,
                  DATE_SORT => $day_monthdate_sort,
                  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 $exceptiondate = C4::Dates->new($exception_holidays->{$yearMonthDay}{date}, "iso");
    my %exception_holiday;
    %exception_holiday = (KEY => $yearMonthDay,
                          DATE_SORT => $exception_holidays->{$yearMonthDay}{date},
                          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 $holidaydate = C4::Dates->new($single_holidays->{$yearMonthDay}{date}, "iso");
    my %holiday;
    %holiday = (KEY => $yearMonthDay,
                DATE_SORT => $single_holidays->{$yearMonthDay}{date},
                DATE => $holidaydate->output("syspref"),
                TITLE => $single_holidays->{$yearMonthDay}{title},
                DESCRIPTION => $single_holidays->{$yearMonthDay}{description});
    push @holidays, \%holiday;
}

$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,
    branchname               => $branchname,
    branch                   => $branch,
);

# Shows the template with the real values replaced
output_html_with_http_headers $input, $cookie, $template->output;




#!/usr/bin/perl

use strict;
use warnings;

use CGI;

use C4::Auth;
use C4::Output;


use C4::Calendar;
use DateTime;

my $input               = new CGI;
my $dbh                 = C4::Context->dbh();

our $branchcode          = $input->param('newBranchName');
my $originalbranchcode  = $branchcode;
our $weekday             = $input->param('newWeekday');
our $day                 = $input->param('newDay');
our $month               = $input->param('newMonth');
our $year                = $input->param('newYear');
my $day1;
my $month1;
my $year1;
my $dateofrange         = $input->param('dateofrange');
our $title               = $input->param('newTitle');
our $description         = $input->param('newDescription');
our $newoperation        = $input->param('newOperation');
my $allbranches         = $input->param('allBranches');

my $calendardate        = sprintf("%04d-%02d-%02d", $year, $month, $day);
my $isodate             = C4::Dates->new($calendardate, 'iso');
$calendardate           = $isodate->output('syspref');

my @dateend = split(/[\/-]/, $dateofrange);
if (C4::Context->preference("dateformat") eq "metric") {
    $day1 = $dateend[0];
    $month1 = $dateend[1];
    $year1 = $dateend[2];
}elsif (C4::Context->preference("dateformat") eq "us") {
    $month1 = $dateend[0];
    $day1 = $dateend[1];
    $year1 = $dateend[2];
} else {
    $year1 = $dateend[0];
    $month1 = $dateend[1];
    $day1 = $dateend[2];
}
$title || ($title = '');
if ($description) {
	$description =~ s/\r/\\r/g;
	$description =~ s/\n/\\n/g;
} else {
	$description = '';
}

# We make an array with holiday's days
our @holiday_list;
if ($year1 && $month1 && $day1){
            my $first_dt = DateTime->new(year => $year, month  => $month,  day => $day);
            my $end_dt   = DateTime->new(year => $year1, month  => $month1,  day => $day1);

            for (my $dt = $first_dt->clone();
                $dt <= $end_dt;
                $dt->add(days => 1) )
                {
                push @holiday_list, $dt->clone();
                }
}

if($allbranches) {
	my $branch;
	my @branchcodes = split(/\|/, $input->param('branchCodes')); 
	foreach $branch (@branchcodes) {
		add_holiday($newoperation, $branch, $weekday, $day, $month, $year, $title, $description);
	}
} else {
	add_holiday($newoperation, $branchcode, $weekday, $day, $month, $year, $title, $description);
}

print $input->redirect("/cgi-bin/koha/tools/holidays.pl?branch=$originalbranchcode&calendardate=$calendardate");

sub add_holiday {
	($newoperation, $branchcode, $weekday, $day, $month, $year, $title, $description) = @_;  
	my $calendar = C4::Calendar->new(branchcode => $branchcode);

	if ($newoperation eq 'weekday') {
		unless ( $weekday && ($weekday ne '') ) { 
			# was dow calculated by javascript?  original code implies it was supposed to be.
			# if not, we need it.
			$weekday = &Date::Calc::Day_of_Week($year, $month, $day) % 7 unless($weekday);
		}
		unless($calendar->isHoliday($day, $month, $year)) {
			$calendar->insert_week_day_holiday(weekday => $weekday,
							           title => $title,
							           description => $description);
		}
	} elsif ($newoperation eq 'repeatable') {
		unless($calendar->isHoliday($day, $month, $year)) {
			$calendar->insert_day_month_holiday(day => $day,
	                                    month => $month,
							            title => $title,
							            description => $description);
		}
	} elsif ($newoperation eq 'holiday') {
		unless($calendar->isHoliday($day, $month, $year)) {
			$calendar->insert_single_holiday(day => $day,
	                                 month => $month,
						             year => $year,
						             title => $title,
						             description => $description);
		}

	} elsif ( $newoperation eq 'holidayrange' ) {
        if (@holiday_list){
            foreach my $date (@holiday_list){
                unless ( $calendar->isHoliday( $date->{local_c}->{day}, $date->{local_c}->{month}, $date->{local_c}->{year} ) ) {
                    $calendar->insert_single_holiday(
                        day         => $date->{local_c}->{day},
                        month       => $date->{local_c}->{month},
                        year        => $date->{local_c}->{year},
                        title       => $title,
                        description => $description
                    );
                }
            }
        }
    } elsif ( $newoperation eq 'holidayrangerepeat' ) {
        if (@holiday_list){
            foreach my $date (@holiday_list){
                unless ( $calendar->isHoliday( $date->{local_c}->{day}, $date->{local_c}->{month}, $date->{local_c}->{year} ) ) {
                    $calendar->insert_day_month_holiday(
                        day         => $date->{local_c}->{day},
                        month       => $date->{local_c}->{month},
                        title       => $title,
                        description => $description
                    );
                }
            }
        }
    }
}
- 

Return to bug 11211

Lines 3337-3429 sub CalcDateDue { Link Here

(-)a/C4/Circulation.pm (-87 lines)
3337	return $datedue;	3337	return $datedue;
3338	}	3338	}
3339		3339
3340
3341	=head2 CheckRepeatableHolidays
3342
3343	$countrepeatable = CheckRepeatableHoliday($itemnumber,$week_day,$branchcode);
3344
3345	This function checks if the date due is a repeatable holiday
3346
3347	C<$date_due> = returndate calculate with no day check
3348	C<$itemnumber> = itemnumber
3349	C<$branchcode> = localisation of issue
3350
3351	=cut
3352
3353	sub CheckRepeatableHolidays{
3354	my($itemnumber,$week_day,$branchcode)=@_;
3355	my $dbh = C4::Context->dbh;
3356	my $query = qq\|SELECT count(*)
3357	FROM repeatable_holidays
3358	WHERE branchcode=?
3359	AND weekday=?\|;
3360	my $sth = $dbh->prepare($query);
3361	$sth->execute($branchcode,$week_day);
3362	my $result=$sth->fetchrow;
3363	return $result;
3364	}
3365
3366
3367	=head2 CheckSpecialHolidays
3368
3369	$countspecial = CheckSpecialHolidays($years,$month,$day,$itemnumber,$branchcode);
3370
3371	This function check if the date is a special holiday
3372
3373	C<$years> = the years of datedue
3374	C<$month> = the month of datedue
3375	C<$day> = the day of datedue
3376	C<$itemnumber> = itemnumber
3377	C<$branchcode> = localisation of issue
3378
3379	=cut
3380
3381	sub CheckSpecialHolidays{
3382	my ($years,$month,$day,$itemnumber,$branchcode) = @_;
3383	my $dbh = C4::Context->dbh;
3384	my $query=qq\|SELECT count(*)
3385	FROM `special_holidays`
3386	WHERE year=?
3387	AND month=?
3388	AND day=?
3389	AND branchcode=?
3390	\|;
3391	my $sth = $dbh->prepare($query);
3392	$sth->execute($years,$month,$day,$branchcode);
3393	my $countspecial=$sth->fetchrow ;
3394	return $countspecial;
3395	}
3396
3397	=head2 CheckRepeatableSpecialHolidays
3398
3399	$countspecial = CheckRepeatableSpecialHolidays($month,$day,$itemnumber,$branchcode);
3400
3401	This function check if the date is a repeatble special holidays
3402
3403	C<$month> = the month of datedue
3404	C<$day> = the day of datedue
3405	C<$itemnumber> = itemnumber
3406	C<$branchcode> = localisation of issue
3407
3408	=cut
3409
3410	sub CheckRepeatableSpecialHolidays{
3411	my ($month,$day,$itemnumber,$branchcode) = @_;
3412	my $dbh = C4::Context->dbh;
3413	my $query=qq\|SELECT count(*)
3414	FROM `repeatable_holidays`
3415	WHERE month=?
3416	AND day=?
3417	AND branchcode=?
3418	\|;
3419	my $sth = $dbh->prepare($query);
3420	$sth->execute($month,$day,$branchcode);
3421	my $countspecial=$sth->fetchrow ;
3422	return $countspecial;
3423	}
3424
3425
3426
3427	sub CheckValidBarcode{	3340	sub CheckValidBarcode{
3428	my ($barcode) = @_;	3341	my ($barcode) = @_;
3429	my $dbh = C4::Context->dbh;	3342	my $dbh = C4::Context->dbh;

Lines 313-442 sub _get_chargeable_units { Link Here

(-)a/C4/Overdues.pm (-124 lines)
313	}	313	}
314		314
315		315
316	=head2 GetSpecialHolidays
317
318	&GetSpecialHolidays($date_dues,$itemnumber);
319
320	return number of special days between date of the day and date due
321
322	C<$date_dues> is the envisaged date of book return.
323
324	C<$itemnumber> is the book's item number.
325
326	=cut
327
328	sub GetSpecialHolidays {
329	my ( $date_dues, $itemnumber ) = @_;
330
331	# calcul the today date
332	my $today = join "-", &Today();
333
334	# return the holdingbranch
335	my $iteminfo = GetIssuesIteminfo($itemnumber);
336
337	# use sql request to find all date between date_due and today
338	my $dbh = C4::Context->dbh;
339	my $query =
340	qq\|SELECT DATE_FORMAT(concat(year,'-',month,'-',day),'%Y-%m-%d') as date
341	FROM `special_holidays`
342	WHERE DATE_FORMAT(concat(year,'-',month,'-',day),'%Y-%m-%d') >= ?
343	AND DATE_FORMAT(concat(year,'-',month,'-',day),'%Y-%m-%d') <= ?
344	AND branchcode=?
345	\|;
346	my @result = GetWdayFromItemnumber($itemnumber);
347	my @result_date;
348	my $wday;
349	my $dateinsec;
350	my $sth = $dbh->prepare($query);
351	$sth->execute( $date_dues, $today, $iteminfo->{'branchcode'} )
352	; # FIXME: just use NOW() in SQL instead of passing in $today
353
354	while ( my $special_date = $sth->fetchrow_hashref ) {
355	push( @result_date, $special_date );
356	}
357
358	my $specialdaycount = scalar(@result_date);
359
360	for ( my $i = 0 ; $i < scalar(@result_date) ; $i++ ) {
361	$dateinsec = UnixDate( $result_date[$i]->{'date'}, "%o" );
362	( undef, undef, undef, undef, undef, undef, $wday, undef, undef ) =
363	localtime($dateinsec);
364	for ( my $j = 0 ; $j < scalar(@result) ; $j++ ) {
365	if ( $wday == ( $result[$j]->{'weekday'} ) ) {
366	$specialdaycount--;
367	}
368	}
369	}
370
371	return $specialdaycount;
372	}
373
374	=head2 GetRepeatableHolidays
375
376	&GetRepeatableHolidays($date_dues, $itemnumber, $difference,);
377
378	return number of day closed between date of the day and date due
379
380	C<$date_dues> is the envisaged date of book return.
381
382	C<$itemnumber> is item number.
383
384	C<$difference> numbers of between day date of the day and date due
385
386	=cut
387
388	sub GetRepeatableHolidays {
389	my ( $date_dues, $itemnumber, $difference ) = @_;
390	my $dateinsec = UnixDate( $date_dues, "%o" );
391	my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) =
392	localtime($dateinsec);
393	my @result = GetWdayFromItemnumber($itemnumber);
394	my @dayclosedcount;
395	my $j;
396
397	for ( my $i = 0 ; $i < scalar(@result) ; $i++ ) {
398	my $k = $wday;
399
400	for ( $j = 0 ; $j < $difference ; $j++ ) {
401	if ( $result[$i]->{'weekday'} == $k ) {
402	push( @dayclosedcount, $k );
403	}
404	$k++;
405	( $k = 0 ) if ( $k eq 7 );
406	}
407	}
408	return scalar(@dayclosedcount);
409	}
410
411
412	=head2 GetWayFromItemnumber
413
414	&Getwdayfromitemnumber($itemnumber);
415
416	return the different week day from repeatable_holidays table
417
418	C<$itemnumber> is item number.
419
420	=cut
421
422	sub GetWdayFromItemnumber {
423	my ($itemnumber) = @_;
424	my $iteminfo = GetIssuesIteminfo($itemnumber);
425	my @result;
426	my $query = qq\|SELECT weekday
427	FROM repeatable_holidays
428	WHERE branchcode=?
429	\|;
430	my $sth = C4::Context->dbh->prepare($query);
431
432	$sth->execute( $iteminfo->{'branchcode'} );
433	while ( my $weekday = $sth->fetchrow_hashref ) {
434	push( @result, $weekday );
435	}
436	return @result;
437	}
438
439
440	=head2 GetIssuesIteminfo	316	=head2 GetIssuesIteminfo
441		317
442	&GetIssuesIteminfo($itemnumber);	318	&GetIssuesIteminfo($itemnumber);

Lines 60-66 sub _init { Link Here

(-)a/Koha/Calendar.pm (-22 / +4 lines)
60	# 3.16, bug 8089 will be fixed and we can switch the caching over	60	# 3.16, bug 8089 will be fixed and we can switch the caching over
61	# to Koha::Cache.	61	# to Koha::Cache.
62	our ( $exception_holidays, $single_holidays );	62	our ( $exception_holidays, $single_holidays );
63	sub exception_holidays {	63	sub _exception_holidays {
64	my ( $self ) = @_;	64	my ( $self ) = @_;
65	my $dbh = C4::Context->dbh;	65	my $dbh = C4::Context->dbh;
66	my $branch = $self->{branchcode};	66	my $branch = $self->{branchcode};
Lines 88-94 sub exception_holidays { Link Here
88	return $exception_holidays;	88	return $exception_holidays;
89	}	89	}
90		90
91	sub single_holidays {	91	sub _single_holidays {
92	my ( $self ) = @_;	92	my ( $self ) = @_;
93	my $dbh = C4::Context->dbh;	93	my $dbh = C4::Context->dbh;
94	my $branch = $self->{branchcode};	94	my $branch = $self->{branchcode};
Lines 213-219 sub is_holiday { Link Here
213		213
214	$localdt->truncate( to => 'day' );	214	$localdt->truncate( to => 'day' );
215		215
216	if ( $self->exception_holidays->contains($localdt) ) {	216	if ( $self->_exception_holidays->contains($localdt) ) {
217	# exceptions are not holidays	217	# exceptions are not holidays
218	return 0;	218	return 0;
219	}	219	}
Lines 233-239 sub is_holiday { Link Here
233	return 1;	233	return 1;
234	}	234	}
235		235
236	if ( $self->single_holidays->contains($localdt) ) {	236	if ( $self->_single_holidays->contains($localdt) ) {
237	return 1;	237	return 1;
238	}	238	}
239		239
Lines 339-356 sub clear_weekly_closed_days { Link Here
339	return;	339	return;
340	}	340	}
341		341
342	sub add_holiday {
343	my $self = shift;
344	my $new_dt = shift;
345	my @dt = $self->single_holidays->as_list;
346	push @dt, $new_dt;
347	$self->{single_holidays} =
348	DateTime::Set->from_datetimes( dates => \@dt );
349	$single_holidays = $self->{single_holidays};
350
351	return;
352	}
353
354	1;	342	1;
355	__END__	343	__END__
356		344
Lines 468-479 In test mode changes the testing set of closed days to a new set with Link Here
468	no closed days. TODO passing an array of closed days to this would	456	no closed days. TODO passing an array of closed days to this would
469	allow testing of more configurations	457	allow testing of more configurations
470		458
471	=head2 add_holiday
472
473	Passed a datetime object this will add it to the calendar's list of
474	closed days. This is for testing so that we can alter the Calenfar object's
475	list of specified dates
476
477	=head1 DIAGNOSTICS	459	=head1 DIAGNOSTICS
478		460
479	Will croak if not passed a branchcode in new	461	Will croak if not passed a branchcode in new

Lines 37-43 use C4::Items; Link Here

(-)a/misc/cronjobs/thirdparty/TalkingTech_itiva_outbound.pl (-18 / +13 lines)
37	use C4::Letters;	37	use C4::Letters;
38	use C4::Overdues;	38	use C4::Overdues;
39	use C4::Dates;	39	use C4::Dates;
40	use C4::Calendar;	40	use Koha::Calendar;
41		41
42	sub usage {	42	sub usage {
43	pod2usage( -verbose => 2 );	43	pod2usage( -verbose => 2 );
Lines 312-334 sub GetWaitingHolds { Link Here
312	sprintf( "%04d-%02d-%02d", $date_due[0], $date_due[1], $date_due[2] );	312	sprintf( "%04d-%02d-%02d", $date_due[0], $date_due[1], $date_due[2] );
313	$issue->{'level'} = 1; # only one level for Hold Waiting notifications	313	$issue->{'level'} = 1; # only one level for Hold Waiting notifications
314		314
315	my $days_to_subtract = 0;	315	my $calendar = Koha::Calendar->new( branchcode => $issue->{'site'} );
316	my $calendar = C4::Calendar->new( branchcode => $issue->{'site'} );	316	$issue->{'days_since_waiting'} = $calendar->days_between(
317	while (	317	DateTime->new(
318	$calendar->isHoliday(	318	year => $waitingdate[0],
319	reverse(	319	month => $waitingdate[1],
320	Add_Delta_Days(	320	day => $waitingdate[2],
321	$waitingdate[0], $waitingdate[1],	321	time_zone => C4::Context->tz,
322	$waitingdate[2], $days_to_subtract	322	),
323	)	323	DateTime->now(
324	)	324	time_zone => C4::Context->tz,
325	)	325	),
326	)	326	);
327	{
328	$days_to_subtract++;
329	}
330	$issue->{'days_since_waiting'} =
331	$issue->{'days_since_waiting'} - $days_to_subtract;
332		327
333	if (	328	if (
334	(	329	(

Lines 4-20 use strict; Link Here

(-)a/t/Calendar.t (-5 / +1 lines)
4	use warnings;	4	use warnings;
5	use DateTime;	5	use DateTime;
6	use DateTime::Duration;	6	use DateTime::Duration;
7	use Test::More tests => 35;	7	use Test::More tests => 34;
8	use Test::MockModule;	8	use Test::MockModule;
9	use DBD::Mock;	9	use DBD::Mock;
10	use Koha::DateUtils;	10	use Koha::DateUtils;
11		11
12	BEGIN {	12	BEGIN {
13	use_ok('Koha::Calendar');	13	use_ok('Koha::Calendar');
14
15	# This was the only test C4 had
16	# Remove when no longer used
17	use_ok('C4::Calendar');
18	}	14	}
19		15
20	my $module_context = new Test::MockModule('C4::Context');	16	my $module_context = new Test::MockModule('C4::Context');

Line 0 Link Here

(-)a/t/db_dependent/Calendar.t (+86 lines)
		1	use Modern::Perl;
		2
		3	use Test::More tests => 14;
		4
		5	use C4::Calendar;
		6	use C4::Context;
		7
		8	my $dbh = C4::Context->dbh;
		9
		10	# Start transaction
		11	$dbh->{AutoCommit} = 0;
		12	$dbh->{RaiseError} = 1;
		13
		14	my %new_holiday = ( open_hour => 0,
		15	open_minute => 0,
		16	close_hour => 0,
		17	close_minute => 0,
		18	title => 'example week_day_holiday',
		19	description => 'This is an example week_day_holiday used for testing' );
		20
		21	# Weekly events
		22	ModRepeatingEvent( 'UPL', { weekday => 1, %new_holiday } );
		23
		24	my $weekly_events = GetWeeklyEvents( 'UPL' );
		25	is( $weekly_events->[0]->{'title'}, $new_holiday{'title'}, 'weekly title' );
		26	is( $weekly_events->[0]->{'description'}, $new_holiday{'description'}, 'weekly description' );
		27
		28	$new_holiday{close_hour} = 24;
		29
		30	ModRepeatingEvent( 'UPL', { weekday => 1, %new_holiday } );
		31	$weekly_events = GetWeeklyEvents( 'UPL' );
		32	is( scalar @$weekly_events, 0, 'weekly modification, not insertion' );
		33
		34	$new_holiday{close_hour} = 0;
		35	ModRepeatingEvent( 'UPL', { weekday => 1, %new_holiday } );
		36
		37	# Yearly events
		38
		39	ModRepeatingEvent( 'UPL', { month => 6, day => 26, %new_holiday } );
		40
		41	my $yearly_events = GetYearlyEvents( 'UPL' );
		42	is( $yearly_events->[0]->{'title'}, $new_holiday{'title'}, 'yearly title' );
		43	is( $yearly_events->[0]->{'description'}, $new_holiday{'description'}, 'yearly description' );
		44
		45	$new_holiday{close_hour} = 24;
		46
		47	ModRepeatingEvent( 'UPL', { month => 6, day => 26, %new_holiday } );
		48	$yearly_events = GetYearlyEvents( 'UPL' );
		49	is( scalar @$yearly_events, 0, 'yearly modification, not insertion' );
		50
		51	$new_holiday{close_hour} = 0;
		52	ModRepeatingEvent( 'UPL', { month => 6, day => 26, %new_holiday } );
		53
		54	# Single events
		55
		56	ModSingleEvent( 'UPL', { date => '2013-03-17', %new_holiday } );
		57
		58	my $single_events = GetSingleEvents( 'UPL' );
		59	is( $single_events->[0]->{'title'}, $new_holiday{'title'}, 'single title' );
		60	is( $single_events->[0]->{'description'}, $new_holiday{'description'}, 'single description' );
		61	is( $single_events->[0]->{'closed'}, 1, 'single closed' );
		62
		63	$new_holiday{close_hour} = 24;
		64
65	ModSingleEvent( 'UPL', { date => '2013-03-17', %new_holiday } );
66	$single_events = GetSingleEvents( 'UPL' );
67	is( scalar @$single_events, 1, 'single modification, not insertion' );
68	is( $single_events->[0]->{'closed'}, 0, 'single closed' );
69
70
71	# delete
72
73	DelRepeatingEvent( 'UPL', { weekday => 1 } );
74	$weekly_events = GetWeeklyEvents( 'UPL' );
75	is( scalar @$weekly_events, 0, 'weekly deleted' );
76
77	DelRepeatingEvent( 'UPL', { month => 6, day => 26 } );
78	$yearly_events = GetYearlyEvents( 'UPL' );
79	is( scalar @$yearly_events, 0, 'yearly deleted' );
80
81	DelSingleEvent( 'UPL', { date => '2013-03-17' } );
82
83	$single_events = GetSingleEvents( 'UPL' );
84	is( scalar @$single_events, 0, 'single deleted' );
85
86	$dbh->rollback;

Lines 5-22 use DateTime; Link Here

(-)a/t/db_dependent/Holidays.t (-14 / +1 lines)
5	use DateTime::TimeZone;	5	use DateTime::TimeZone;
6		6
7	use C4::Context;	7	use C4::Context;
8	use Test::More tests => 10;	8	use Test::More tests => 6;
9		9
10	BEGIN { use_ok('Koha::Calendar'); }	10	BEGIN { use_ok('Koha::Calendar'); }
11	BEGIN { use_ok('C4::Calendar'); }
12		11
13	my $branchcode = 'MPL';	12	my $branchcode = 'MPL';
14		13
15	my $koha_calendar = Koha::Calendar->new( branchcode => $branchcode );	14	my $koha_calendar = Koha::Calendar->new( branchcode => $branchcode );
16	my $c4_calendar = C4::Calendar->new( branchcode => $branchcode );
17		15
18	isa_ok( $koha_calendar, 'Koha::Calendar', 'Koha::Calendar class returned' );	16	isa_ok( $koha_calendar, 'Koha::Calendar', 'Koha::Calendar class returned' );
19	isa_ok( $c4_calendar, 'C4::Calendar', 'C4::Calendar class returned' );
20		17
21	my $sunday = DateTime->new(	18	my $sunday = DateTime->new(
22	year => 2011,	19	year => 2011,
Lines 43-55 is( $koha_calendar->is_holiday($sunday), 1, 'Sunday is a closed day' ); Link Here
43	is( $koha_calendar->is_holiday($monday), 0, 'Monday is not a closed day' );	40	is( $koha_calendar->is_holiday($monday), 0, 'Monday is not a closed day' );
44	is( $koha_calendar->is_holiday($christmas), 1, 'Christmas is a closed day' );	41	is( $koha_calendar->is_holiday($christmas), 1, 'Christmas is a closed day' );
45	is( $koha_calendar->is_holiday($newyear), 1, 'New Years day is a closed day' );	42	is( $koha_calendar->is_holiday($newyear), 1, 'New Years day is a closed day' );
46
47	my $custom_holiday = DateTime->new(
48	year => 2013,
49	month => 11,
50	day => 12,
51	);
52	is( $koha_calendar->is_holiday($custom_holiday), 0, '2013-11-10 does not start off as a holiday' );
53	$koha_calendar->add_holiday($custom_holiday);
54	is( $koha_calendar->is_holiday($custom_holiday), 1, 'able to add holiday for testing' );
55

Line 0 Link Here

(-)a/tools/calendar.pl (+268 lines)
		1	#!/usr/bin/perl
		2
		3	# This file is part of Koha.
		4	#
		5	# Koha is free software; you can redistribute it and/or modify it
		6	# under the terms of the GNU General Public License as published by
		7	# the Free Software Foundation; either version 3 of the License, or
		8	# (at your option) any later version.
		9	#
		10	# Koha is distributed in the hope that it will be useful, but
		11	# WITHOUT ANY WARRANTY; without even the implied warranty of
		12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		13	# GNU General Public License for more details.
		14	#
		15	# You should have received a copy of the GNU General Public License
		16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
		17
		18	#####Sets holiday periods for each branch. Datedues will be extended if branch is closed -TG
		19
		20	use Modern::Perl;
		21
		22	use CGI;
		23
		24	use C4::Auth;
		25	use C4::Output;
		26
		27	use C4::Branch; # GetBranches
		28	use C4::Calendar;
		29
		30	my $input = new CGI;
		31
		32	my $dbh = C4::Context->dbh();
		33	# Get the template to use
		34	my ($template, $loggedinuser, $cookie)
		35	= get_template_and_user({template_name => "tools/calendar.tmpl",
		36	type => "intranet",
		37	query => $input,
		38	authnotrequired => 0,
		39	flagsrequired => {tools => 'edit_calendar'},
		40	debug => 1,
		41	});
		42
		43	# keydate - date passed to calendar.js. calendar.js does not process dashes within a date.
		44	my $keydate;
		45	# calendardate - date passed in url for human readability (syspref)
		46	my $calendardate;
		47	my $today = C4::Dates->new();
		48	my $calendarinput = C4::Dates->new($input->param('calendardate')) \|\| $today;
		49	# if the url has an invalid date default to 'now.'
		50	unless($calendardate = $calendarinput->output('syspref')) {
		51	$calendardate = $today->output('syspref');
		52	}
		53	unless($keydate = $calendarinput->output('iso')) {
		54	$keydate = $today->output('iso');
		55	}
		56	$keydate =~ s/-/\//g;
		57
		58	my $branch= $input->param('branchName') \|\| $input->param('branch') \|\| C4::Context->userenv->{'branch'};
		59	# Set all the branches.
		60	my $onlymine=(C4::Context->preference('IndependentBranches') &&
		61	C4::Context->userenv &&
		62	C4::Context->userenv->{flags} % 2 !=1 &&
		63	C4::Context->userenv->{branch}?1:0);
		64	if ( $onlymine ) {
65	$branch = C4::Context->userenv->{'branch'};
66	}
67	my $branchname = GetBranchName($branch);
68	my $branches = GetBranches($onlymine);
69	my @branchloop;
70	for my $thisbranch (
71	sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} }
72	keys %{$branches} ) {
73	push @branchloop,
74	{ value => $thisbranch,
75	selected => $thisbranch eq $branch,
76	branchname => $branches->{$thisbranch}->{'branchname'},
77	};
78	}
79
80	# branches calculated - put branch codes in a single string so they can be passed in a form
81	my $branchcodes = join '\|', keys %{$branches};
82
83	my $op = $input->param( 'op' ) // '';
84
85	my @ranged_dates;
86
87	if ( my $dateofrange = $input->param( 'dateofrange' ) ) {
88	my $date = $input->param( 'year' ) . '-' . $input->param( 'month' ) . '-' . $input->param( 'day' );
89
90	my ( $start_year, $start_month, $start_day ) = split( /-/, $date );
91	my ( $end_year, $end_month, $end_day ) = split( /-/, C4::Dates->new( $dateofrange )->output( 'iso' ) );
92
93	if ( $end_year && $end_month && $end_day ){
94	my $first_dt = DateTime->new(year => $start_year, month => $start_month, day => $start_day);
95	my $end_dt = DateTime->new(year => $end_year, month => $end_month, day => $end_day);
96
97	for ( my $dt = $first_dt->clone(); $dt <= $end_dt; $dt->add(days => 1) ) {
98	push @ranged_dates, $dt->clone();
99	}
100	}
101	}
102
103	my @branches;
104	if ( $input->param( 'allBranches' ) \|\| !$input->param( 'branchName' ) ) {
105	@branches = split /\\|/, $input->param( 'branchcodes' );
106	} else {
107	@branches = ( $input->param( 'branchName' ) );
108	}
109
110	if ( $op eq 'save' ) {
111	my $date = $input->param( 'year' ) . '-' . $input->param( 'month' ) . '-' . $input->param( 'day' );
112
113	local our ( $open_hour, $open_minute, $close_hour, $close_minute );
114
115	if ( $input->param( 'hoursType' ) eq 'open' ) {
116	( $open_hour, $open_minute ) = ( 0, 0 );
117	( $close_hour, $close_minute ) = ( 24, 0 );
118	} elsif ( $input->param( 'hoursType' ) eq 'closed' ) {
119	( $open_hour, $open_minute ) = ( 0, 0 );
120	( $close_hour, $close_minute ) = ( 0, 0 );
121	} else {
122	( $open_hour, $open_minute ) = ( $input->param( 'openTime' ) =~ /(0?[0-9]\|1[0-9]\|2[0-3]):([0-5][0-9])/ );
123	( $close_hour, $close_minute ) = ( $input->param( 'closeTime' ) =~ /(0?[0-9]\|1[0-9]\|2[0-3]):([0-5][0-9])/ );
124	}
125
126	foreach my $branchcode ( @branches ) {
127	my %event_types = (
128	'single' => sub {
129	ModSingleEvent( $branchcode, {
130	date => $date,
131	title => $input->param( 'title' ),
132	description => $input->param( 'description' ),
133	open_hour => $open_hour,
134	open_minute => $open_minute,
135	close_hour => $close_hour,
136	close_minute => $close_minute
137	} );
138	},
139
140	'weekly' => sub {
141	ModRepeatingEvent( $branchcode, {
142	weekday => $input->param( 'weekday' ),
143	title => $input->param( 'title' ),
144	description => $input->param( 'description' ),
145	open_hour => $open_hour,
146	open_minute => $open_minute,
147	close_hour => $close_hour,
148	close_minute => $close_minute
149	} );
150	},
151
152	'yearly' => sub {
153	ModRepeatingEvent( $branchcode, {
154	month => $input->param( 'month' ),
155	day => $input->param( 'day' ),
156	title => $input->param( 'title' ),
157	description => $input->param( 'description' ),
158	open_hour => $open_hour,
159	open_minute => $open_minute,
160	close_hour => $close_hour,
161	close_minute => $close_minute
162	} );
163	},
164
165	'singlerange' => sub {
166	foreach my $dt ( @ranged_dates ) {
167	ModSingleEvent( $branchcode, {
168	date => $dt->ymd,
169	title => $input->param( 'title' ),
170	description => $input->param( 'description' ),
171	open_hour => $open_hour,
172	open_minute => $open_minute,
173	close_hour => $close_hour,
174	close_minute => $close_minute
175	} );
176	}
177	},
178
179	'yearlyrange' => sub {
180	foreach my $dt ( @ranged_dates ) {
181	ModRepeatingEvent( $branchcode, {
182	month => $dt->month,
183	day => $dt->day,
184	title => $input->param( 'title' ),
185	description => $input->param( 'description' ),
186	open_hour => $open_hour,
187	open_minute => $open_minute,
188	close_hour => $close_hour,
189	close_minute => $close_minute
190	} );
191	}
192	},
193	);
194
195	# Choose from the above options
196	$event_types{ $input->param( 'eventType' ) }->();
197	}
198	} elsif ( $op eq 'delete' ) {
199	my $date = $input->param( 'year' ) . '-' . $input->param( 'month' ) . '-' . $input->param( 'day' );
200
201	foreach my $branchcode ( @branches ) {
202	my %event_types = (
203	'single' => sub {
204	DelSingleEvent( $branchcode, { date => $date } );
205	},
206
207	'weekly' => sub {
208	DelRepeatingEvent( $branchcode, { weekday => $input->param( 'weekday' ) } );
209	},
210
211	'yearly' => sub {
212	DelRepeatingEvent( $branchcode, { month => $input->param( 'month' ), day => $input->param( 'day' ) } );
213	},
214	);
215
216	# Choose from the above options
217	$event_types{ $input->param( 'eventType' ) }->();
218	}
219	} elsif ( $op eq 'deleterange' ) {
220	foreach my $branchcode ( @branches ) {
221	foreach my $dt ( @ranged_dates ) {
222	DelSingleEvent( $branchcode, { date => $dt->ymd } );
223	}
224	}
225	} elsif ( $op eq 'deleterangerepeat' ) {
226	foreach my $branchcode ( @branches ) {
227	foreach my $dt ( @ranged_dates ) {
228	DelRepeatingEvent( $branchcode, { month => $dt->month, day => $dt->day } );
229	}
230	}
231	} elsif ( $op eq 'copyall' ) {
232	CopyAllEvents( $input->param( 'from_branchcode' ), $input->param( 'branchcode' ) );
233	}
234
235	my $yearly_events = GetYearlyEvents($branch);
236	foreach my $event ( @$yearly_events ) {
237	# Determine date format on month and day.
238	my $day_monthdate;
239	my $day_monthdate_sort;
240	if (C4::Context->preference("dateformat") eq "metric") {
241	$day_monthdate_sort = "$event->{month}-$event->{day}";
242	$day_monthdate = "$event->{day}/$event->{month}";
243	} elsif (C4::Context->preference("dateformat") eq "us") {
244	$day_monthdate = "$event->{month}/$event->{day}";
245	$day_monthdate_sort = $day_monthdate;
246	} else {
247	$day_monthdate = "$event->{month}-$event->{day}";
248	$day_monthdate_sort = $day_monthdate;
249	}
250
251	$event->{month_day_display} = $day_monthdate;
252	$event->{month_day_sort} = $day_monthdate_sort;
253	}
254
255	$template->param(
256	weekly_events => GetWeeklyEvents($branch),
257	yearly_events => $yearly_events,
258	single_events => GetSingleEvents($branch),
259	branchloop => \@branchloop,
260	calendardate => $calendardate,
261	keydate => $keydate,
262	branchcodes => $branchcodes,
263	branch => $branch,
264	branchname => $branchname,
265	);
266
267	# Shows the template with the real values replaced
268	output_html_with_http_headers $input, $cookie, $template->output;

Lines 1-39 Link Here

(-)a/tools/copy-holidays.pl (-39 lines)
1	#!/usr/bin/perl
2
3	# Copyright 2012 Catalyst IT
4	#
5	# This file is part of Koha.
6	#
7	# Koha is free software; you can redistribute it and/or modify it under the
8	# terms of the GNU General Public License as published by the Free Software
9	# Foundation; either version 2 of the License, or (at your option) any later
10	# version.
11	#
12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
15	#
16	# You should have received a copy of the GNU General Public License along
17	# with Koha; if not, write to the Free Software Foundation, Inc.,
18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
20	use strict;
21	use warnings;
22
23	use CGI;
24
25	use C4::Auth;
26	use C4::Output;
27
28
29	use C4::Calendar;
30
31	my $input = new CGI;
32	my $dbh = C4::Context->dbh();
33
34	my $branchcode = $input->param('branchcode');
35	my $from_branchcode = $input->param('from_branchcode');
36
37	C4::Calendar->new(branchcode => $from_branchcode)->copy_to_branch($branchcode) if $from_branchcode && $branchcode;
38
39	print $input->redirect("/cgi-bin/koha/tools/holidays.pl?branch=".($branchcode \|\| $from_branchcode));

Lines 1-145 Link Here

(-)a/tools/exceptionHolidays.pl (-145 lines)
1	#!/usr/bin/perl
2
3	use strict;
4	use warnings;
5
6	use CGI;
7
8	use C4::Auth;
9	use C4::Output;
10	use DateTime;
11
12	use C4::Calendar;
13
14	my $input = new CGI;
15	my $dbh = C4::Context->dbh();
16
17	my $branchcode = $input->param('showBranchName');
18	my $weekday = $input->param('showWeekday');
19	my $day = $input->param('showDay');
20	my $month = $input->param('showMonth');
21	my $year = $input->param('showYear');
22	my $day1;
23	my $month1;
24	my $year1;
25	my $title = $input->param('showTitle');
26	my $description = $input->param('showDescription');
27	my $holidaytype = $input->param('showHolidayType');
28	my $datecancelrange = $input->param('datecancelrange');
29	my $calendardate = sprintf("%04d-%02d-%02d", $year, $month, $day);
30	my $isodate = C4::Dates->new($calendardate, 'iso');
31	$calendardate = $isodate->output('syspref');
32
33	my $calendar = C4::Calendar->new(branchcode => $branchcode);
34
35	$title \|\| ($title = '');
36	if ($description) {
37	$description =~ s/\r/\\r/g;
38	$description =~ s/\n/\\n/g;
39	} else {
40	$description = '';
41	}
42
43	# We format the date
44	my @dateend = split(/[\/-]/, $datecancelrange);
45	if (C4::Context->preference("dateformat") eq "metric") {
46	$day1 = $dateend[0];
47	$month1 = $dateend[1];
48	$year1 = $dateend[2];
49	}elsif (C4::Context->preference("dateformat") eq "us") {
50	$month1 = $dateend[0];
51	$day1 = $dateend[1];
52	$year1 = $dateend[2];
53	} else {
54	$year1 = $dateend[0];
55	$month1 = $dateend[1];
56	$day1 = $dateend[2];
57	}
58
59	# We make an array with holiday's days
60	my @holiday_list;
61	if ($year1 && $month1 && $day1){
62	my $first_dt = DateTime->new(year => $year, month => $month, day => $day);
63	my $end_dt = DateTime->new(year => $year1, month => $month1, day => $day1);
64
65	for (my $dt = $first_dt->clone();
66	$dt <= $end_dt;
67	$dt->add(days => 1) )
68	{
69	push @holiday_list, $dt->clone();
70	}
71	}
72	if ($input->param('showOperation') eq 'exception') {
73	$calendar->insert_exception_holiday(day => $day,
74	month => $month,
75	year => $year,
76	title => $title,
77	description => $description);
78	} elsif ($input->param('showOperation') eq 'exceptionrange' ) {
79	if (@holiday_list){
80	foreach my $date (@holiday_list){
81	$calendar->insert_exception_holiday(
82	day => $date->{local_c}->{day},
83	month => $date->{local_c}->{month},
84	year => $date->{local_c}->{year},
85	title => $title,
86	description => $description
87	);
88	}
89	}
90	} elsif ($input->param('showOperation') eq 'edit') {
91	if($holidaytype eq 'weekday') {
92	$calendar->ModWeekdayholiday(weekday => $weekday,
93	title => $title,
94	description => $description);
95	} elsif ($holidaytype eq 'daymonth') {
96	$calendar->ModDaymonthholiday(day => $day,
97	month => $month,
98	title => $title,
99	description => $description);
100	} elsif ($holidaytype eq 'ymd') {
101	$calendar->ModSingleholiday(day => $day,
102	month => $month,
103	year => $year,
104	title => $title,
105	description => $description);
106	} elsif ($holidaytype eq 'exception') {
107	$calendar->ModExceptionholiday(day => $day,
108	month => $month,
109	year => $year,
110	title => $title,
111	description => $description);
112	}
113	} elsif ($input->param('showOperation') eq 'delete') {
114	$calendar->delete_holiday(weekday => $weekday,
115	day => $day,
116	month => $month,
117	year => $year);
118	}elsif ($input->param('showOperation') eq 'deleterange') {
119	if (@holiday_list){
120	foreach my $date (@holiday_list){
121	$calendar->delete_holiday_range(weekday => $weekday,
122	day => $date->{local_c}->{day},
123	month => $date->{local_c}->{month},
124	year => $date->{local_c}->{year});
125	}
126	}
127	}elsif ($input->param('showOperation') eq 'deleterangerepeat') {
128	if (@holiday_list){
129	foreach my $date (@holiday_list){
130	$calendar->delete_holiday_range_repeatable(weekday => $weekday,
131	day => $date->{local_c}->{day},
132	month => $date->{local_c}->{month});
133	}
134	}
135	}elsif ($input->param('showOperation') eq 'deleterangerepeatexcept') {
136	if (@holiday_list){
137	foreach my $date (@holiday_list){
138	$calendar->delete_exception_holiday_range(weekday => $weekday,
139	day => $date->{local_c}->{day},
140	month => $date->{local_c}->{month},
141	year => $date->{local_c}->{year});
142	}
143	}
144	}
145	print $input->redirect("/cgi-bin/koha/tools/holidays.pl?branch=$branchcode&calendardate=$calendardate");

Lines 1-164 Link Here

(-)a/tools/holidays.pl (-164 lines)
1	#!/usr/bin/perl
2
3	# This file is part of Koha.
4	#
5	# Koha is free software; you can redistribute it and/or modify it under the
6	# terms of the GNU General Public License as published by the Free Software
7	# Foundation; either version 2 of the License, or (at your option) any later
8	# version.
9	#
10	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
13	#
14	# You should have received a copy of the GNU General Public License along with
15	# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
16	# Suite 330, Boston, MA 02111-1307 USA
17
18	#####Sets holiday periods for each branch. Datedues will be extended if branch is closed -TG
19	use strict;
20	use warnings;
21
22	use CGI;
23
24	use C4::Auth;
25	use C4::Output;
26
27	use C4::Branch; # GetBranches
28	use C4::Calendar;
29
30	my $input = new CGI;
31
32	my $dbh = C4::Context->dbh();
33	# Get the template to use
34	my ($template, $loggedinuser, $cookie)
35	= get_template_and_user({template_name => "tools/holidays.tt",
36	type => "intranet",
37	query => $input,
38	authnotrequired => 0,
39	flagsrequired => {tools => 'edit_calendar'},
40	debug => 1,
41	});
42
43	# keydate - date passed to calendar.js. calendar.js does not process dashes within a date.
44	my $keydate;
45	# calendardate - date passed in url for human readability (syspref)
46	my $calendardate;
47	my $today = C4::Dates->new();
48	my $calendarinput = C4::Dates->new($input->param('calendardate')) \|\| $today;
49	# if the url has an invalid date default to 'now.'
50	unless($calendardate = $calendarinput->output('syspref')) {
51	$calendardate = $today->output('syspref');
52	}
53	unless($keydate = $calendarinput->output('iso')) {
54	$keydate = $today->output('iso');
55	}
56	$keydate =~ s/-/\//g;
57
58	my $branch= $input->param('branch') \|\| C4::Context->userenv->{'branch'};
59	# Set all the branches.
60	my $onlymine =
61	( C4::Context->preference('IndependentBranches')
62	&& C4::Context->userenv
63	&& !C4::Context->IsSuperLibrarian()
64	&& C4::Context->userenv->{branch} ? 1 : 0 );
65	if ( $onlymine ) {
66	$branch = C4::Context->userenv->{'branch'};
67	}
68	my $branchname = GetBranchName($branch);
69	my $branches = GetBranches($onlymine);
70	my @branchloop;
71	for my $thisbranch (
72	sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} }
73	keys %{$branches} ) {
74	push @branchloop,
75	{ value => $thisbranch,
76	selected => $thisbranch eq $branch,
77	branchname => $branches->{$thisbranch}->{'branchname'},
78	};
79	}
80
81	# branches calculated - put branch codes in a single string so they can be passed in a form
82	my $branchcodes = join '\|', keys %{$branches};
83
84	# Get all the holidays
85
86	my $calendar = C4::Calendar->new(branchcode => $branch);
87	my $week_days_holidays = $calendar->get_week_days_holidays();
88	my @week_days;
89	foreach my $weekday (keys %$week_days_holidays) {
90	# warn "WEEK DAY : $weekday";
91	my %week_day;
92	%week_day = (KEY => $weekday,
93	TITLE => $week_days_holidays->{$weekday}{title},
94	DESCRIPTION => $week_days_holidays->{$weekday}{description});
95	push @week_days, \%week_day;
96	}
97
98	my $day_month_holidays = $calendar->get_day_month_holidays();
99	my @day_month_holidays;
100	foreach my $monthDay (keys %$day_month_holidays) {
101	# Determine date format on month and day.
102	my $day_monthdate;
103	my $day_monthdate_sort;
104	if (C4::Context->preference("dateformat") eq "metric") {
105	$day_monthdate_sort = "$day_month_holidays->{$monthDay}{month}-$day_month_holidays->{$monthDay}{day}";
106	$day_monthdate = "$day_month_holidays->{$monthDay}{day}/$day_month_holidays->{$monthDay}{month}";
107	} elsif (C4::Context->preference("dateformat") eq "us") {
108	$day_monthdate = "$day_month_holidays->{$monthDay}{month}/$day_month_holidays->{$monthDay}{day}";
109	$day_monthdate_sort = $day_monthdate;
110	} else {
111	$day_monthdate = "$day_month_holidays->{$monthDay}{month}-$day_month_holidays->{$monthDay}{day}";
112	$day_monthdate_sort = $day_monthdate;
113	}
114	my %day_month;
115	%day_month = (KEY => $monthDay,
116	DATE_SORT => $day_monthdate_sort,
117	DATE => $day_monthdate,
118	TITLE => $day_month_holidays->{$monthDay}{title},
119	DESCRIPTION => $day_month_holidays->{$monthDay}{description});
120	push @day_month_holidays, \%day_month;
121	}
122
123	my $exception_holidays = $calendar->get_exception_holidays();
124	my @exception_holidays;
125	foreach my $yearMonthDay (keys %$exception_holidays) {
126	my $exceptiondate = C4::Dates->new($exception_holidays->{$yearMonthDay}{date}, "iso");
127	my %exception_holiday;
128	%exception_holiday = (KEY => $yearMonthDay,
129	DATE_SORT => $exception_holidays->{$yearMonthDay}{date},
130	DATE => $exceptiondate->output("syspref"),
131	TITLE => $exception_holidays->{$yearMonthDay}{title},
132	DESCRIPTION => $exception_holidays->{$yearMonthDay}{description});
133	push @exception_holidays, \%exception_holiday;
134	}
135
136	my $single_holidays = $calendar->get_single_holidays();
137	my @holidays;
138	foreach my $yearMonthDay (keys %$single_holidays) {
139	my $holidaydate = C4::Dates->new($single_holidays->{$yearMonthDay}{date}, "iso");
140	my %holiday;
141	%holiday = (KEY => $yearMonthDay,
142	DATE_SORT => $single_holidays->{$yearMonthDay}{date},
143	DATE => $holidaydate->output("syspref"),
144	TITLE => $single_holidays->{$yearMonthDay}{title},
145	DESCRIPTION => $single_holidays->{$yearMonthDay}{description});
146	push @holidays, \%holiday;
147	}
148
149	$template->param(
150	WEEK_DAYS_LOOP => \@week_days,
151	branchloop => \@branchloop,
152	HOLIDAYS_LOOP => \@holidays,
153	EXCEPTION_HOLIDAYS_LOOP => \@exception_holidays,
154	DAY_MONTH_HOLIDAYS_LOOP => \@day_month_holidays,
155	calendardate => $calendardate,
156	keydate => $keydate,
157	branchcodes => $branchcodes,
158	branch => $branch,
159	branchname => $branchname,
160	branch => $branch,
161	);
162
163	# Shows the template with the real values replaced
164	output_html_with_http_headers $input, $cookie, $template->output;

Lines 1-144 Link Here

(-)a/tools/newHolidays.pl (-145 lines)
1	#!/usr/bin/perl
2
3	use strict;
4	use warnings;
5
6	use CGI;
7
8	use C4::Auth;
9	use C4::Output;
10
11
12	use C4::Calendar;
13	use DateTime;
14
15	my $input = new CGI;
16	my $dbh = C4::Context->dbh();
17
18	our $branchcode = $input->param('newBranchName');
19	my $originalbranchcode = $branchcode;
20	our $weekday = $input->param('newWeekday');
21	our $day = $input->param('newDay');
22	our $month = $input->param('newMonth');
23	our $year = $input->param('newYear');
24	my $day1;
25	my $month1;
26	my $year1;
27	my $dateofrange = $input->param('dateofrange');
28	our $title = $input->param('newTitle');
29	our $description = $input->param('newDescription');
30	our $newoperation = $input->param('newOperation');
31	my $allbranches = $input->param('allBranches');
32
33	my $calendardate = sprintf("%04d-%02d-%02d", $year, $month, $day);
34	my $isodate = C4::Dates->new($calendardate, 'iso');
35	$calendardate = $isodate->output('syspref');
36
37	my @dateend = split(/[\/-]/, $dateofrange);
38	if (C4::Context->preference("dateformat") eq "metric") {
39	$day1 = $dateend[0];
40	$month1 = $dateend[1];
41	$year1 = $dateend[2];
42	}elsif (C4::Context->preference("dateformat") eq "us") {
43	$month1 = $dateend[0];
44	$day1 = $dateend[1];
45	$year1 = $dateend[2];
46	} else {
47	$year1 = $dateend[0];
48	$month1 = $dateend[1];
49	$day1 = $dateend[2];
50	}
51	$title \|\| ($title = '');
52	if ($description) {
53	$description =~ s/\r/\\r/g;
54	$description =~ s/\n/\\n/g;
55	} else {
56	$description = '';
57	}
58
59	# We make an array with holiday's days
60	our @holiday_list;
61	if ($year1 && $month1 && $day1){
62	my $first_dt = DateTime->new(year => $year, month => $month, day => $day);
63	my $end_dt = DateTime->new(year => $year1, month => $month1, day => $day1);
64
65	for (my $dt = $first_dt->clone();
66	$dt <= $end_dt;
67	$dt->add(days => 1) )
68	{
69	push @holiday_list, $dt->clone();
70	}
71	}
72
73	if($allbranches) {
74	my $branch;
75	my @branchcodes = split(/\\|/, $input->param('branchCodes'));
76	foreach $branch (@branchcodes) {
77	add_holiday($newoperation, $branch, $weekday, $day, $month, $year, $title, $description);
78	}
79	} else {
80	add_holiday($newoperation, $branchcode, $weekday, $day, $month, $year, $title, $description);
81	}
82
83	print $input->redirect("/cgi-bin/koha/tools/holidays.pl?branch=$originalbranchcode&calendardate=$calendardate");
84
85	sub add_holiday {
86	($newoperation, $branchcode, $weekday, $day, $month, $year, $title, $description) = @_;
87	my $calendar = C4::Calendar->new(branchcode => $branchcode);
88
89	if ($newoperation eq 'weekday') {
90	unless ( $weekday && ($weekday ne '') ) {
91	# was dow calculated by javascript? original code implies it was supposed to be.
92	# if not, we need it.
93	$weekday = &Date::Calc::Day_of_Week($year, $month, $day) % 7 unless($weekday);
94	}
95	unless($calendar->isHoliday($day, $month, $year)) {
96	$calendar->insert_week_day_holiday(weekday => $weekday,
97	title => $title,
98	description => $description);
99	}
100	} elsif ($newoperation eq 'repeatable') {
101	unless($calendar->isHoliday($day, $month, $year)) {
102	$calendar->insert_day_month_holiday(day => $day,
103	month => $month,
104	title => $title,
105	description => $description);
106	}
107	} elsif ($newoperation eq 'holiday') {
108	unless($calendar->isHoliday($day, $month, $year)) {
109	$calendar->insert_single_holiday(day => $day,
110	month => $month,
111	year => $year,
112	title => $title,
113	description => $description);
114	}
115
116	} elsif ( $newoperation eq 'holidayrange' ) {
117	if (@holiday_list){
118	foreach my $date (@holiday_list){
119	unless ( $calendar->isHoliday( $date->{local_c}->{day}, $date->{local_c}->{month}, $date->{local_c}->{year} ) ) {
120	$calendar->insert_single_holiday(
121	day => $date->{local_c}->{day},
122	month => $date->{local_c}->{month},
123	year => $date->{local_c}->{year},
124	title => $title,
125	description => $description
126	);
127	}
128	}
129	}
130	} elsif ( $newoperation eq 'holidayrangerepeat' ) {
131	if (@holiday_list){
132	foreach my $date (@holiday_list){
133	unless ( $calendar->isHoliday( $date->{local_c}->{day}, $date->{local_c}->{month}, $date->{local_c}->{year} ) ) {
134	$calendar->insert_day_month_holiday(
135	day => $date->{local_c}->{day},
136	month => $date->{local_c}->{month},
137	title => $title,
138	description => $description
139	);
140	}
141	}
142	}
143	}
144	}
145	-