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 |
- |
|
|