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

(-)a/C4/Circulation.pm (-87 lines)
Lines 3531-3622 sub CalcDateDue { Link Here
3531
}
3531
}
3532
3532
3533
3533
3534
=head2 CheckRepeatableHolidays
3535
3536
  $countrepeatable = CheckRepeatableHoliday($itemnumber,$week_day,$branchcode);
3537
3538
This function checks if the date due is a repeatable holiday
3539
3540
C<$date_due>   = returndate calculate with no day check
3541
C<$itemnumber>  = itemnumber
3542
C<$branchcode>  = localisation of issue 
3543
3544
=cut
3545
3546
sub CheckRepeatableHolidays{
3547
my($itemnumber,$week_day,$branchcode)=@_;
3548
my $dbh = C4::Context->dbh;
3549
my $query = qq|SELECT count(*)  
3550
	FROM repeatable_holidays 
3551
	WHERE branchcode=?
3552
	AND weekday=?|;
3553
my $sth = $dbh->prepare($query);
3554
$sth->execute($branchcode,$week_day);
3555
my $result=$sth->fetchrow;
3556
return $result;
3557
}
3558
3559
3560
=head2 CheckSpecialHolidays
3561
3562
  $countspecial = CheckSpecialHolidays($years,$month,$day,$itemnumber,$branchcode);
3563
3564
This function check if the date is a special holiday
3565
3566
C<$years>   = the years of datedue
3567
C<$month>   = the month of datedue
3568
C<$day>     = the day of datedue
3569
C<$itemnumber>  = itemnumber
3570
C<$branchcode>  = localisation of issue 
3571
3572
=cut
3573
3574
sub CheckSpecialHolidays{
3575
my ($years,$month,$day,$itemnumber,$branchcode) = @_;
3576
my $dbh = C4::Context->dbh;
3577
my $query=qq|SELECT count(*) 
3578
	     FROM `special_holidays`
3579
	     WHERE year=?
3580
	     AND month=?
3581
	     AND day=?
3582
             AND branchcode=?
3583
	    |;
3584
my $sth = $dbh->prepare($query);
3585
$sth->execute($years,$month,$day,$branchcode);
3586
my $countspecial=$sth->fetchrow ;
3587
return $countspecial;
3588
}
3589
3590
=head2 CheckRepeatableSpecialHolidays
3591
3592
  $countspecial = CheckRepeatableSpecialHolidays($month,$day,$itemnumber,$branchcode);
3593
3594
This function check if the date is a repeatble special holidays
3595
3596
C<$month>   = the month of datedue
3597
C<$day>     = the day of datedue
3598
C<$itemnumber>  = itemnumber
3599
C<$branchcode>  = localisation of issue 
3600
3601
=cut
3602
3603
sub CheckRepeatableSpecialHolidays{
3604
my ($month,$day,$itemnumber,$branchcode) = @_;
3605
my $dbh = C4::Context->dbh;
3606
my $query=qq|SELECT count(*) 
3607
	     FROM `repeatable_holidays`
3608
	     WHERE month=?
3609
	     AND day=?
3610
             AND branchcode=?
3611
	    |;
3612
my $sth = $dbh->prepare($query);
3613
$sth->execute($month,$day,$branchcode);
3614
my $countspecial=$sth->fetchrow ;
3615
return $countspecial;
3616
}
3617
3618
3619
3620
sub CheckValidBarcode{
3534
sub CheckValidBarcode{
3621
my ($barcode) = @_;
3535
my ($barcode) = @_;
3622
my $dbh = C4::Context->dbh;
3536
my $dbh = C4::Context->dbh;
3623
- 

Return to bug 15185