|
Lines 1195-1247
Get the Hard Due Date and it's comparison for an itemtype, a borrower type and a
Link Here
|
| 1195 |
|
1195 |
|
| 1196 |
sub GetHardDueDate { |
1196 |
sub GetHardDueDate { |
| 1197 |
my ( $borrowertype, $itemtype, $branchcode ) = @_; |
1197 |
my ( $borrowertype, $itemtype, $branchcode ) = @_; |
| 1198 |
my $dbh = C4::Context->dbh; |
|
|
| 1199 |
my $sth = |
| 1200 |
$dbh->prepare( |
| 1201 |
"select hardduedate, hardduedatecompare from issuingrules where categorycode=? and itemtype=? and branchcode=?" |
| 1202 |
); |
| 1203 |
$sth->execute( $borrowertype, $itemtype, $branchcode ); |
| 1204 |
my $results = $sth->fetchrow_hashref; |
| 1205 |
return (dt_from_string($results->{hardduedate}, 'iso'),$results->{hardduedatecompare}) |
| 1206 |
if defined($results) && $results->{hardduedate}; |
| 1207 |
|
1198 |
|
| 1208 |
$sth->execute( $borrowertype, "*", $branchcode ); |
1199 |
my $rule = GetIssuingRule( $borrowertype, $itemtype, $branchcode ); |
| 1209 |
$results = $sth->fetchrow_hashref; |
|
|
| 1210 |
return (dt_from_string($results->{hardduedate}, 'iso'),$results->{hardduedatecompare}) |
| 1211 |
if defined($results) && $results->{hardduedate}; |
| 1212 |
|
1200 |
|
| 1213 |
$sth->execute( "*", $itemtype, $branchcode ); |
1201 |
if ( defined( $rule ) ) { |
| 1214 |
$results = $sth->fetchrow_hashref; |
1202 |
if ( $rule->{hardduedate} ) { |
| 1215 |
return (dt_from_string($results->{hardduedate}, 'iso'),$results->{hardduedatecompare}) |
1203 |
return (dt_from_string($rule->{hardduedate}, 'iso'),$rule->{hardduedatecompare}); |
| 1216 |
if defined($results) && $results->{hardduedate}; |
1204 |
} else { |
| 1217 |
|
1205 |
return (undef, undef); |
| 1218 |
$sth->execute( "*", "*", $branchcode ); |
1206 |
} |
| 1219 |
$results = $sth->fetchrow_hashref; |
1207 |
} |
| 1220 |
return (dt_from_string($results->{hardduedate}, 'iso'),$results->{hardduedatecompare}) |
|
|
| 1221 |
if defined($results) && $results->{hardduedate}; |
| 1222 |
|
| 1223 |
$sth->execute( $borrowertype, $itemtype, "*" ); |
| 1224 |
$results = $sth->fetchrow_hashref; |
| 1225 |
return (dt_from_string($results->{hardduedate}, 'iso'),$results->{hardduedatecompare}) |
| 1226 |
if defined($results) && $results->{hardduedate}; |
| 1227 |
|
| 1228 |
$sth->execute( $borrowertype, "*", "*" ); |
| 1229 |
$results = $sth->fetchrow_hashref; |
| 1230 |
return (dt_from_string($results->{hardduedate}, 'iso'),$results->{hardduedatecompare}) |
| 1231 |
if defined($results) && $results->{hardduedate}; |
| 1232 |
|
| 1233 |
$sth->execute( "*", $itemtype, "*" ); |
| 1234 |
$results = $sth->fetchrow_hashref; |
| 1235 |
return (dt_from_string($results->{hardduedate}, 'iso'),$results->{hardduedatecompare}) |
| 1236 |
if defined($results) && $results->{hardduedate}; |
| 1237 |
|
| 1238 |
$sth->execute( "*", "*", "*" ); |
| 1239 |
$results = $sth->fetchrow_hashref; |
| 1240 |
return (dt_from_string($results->{hardduedate}, 'iso'),$results->{hardduedatecompare}) |
| 1241 |
if defined($results) && $results->{hardduedate}; |
| 1242 |
|
| 1243 |
# if no rule is set => return undefined |
| 1244 |
return (undef, undef); |
| 1245 |
} |
1208 |
} |
| 1246 |
|
1209 |
|
| 1247 |
=head2 GetIssuingRule |
1210 |
=head2 GetIssuingRule |
| 1248 |
- |
|
|