Lines 3897-3903
sub CalcDateDue {
Link Here
|
3897 |
# starter vars so don't do calculations directly to $datedue |
3897 |
# starter vars so don't do calculations directly to $datedue |
3898 |
my $potential_datedue = $datedue->clone; |
3898 |
my $potential_datedue = $datedue->clone; |
3899 |
my $library_close = $datedue->clone; |
3899 |
my $library_close = $datedue->clone; |
3900 |
my $dayofweek = $datedue->local_day_of_week - 1; |
3900 |
my $dayofweek = $datedue->day_of_week - 1; |
|
|
3901 |
my $tomorrow_dayofweek = $dayofweek + 1; |
3902 |
# If it's Sunday and tomorrow would be == 7, make tomorrow 0 (Days are stored as 0-6) |
3903 |
if ( $tomorrow_dayofweek > 6 ) { $tomorrow_dayofweek = 0; } |
3901 |
my $todayhours = Koha::Library::Hours->find({ library_id => $branch, day => $dayofweek }); |
3904 |
my $todayhours = Koha::Library::Hours->find({ library_id => $branch, day => $dayofweek }); |
3902 |
my @close = undef; |
3905 |
my @close = undef; |
3903 |
my $tomorrowhours = Koha::Library::Hours->find({ library_id => $branch, day => $dayofweek+1 }); # get open hours of next day |
3906 |
my $tomorrowhours = Koha::Library::Hours->find({ library_id => $branch, day => $dayofweek+1 }); # get open hours of next day |
3904 |
- |
|
|