|
Lines 104-113
my $today = Date_to_Days(&Today);
Link Here
|
| 104 |
while ( my $hold = $holds->next ) { |
104 |
while ( my $hold = $holds->next ) { |
| 105 |
next unless $hold->waitingdate; |
105 |
next unless $hold->waitingdate; |
| 106 |
|
106 |
|
| 107 |
my ( $expire_year, $expire_month, $expire_day ) = split (/-/, $hold->expirationdate); |
107 |
my ( $expire_year, $expire_month, $expire_day ) = split( /-/, $hold->expirationdate ); |
| 108 |
my $calcDate = Date_to_Days( $expire_year, $expire_month, $expire_day ) if $hold->expirationdate; |
108 |
my $calcDate; |
|
|
109 |
$calcDate = Date_to_Days( $expire_year, $expire_month, $expire_day ) if $hold->expirationdate; |
| 109 |
|
110 |
|
| 110 |
if ($calcDate and $today > $calcDate) { |
111 |
if ( $calcDate and $today > $calcDate ) { |
| 111 |
if ( $op eq 'cud-cancelall' ) { |
112 |
if ( $op eq 'cud-cancelall' ) { |
| 112 |
my $res = cancel( |
113 |
my $res = cancel( |
| 113 |
$hold->item->itemnumber, $hold->borrowernumber, $hold->item->holdingbranch, |
114 |
$hold->item->itemnumber, $hold->borrowernumber, $hold->item->holdingbranch, |