-my ($issues,$biblio,$barcode);
-if ($itemnumber){
- $issues=GetItemIssues($itemnumber);
- $biblio=GetBiblioFromItemNumber($itemnumber);
- $biblionumber=$biblio->{biblionumber};
- $barcode=$issues->[0]->{barcode};
- $template->param(
- %$biblio,
- barcode=> $barcode,
- );
-} else {
- $issues = GetBiblioIssues($biblionumber);
- my (undef,@biblio)=GetBiblio($biblionumber);
- my $total = scalar @$issues;
- $template->param(
- %{$biblio[0]},
- );
-}
-foreach (@{$issues}){
- $_->{date_due} = format_sqldatetime($_->{date_due});
- $_->{issuedate} = format_sqldatetime($_->{issuedate});
- $_->{returndate} = format_sqldatetime($_->{returndate});
- $_->{lastreneweddate} = format_sqldatetime($_->{lastreneweddate});
-}