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