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

(-)a/acqui/basketgroup.pl (-6 / +30 lines)
Lines 184-192 sub printbasketgrouppdf{ Link Here
184
    my ($basketgroupid) = @_;
184
    my ($basketgroupid) = @_;
185
    
185
    
186
    my $pdfformat = C4::Context->preference("OrderPdfFormat");
186
    my $pdfformat = C4::Context->preference("OrderPdfFormat");
187
    eval "use $pdfformat";
187
    if ($pdfformat eq 'pdfformat::layout3pages' || $pdfformat eq 'pdfformat::layout2pages'){
188
    # FIXME consider what would happen if $pdfformat does not
188
	eval {
189
    # contain the name of a valid Perl module.
189
	    require $pdfformat;
190
	    import $pdfformat;
191
	};
192
	if ($@){
193
	}
194
    }
195
    else {
196
	print $input->header;  
197
	print $input->start_html;  # FIXME Should do a nicer page
198
	print "<h1>Invalid PDF Format set</h1>";
199
	print "Please go to the systempreferences and set a valid pdfformat";
200
	exit;
201
    }
190
    
202
    
191
    my $basketgroup = GetBasketgroup($basketgroupid);
203
    my $basketgroup = GetBasketgroup($basketgroupid);
192
    my $bookseller = GetBookSellerFromId($basketgroup->{'booksellerid'});
204
    my $bookseller = GetBookSellerFromId($basketgroup->{'booksellerid'});
Lines 202-209 sub printbasketgrouppdf{ Link Here
202
            #isbn, itemtype, author, title, publishercode, quantity, listprice ecost discount gstrate
214
            #isbn, itemtype, author, title, publishercode, quantity, listprice ecost discount gstrate
203
            my @ba_order;
215
            my @ba_order;
204
            if ( $ord->{biblionumber} && $ord->{quantity}> 0 ) {
216
            if ( $ord->{biblionumber} && $ord->{quantity}> 0 ) {
205
                eval "use C4::Biblio";
217
                eval {
206
                eval "use C4::Koha";
218
		    require C4::Biblio;
219
		    import C4::Biblio;
220
		};
221
		if ($@){
222
		    croak $@;
223
		}
224
                eval {
225
		    require C4::Koha;
226
		    import C4::Koha;
227
		};
228
		if ($@){
229
		    croak $@;
230
		}
207
                my $bib = GetBiblioData($ord->{biblionumber});
231
                my $bib = GetBiblioData($ord->{biblionumber});
208
                my $itemtypes = GetItemTypes();
232
                my $itemtypes = GetItemTypes();
209
                if($ord->{isbn}){
233
                if($ord->{isbn}){
Lines 246-251 sub printbasketgrouppdf{ Link Here
246
    );
270
    );
247
    my $pdf = printpdf($basketgroup, $bookseller, $baskets, \%orders, $bookseller->{gstrate} // C4::Context->preference("gist")) || die "pdf generation failed";
271
    my $pdf = printpdf($basketgroup, $bookseller, $baskets, \%orders, $bookseller->{gstrate} // C4::Context->preference("gist")) || die "pdf generation failed";
248
    print $pdf;
272
    print $pdf;
273
249
}
274
}
250
275
251
my $op = $input->param('op');
276
my $op = $input->param('op');
252
- 

Return to bug 6679