|
Lines 88-99
sub printorders {
Link Here
|
| 88 |
} |
88 |
} |
| 89 |
push(@$abaskets, $arrbasket); |
89 |
push(@$abaskets, $arrbasket); |
| 90 |
|
90 |
|
|
|
91 |
my $titleinfo; |
| 91 |
for my $basket (@$baskets){ |
92 |
for my $basket (@$baskets){ |
| 92 |
for my $line (@{$orders->{$basket->{basketno}}}) { |
93 |
for my $line (@{$orders->{$basket->{basketno}}}) { |
| 93 |
$arrbasket = undef; |
94 |
$arrbasket = undef; |
|
|
95 |
$titleinfo = ""; |
| 96 |
if ( C4::Context->preference("marcflavour") eq 'UNIMARC' ) { |
| 97 |
$titleinfo = $line->{title} . " / " . $line->{author} . |
| 98 |
( $line->{isbn} ? " ISBN: " . $line->{isbn} : '' ) . |
| 99 |
( $line->{en} ? " EN: " . $line->{en} : '' ) . |
| 100 |
( $line->{itemtype} ? ", " . $line->{itemtype} : '' ) . |
| 101 |
( $line->{edition} ? ", " . $line->{edition} : '' ) . |
| 102 |
( $line->{publishercode} ? ' Verlag: '. $line->{publishercode} : '') . |
| 103 |
( $line->{publicationyear} ? ', '. $line->{publicationyear} : ''); |
| 104 |
} |
| 105 |
else { # MARC21, NORMARC |
| 106 |
$titleinfo = $line->{title} . " " . $line->{author} . |
| 107 |
( $line->{isbn} ? " ISBN: " . $line->{isbn} : '' ) . |
| 108 |
( $line->{en} ? " EN: " . $line->{en} : '' ) . |
| 109 |
( $line->{itemtype} ? " " . $line->{itemtype} : '' ) . |
| 110 |
( $line->{edition} ? ", " . $line->{edition} : '' ) . |
| 111 |
( $line->{publishercode} ? ' Verlag: '. $line->{publishercode} : '') . |
| 112 |
( $line->{copyrightdate} ? ' '. $line->{copyrightdate} : ''); |
| 113 |
} |
| 94 |
push( @$arrbasket, |
114 |
push( @$arrbasket, |
| 95 |
$basket->{basketno}, |
115 |
$basket->{basketno}, |
| 96 |
$line->{title} . " / " . $line->{author} . ( $line->{isbn} ? " ISBN: " . $line->{isbn} : '' ) . ( $line->{en} ? " EN: " . $line->{en} : '' ) . ", " . $line->{itemtype} . ( $line->{publishercode} ? 'Verlag:'. $line->{publishercode} : ""), |
116 |
$titleinfo, |
| 97 |
$line->{quantity}, |
117 |
$line->{quantity}, |
| 98 |
$num->format_price($line->{rrpgsti}), |
118 |
$num->format_price($line->{rrpgsti}), |
| 99 |
$num->format_price($line->{discount}).'%', |
119 |
$num->format_price($line->{discount}).'%', |
| 100 |
- |
|
|