Attachment #24856 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 C4::Context;

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

  \@events = GetSingleEvents( $branchcode )

Get the non-repeating events for the given library.
C<$branchcode> specifies which Calendar you want.

=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 );

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 GetWeeklyEvents

  \@events = GetWeeklyEvents( $branchcode )

Get the weekly-repeating events for the given library.

=cut

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

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

=head2 GetYearlyEvents

  \@events = GetYearlyEvents( $branchcode )

Get the yearly-repeating events for the given library.
which stands for a holiday, but you wanted to make an exception for this particular
date.

=cut

sub GetYearlyEvents {
    my ( $branchcode ) = @_;
    my $exception_holidays = $self->{'exception_holidays'};
    return $exception_holidays;
}

=head2 get_single_holidays

    $single_holidays = $calendar->get_single_holidays();

    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 );
    my $single_holidays = $self->{'single_holidays'};
    return $single_holidays;
}

=head2 ModSingleEvent

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

Inserts a new week day for $self->{branchcode}.

  ModSingleEvent( $branchcode, $date, \%info )

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

=cut

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

    my $weekday = $options{weekday};
    croak "Invalid weekday $weekday" unless $weekday =~ m/^[0-6]$/;

    my $dbh = C4::Context->dbh();
    my $insertHoliday = $dbh->prepare("insert into repeatable_holidays (id,branchcode,weekday,day,month,title,description) values ( '',?,?,NULL,NULL,?,? )"); 
	$insertHoliday->execute( $self->{branchcode}, $weekday, $options{title}, $options{description});
    $self->{'week_days_holidays'}->{$weekday}{title} = $options{title};
    $self->{'week_days_holidays'}->{$weekday}{description} = $options{description};
    return $self;
}

=head2 insert_day_month_holiday

    insert_day_month_holiday(day => $day,
                             month => $month,
                             title => $title,
                             description => $description);

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

    my ( $year, $month, $day ) = ( $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 );
    my $self = shift @_;
    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 ModRepeatingEvent

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

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

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

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

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

  ModRepeatingEvent( $branchcode, $weekday, $month, $day, \%info )

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

=cut

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

    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.

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

C<$year> Is year 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 insert_exception_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 = 1;
    my $insertException = $dbh->prepare("insert into special_holidays (id,branchcode,day,month,year,isexception,title,description) values ('', ?,?,?,?,?,?,?)");
	$insertException->execute( $self->{branchcode}, $options{day},$options{month},$options{year}, $isexception, $options{title}, $options{description});
    $self->{'exception_holidays'}->{"$options{year}/$options{month}/$options{day}"}{title} = $options{title};
    $self->{'exception_holidays'}->{"$options{year}/$options{month}/$options{day}"}{description} = $options{description};
    return $self;
}

=head2 ModWeekdayholiday

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

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

C<$weekday> Is the title to update for the holiday.

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

=cut

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

    my $dbh = C4::Context->dbh();
    my $updateHoliday = $dbh->prepare("UPDATE repeatable_holidays SET title = ?, description = ? WHERE branchcode = ? AND weekday = ?");
    $updateHoliday->execute( $options{title},$options{description},$self->{branchcode},$options{weekday}); 
    $self->{'week_days_holidays'}->{$options{weekday}}{title} = $options{title};
    $self->{'week_days_holidays'}->{$options{weekday}}{description} = $options{description};
    return $self;
}

sub ModRepeatingEvent {
    my ( $branchcode, $weekday, $month, $day, $info ) = @_;
    ModDaymonthholiday(day => $day,
                       month => $month,
                       title => $title,
                       description => $description);

Modifies the title and description for a day/month holiday for $self->{branchcode}.

C<$day> The day of the month for the update.

C<$month> The month to be used for the update.

C<$title> The title to be updated for the holiday.

C<$description> The description to be update for the holiday.

=cut

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

    my $dbh = C4::Context->dbh();
    my $updateHoliday = $dbh->prepare("UPDATE repeatable_holidays SET title = ?, description = ? WHERE month = ? AND day = ? AND branchcode = ?");
       $updateHoliday->execute( $options{title},$options{description},$options{month},$options{day},$self->{branchcode}); 
    $self->{'day_month_holidays'}->{"$options{month}/$options{day}"}{title} = $options{title};
    $self->{'day_month_holidays'}->{"$options{month}/$options{day}"}{description} = $options{description};
    return $self;
}

