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 |
- |
|
|