View | Details | Raw Unified | Return to bug 11859
Collapse All | Expand All

(-)a/acqui/pdfformat/layout2pagesde.pm (-2 / +21 lines)
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
- 

Return to bug 11859