Lines 107-116
sub printorders {
Link Here
|
107 |
push(@$arrbasket, $bkey); |
107 |
push(@$arrbasket, $bkey); |
108 |
} |
108 |
} |
109 |
push(@$abaskets, $arrbasket); |
109 |
push(@$abaskets, $arrbasket); |
|
|
110 |
|
111 |
my $titleinfo; |
110 |
foreach my $line (@{$orders->{$basket->{basketno}}}) { |
112 |
foreach my $line (@{$orders->{$basket->{basketno}}}) { |
111 |
$arrbasket = undef; |
113 |
$arrbasket = undef; |
|
|
114 |
$titleinfo = ""; |
115 |
if ( C4::Context->preference("marcflavour") eq 'UNIMARC' ) { |
116 |
$titleinfo = $line->{title} . " / " . $line->{author} . |
117 |
( $line->{isbn} ? " ISBN : " . $line->{isbn} : '' ) . |
118 |
( $line->{en} ? " EN : " . $line->{en} : '' ) . |
119 |
( $line->{itemtype} ? ", " . $line->{itemtype} : '' ) . |
120 |
( $line->{edition} ? ", " . $line->{edition} : '' ) . |
121 |
( $line->{publishercode} ? ' publiƩ par '. $line->{publishercode} : '') . |
122 |
( $line->{publicationyear} ? ', '. $line->{publicationyear} : ''); |
123 |
} |
124 |
else { # MARC21, NORMARC |
125 |
$titleinfo = $line->{title} . " " . $line->{author} . |
126 |
( $line->{isbn} ? " ISBN : " . $line->{isbn} : '' ) . |
127 |
( $line->{en} ? " EN : " . $line->{en} : '' ) . |
128 |
( $line->{itemtype} ? " " . $line->{itemtype} : '' ) . |
129 |
( $line->{edition} ? ", " . $line->{edition} : '' ) . |
130 |
( $line->{publishercode} ? ' publiƩ par '. $line->{publishercode} : '') . |
131 |
( $line->{copyrightdate} ? ' '. $line->{copyrightdate} : ''); |
132 |
} |
133 |
|
112 |
push( @$arrbasket, |
134 |
push( @$arrbasket, |
113 |
$line->{title} . " / " . $line->{author} . ( $line->{isbn} ? " ISBN : " . $line->{isbn} : '' ) . ( $line->{en} ? " EN : " . $line->{en} : '' ) . ", " . $line->{itemtype} . ( $line->{publishercode} ? ' published by '. $line->{publishercode} : ""), |
135 |
$titleinfo, |
114 |
$line->{quantity}, |
136 |
$line->{quantity}, |
115 |
$num->format_price($line->{rrpgste}), |
137 |
$num->format_price($line->{rrpgste}), |
116 |
$num->format_price($line->{rrpgsti}), |
138 |
$num->format_price($line->{rrpgsti}), |
117 |
- |
|
|