|
Lines 2311-2322
Returns a hashref
Link Here
|
| 2311 |
|
2311 |
|
| 2312 |
sub GetOpenIssue { |
2312 |
sub GetOpenIssue { |
| 2313 |
my ( $itemnumber ) = @_; |
2313 |
my ( $itemnumber ) = @_; |
| 2314 |
|
2314 |
return unless $itemnumber; |
| 2315 |
my $dbh = C4::Context->dbh; |
2315 |
my $dbh = C4::Context->dbh; |
| 2316 |
my $sth = $dbh->prepare( "SELECT * FROM issues WHERE itemnumber = ? AND returndate IS NULL" ); |
2316 |
my $sth = $dbh->prepare( "SELECT * FROM issues WHERE itemnumber = ? AND returndate IS NULL" ); |
| 2317 |
$sth->execute( $itemnumber ); |
2317 |
$sth->execute( $itemnumber ); |
| 2318 |
my $issue = $sth->fetchrow_hashref(); |
2318 |
return $sth->fetchrow_hashref(); |
| 2319 |
return $issue; |
2319 |
|
| 2320 |
} |
2320 |
} |
| 2321 |
|
2321 |
|
| 2322 |
=head2 GetItemIssues |
2322 |
=head2 GetItemIssues |
| 2323 |
- |
|
|