=head2 ModSingleholiday

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

Modifies the title and description for a single holiday for $self->{branchcode}.

C<$day> Is the day of the month to make the update.

    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', $weekday ) . _get_compare( 'month', $month ) . _get_compare( 'day', $day ), {}, $branchcode, $weekday, $month, $day );

=cut

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

    my $dbh = C4::Context->dbh();
    my $isexception = 0;
    my $updateHoliday = $dbh->prepare("UPDATE special_holidays SET title = ?, description = ? WHERE day = ? AND month = ? AND year = ? AND branchcode = ? AND isexception = ?");
      $updateHoliday->execute($options{title},$options{description},$options{day},$options{month},$options{year},$self->{branchcode},$isexception);    
    $self->{'single_holidays'}->{"$options{year}/$options{month}/$options{day}"}{title} = $options{title};
    $self->{'single_holidays'}->{"$options{year}/$options{month}/$options{day}"}{description} = $options{description};
    return $self;
}

=head2 ModExceptionholiday

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

Modifies the title and description for an exception holiday for $self->{branchcode}.

C<$day> Is the day of the month for the holiday.

C<$month> Is the month for the holiday.

C<$year> Is the year for the holiday.

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

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

=cut

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

    my $dbh = C4::Context->dbh();
    my $isexception = 1;
    my $updateHoliday = $dbh->prepare("UPDATE special_holidays SET title = ?, description = ? WHERE day = ? AND month = ? AND year = ? AND branchcode = ? AND isexception = ?");
    $updateHoliday->execute($options{title},$options{description},$options{day},$options{month},$options{year},$self->{branchcode},$isexception);    
    $self->{'exception_holidays'}->{"$options{year}/$options{month}/$options{day}"}{title} = $options{title};
    $self->{'exception_holidays'}->{"$options{year}/$options{month}/$options{day}"}{description} = $options{description};
    return $self;
}

=head2 delete_holiday

    delete_holiday(weekday => $weekday
                   day => $day,
                   month => $month,
                   year => $year);

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

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

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 {
    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, $weekday, $month, $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', $weekday ) . _get_compare( 'month', $month ) . _get_compare( 'day', $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, $date, \%info )
                   month => $month);

Deletes an event for a single date. $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, $date ) = @_;
    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 ) = ( $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, $weekday, $month, $day )

Deletes a weekly- or yearly-repeating event. Either $weekday, or $month and
$day should be set, for a weekly or yearly event, respectively.
    $calendar->copy_to_branch($target_branch)

=cut

sub DelRepeatingEvent {
    my ( $branchcode, $weekday, $month, $day ) = @_;

    croak "No target_branch" unless $target_branch;

    C4::Context->dbh->do( q{
        DELETE FROM repeatable_holidays
        WHERE branchcode = ?
    } . _get_compare( 'weekday', $weekday ) . _get_compare( 'month', $month ) . _get_compare( 'day', $day ), {}, $branchcode, $weekday, $month, $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 704-709 our $PERL_DEPS = { Link Here

(-)a/C4/Installer/PerlDependencies.pm (+5 lines)
704	'required' => '0',	704	'required' => '0',
705	'min_ver' => '0.73',	705	'min_ver' => '0.73',
706	},	706	},
		707	'Template::Plugin::JavaScript' => {
		708	'usage' => 'Core',
		709	'required' => '1',
		710	'min_ver' => '0.02',
		711	},
707	};	712	};
708		713
709	1;	714	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);




    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" />
