|
Lines 457-462
sub build_issue_data {
Link Here
|
| 457 |
$issue->{date_due} = output_pref( $issue->{date_due} ); |
457 |
$issue->{date_due} = output_pref( $issue->{date_due} ); |
| 458 |
$issue->{issuedate} = output_pref( $issue->{issuedate} ) if defined $issue->{issuedate}; |
458 |
$issue->{issuedate} = output_pref( $issue->{issuedate} ) if defined $issue->{issuedate}; |
| 459 |
my $biblionumber = $issue->{biblionumber}; |
459 |
my $biblionumber = $issue->{biblionumber}; |
|
|
460 |
$issue->{issuingbranchname} = GetBranchName($issue->{branchcode}); |
| 460 |
my %row = %{$issue}; |
461 |
my %row = %{$issue}; |
| 461 |
$totalprice += $issue->{replacementprice}; |
462 |
$totalprice += $issue->{replacementprice}; |
| 462 |
|
463 |
|
| 463 |
- |
|
|