<script type="text/javascript" src="[% themelang %]/lib/jquery/plugins/jquery.dataTables.min.js"></script>
[% INCLUDE 'datatables-strings.inc' %]
<script type="text/javascript" src="[% themelang %]/js/datatables.js"></script>
<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" />
<script type="text/javascript" src="[% themelang %]/lib/jquery/plugins/jquery.dataTables.min.js"></script>
[% INCLUDE 'datatables-strings.inc' %]
<script type="text/javascript" src="[% themelang %]/js/datatables.js"></script>
<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"));

    /* Creates all the structures to deal with all diferents 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: "+exception_holidays[dateString].title];
        } else if ( week_days[weekDay] != null ){
            return [true, "repeatableweekly", "Weekly holdiay: "+week_days[weekDay].title];
        } else if ( day_month_holidays[dayMonth] != null ) {
            return [true, "repeatableyearly", "Yearly holdiay: "+day_month_holidays[dayMonth].title];
        } else if (holidays[dateString] != null) {
            return [true, "holiday", "Single holiday: "+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();
        });
        $("#holidayexceptions,#holidayweeklyrepeatable,#holidaysunique").dataTable($.extend(true, {}, dataTablesDefaults, {
            "sDom": 't',
            "bPaginate": false
        }));
        $("#holidaysyearlyrepeatable").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:  #D8EFB3 none; color :  Black;  border : 1px solid #BCBCBC; }
td.repeatableyearly a.ui-state-default {  background:  #FFFF99 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 --> 
                <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="newOperationFieldException">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" name="cancel2" 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 1st, 2012 will make it a holiday, but will not affect August 1st 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 1st will make August 1st 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 1st, 2012  and August 10st, 2012 will make all days between 1st and 10st 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 1st, 2012  and August 10st, 2012 will make all days between 1st and 10st 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" name="cancel2" 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 holdiay.</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;

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', 1, undef, undef, $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', 1, undef, undef, $new_holiday );
$weekly_events = GetWeeklyEvents( 'UPL' );
is( scalar @$weekly_events, 0, 'weekly modification, not insertion' );

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

# Yearly events

ModRepeatingEvent( 'UPL', undef, 6, 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', undef, 6, 26, $new_holiday );
$yearly_events = GetYearlyEvents( 'UPL' );
is( scalar @$yearly_events, 0, 'yearly modification, not insertion' );

$new_holiday->{close_hour} = 0;
ModRepeatingEvent( 'UPL', undef, 6, 26, $new_holiday );

# Single events

ModSingleEvent( 'UPL', '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', '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', 1, undef, undef );
$weekly_events = GetWeeklyEvents( 'UPL' );
is( scalar @$weekly_events, 0, 'weekly deleted' );

DelRepeatingEvent( 'UPL', undef, 6, 26 );
$yearly_events = GetYearlyEvents( 'UPL' );
is( scalar @$yearly_events, 0, 'yearly deleted' );

DelSingleEvent( 'UPL', '2013-03-17' );

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




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 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 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 our $branchcode ( @branches ) {
        my %event_types = (
            'single' => sub {
                ModSingleEvent( $branchcode, $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, $input->param( 'weekday' ), undef, undef, {
                    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, undef, $input->param( 'month' ), $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, $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, undef, $dt->month, $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 );
            },

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

            'yearly' => sub {
                DelRepeatingEvent( $branchcode, undef, $input->param( 'month' ), $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, $dt->ymd );
        }
    }
} elsif ( $op eq 'deleterangerepeat' ) {
    foreach my $branchcode ( @branches ) {
        foreach my $dt ( @ranged_dates ) {
            DelRepeatingEvent( $branchcode, undef, $dt->month, $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.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('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 3122-3214 sub CalcDateDue { Link Here

(-)a/C4/Circulation.pm (-87 lines)
3122	return $datedue;	3122	return $datedue;
3123	}	3123	}
3124		3124
3125
3126	=head2 CheckRepeatableHolidays
3127
3128	$countrepeatable = CheckRepeatableHoliday($itemnumber,$week_day,$branchcode);
3129
3130	This function checks if the date due is a repeatable holiday
3131
3132	C<$date_due> = returndate calculate with no day check
3133	C<$itemnumber> = itemnumber
3134	C<$branchcode> = localisation of issue
3135
3136	=cut
3137
3138	sub CheckRepeatableHolidays{
3139	my($itemnumber,$week_day,$branchcode)=@_;
3140	my $dbh = C4::Context->dbh;
3141	my $query = qq\|SELECT count(*)
3142	FROM repeatable_holidays
3143	WHERE branchcode=?
3144	AND weekday=?\|;
3145	my $sth = $dbh->prepare($query);
3146	$sth->execute($branchcode,$week_day);
3147	my $result=$sth->fetchrow;
3148	return $result;
3149	}
3150
3151
3152	=head2 CheckSpecialHolidays
3153
3154	$countspecial = CheckSpecialHolidays($years,$month,$day,$itemnumber,$branchcode);
3155
3156	This function check if the date is a special holiday
3157
3158	C<$years> = the years of datedue
3159	C<$month> = the month of datedue
3160	C<$day> = the day of datedue
3161	C<$itemnumber> = itemnumber
3162	C<$branchcode> = localisation of issue
3163
3164	=cut
3165
3166	sub CheckSpecialHolidays{
3167	my ($years,$month,$day,$itemnumber,$branchcode) = @_;
3168	my $dbh = C4::Context->dbh;
3169	my $query=qq\|SELECT count(*)
3170	FROM `special_holidays`
3171	WHERE year=?
3172	AND month=?
3173	AND day=?
3174	AND branchcode=?
3175	\|;
3176	my $sth = $dbh->prepare($query);
3177	$sth->execute($years,$month,$day,$branchcode);
3178	my $countspecial=$sth->fetchrow ;
3179	return $countspecial;
3180	}
3181
3182	=head2 CheckRepeatableSpecialHolidays
3183
3184	$countspecial = CheckRepeatableSpecialHolidays($month,$day,$itemnumber,$branchcode);
3185
3186	This function check if the date is a repeatble special holidays
3187
3188	C<$month> = the month of datedue
3189	C<$day> = the day of datedue
3190	C<$itemnumber> = itemnumber
3191	C<$branchcode> = localisation of issue
3192
3193	=cut
3194
3195	sub CheckRepeatableSpecialHolidays{
3196	my ($month,$day,$itemnumber,$branchcode) = @_;
3197	my $dbh = C4::Context->dbh;
3198	my $query=qq\|SELECT count(*)
3199	FROM `repeatable_holidays`
3200	WHERE month=?
3201	AND day=?
3202	AND branchcode=?
3203	\|;
3204	my $sth = $dbh->prepare($query);
3205	$sth->execute($month,$day,$branchcode);
3206	my $countspecial=$sth->fetchrow ;
3207	return $countspecial;
3208	}
3209
3210
3211
3212	sub CheckValidBarcode{	3125	sub CheckValidBarcode{
3213	my ($barcode) = @_;	3126	my ($barcode) = @_;
3214	my $dbh = C4::Context->dbh;	3127	my $dbh = C4::Context->dbh;

Lines 306-435 sub _get_chargeable_units { Link Here

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

Lines 339-356 sub clear_weekly_closed_days { Link Here

(-)a/Koha/Calendar.pm (-18 lines)
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 311-333 sub GetWaitingHolds { Link Here
311	sprintf( "%04d-%02d-%02d", $date_due[0], $date_due[1], $date_due[2] );	311	sprintf( "%04d-%02d-%02d", $date_due[0], $date_due[1], $date_due[2] );
312	$issue->{'level'} = 1; # only one level for Hold Waiting notifications	312	$issue->{'level'} = 1; # only one level for Hold Waiting notifications
313		313
314	my $days_to_subtract = 0;	314	my $calendar = Koha::Calendar->new( branchcode => $issue->{'site'} );
315	my $calendar = C4::Calendar->new( branchcode => $issue->{'site'} );	315	$issue->{'days_since_waiting'} = $calendar->days_between(
316	while (	316	DateTime->new(
317	$calendar->isHoliday(	317	year => $waitingdate[0],
318	reverse(	318	month => $waitingdate[1],
319	Add_Delta_Days(	319	day => $waitingdate[2],
320	$waitingdate[0], $waitingdate[1],	320	time_zone => C4::Context->tz,
321	$waitingdate[2], $days_to_subtract	321	),
322	)	322	DateTime->now(
323	)	323	time_zone => C4::Context->tz,
324	)	324	),
325	)	325	);
326	{
327	$days_to_subtract++;
328	}
329	$issue->{'days_since_waiting'} =
330	$issue->{'days_since_waiting'} - $days_to_subtract;
331		326
332	if (	327	if (
333	(	328	(

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

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 (+261 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
		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 our $branchcode ( @branches ) {
127	my %event_types = (
128	'single' => sub {
129	ModSingleEvent( $branchcode, $date, {
130	title => $input->param( 'title' ),
131	description => $input->param( 'description' ),
132	open_hour => $open_hour,
133	open_minute => $open_minute,
134	close_hour => $close_hour,
135	close_minute => $close_minute
136	} );
137	},
138
139	'weekly' => sub {
140	ModRepeatingEvent( $branchcode, $input->param( 'weekday' ), undef, undef, {
141	title => $input->param( 'title' ),
142	description => $input->param( 'description' ),
143	open_hour => $open_hour,
144	open_minute => $open_minute,
145	close_hour => $close_hour,
146	close_minute => $close_minute
147	} );
148	},
149
150	'yearly' => sub {
151	ModRepeatingEvent( $branchcode, undef, $input->param( 'month' ), $input->param( 'day' ), {
152	title => $input->param( 'title' ),
153	description => $input->param( 'description' ),
154	open_hour => $open_hour,
155	open_minute => $open_minute,
156	close_hour => $close_hour,
157	close_minute => $close_minute
158	} );
159	},
160
161	'singlerange' => sub {
162	foreach my $dt ( @ranged_dates ) {
163	ModSingleEvent( $branchcode, $dt->ymd, {
164	title => $input->param( 'title' ),
165	description => $input->param( 'description' ),
166	open_hour => $open_hour,
167	open_minute => $open_minute,
168	close_hour => $close_hour,
169	close_minute => $close_minute
170	} );
171	}
172	},
173
174	'yearlyrange' => sub {
175	foreach my $dt ( @ranged_dates ) {
176	ModRepeatingEvent( $branchcode, undef, $dt->month, $dt->day, {
177	title => $input->param( 'title' ),
178	description => $input->param( 'description' ),
179	open_hour => $open_hour,
180	open_minute => $open_minute,
181	close_hour => $close_hour,
182	close_minute => $close_minute
183	} );
184	}
185	},
186	);
187
188	# Choose from the above options
189	$event_types{ $input->param( 'eventType' ) }->();
190	}
191	} elsif ( $op eq 'delete' ) {
192	my $date = $input->param( 'year' ) . '-' . $input->param( 'month' ) . '-' . $input->param( 'day' );
193
194	foreach my $branchcode ( @branches ) {
195	my %event_types = (
196	'single' => sub {
197	DelSingleEvent( $branchcode, $date );
198	},
199
200	'weekly' => sub {
201	DelRepeatingEvent( $branchcode, $input->param( 'weekday' ), undef, undef );
202	},
203
204	'yearly' => sub {
205	DelRepeatingEvent( $branchcode, undef, $input->param( 'month' ), $input->param( 'day' ) );
206	},
207	);
208
209	# Choose from the above options
210	$event_types{ $input->param( 'eventType' ) }->();
211	}
212	} elsif ( $op eq 'deleterange' ) {
213	foreach my $branchcode ( @branches ) {
214	foreach my $dt ( @ranged_dates ) {
215	DelSingleEvent( $branchcode, $dt->ymd );
216	}
217	}
218	} elsif ( $op eq 'deleterangerepeat' ) {
219	foreach my $branchcode ( @branches ) {
220	foreach my $dt ( @ranged_dates ) {
221	DelRepeatingEvent( $branchcode, undef, $dt->month, $dt->day );
222	}
223	}
224	} elsif ( $op eq 'copyall' ) {
225	CopyAllEvents( $input->param( 'from_branchcode' ), $input->param( 'branchcode' ) );
226	}
227
228	my $yearly_events = GetYearlyEvents($branch);
229	foreach my $event ( @$yearly_events ) {
230	# Determine date format on month and day.
231	my $day_monthdate;
232	my $day_monthdate_sort;
233	if (C4::Context->preference("dateformat") eq "metric") {
234	$day_monthdate_sort = "$event->{month}-$event->{day}";
235	$day_monthdate = "$event->{day}/$event->{month}";
236	} elsif (C4::Context->preference("dateformat") eq "us") {
237	$day_monthdate = "$event->{month}/$event->{day}";
238	$day_monthdate_sort = $day_monthdate;
239	} else {
240	$day_monthdate = "$event->{month}-$event->{day}";
241	$day_monthdate_sort = $day_monthdate;
242	}
243
244	$event->{month_day_display} = $day_monthdate;
245	$event->{month_day_sort} = $day_monthdate_sort;
246	}
247
248	$template->param(
249	weekly_events => GetWeeklyEvents($branch),
250	yearly_events => $yearly_events,
251	single_events => GetSingleEvents($branch),
252	branchloop => \@branchloop,
253	calendardate => $calendardate,
254	keydate => $keydate,
255	branchcodes => $branchcodes,
256	branch => $branch,
257	branchname => $branchname,
258	);
259
260	# Shows the template with the real values replaced
261	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.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('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	-