3 #use lib '/usr/local/opus-dev/intranet/modules';
4 #use C4::Context("/etc/koha-opus-dev.conf");
12 use C4::Interface::CGI::Output;
15 use PDF::Reuse::Barcode;
23 my $htdocs_path = C4::Context->config('intrahtdocs');
26 my $pdf = new PDF::Labels(
27 $PDF::Labels::PageFormats[1],
28 filename => "$htdocs_path/barcodes/opus.pdf",
29 Author => 'PDF Labelmaker',
30 'PageMode' => 'UseOutlines',
34 warn "$htdocs_path/barcodes/opus.pdf";
36 my @resultsloop = get_label_items();
38 #warn Dumper @resultsloop;
39 warn Dumper $pdf->{'filename'};
41 $pdf->setlabel(0); # Start with label 5 on first page
43 foreach my $result (@resultsloop) {
45 $pdf->label( $result->{'itemtype'}, $result->{'number'}, 'LAK',
46 $result->{'barcode'} );
47 $pdf->label( $result->{'itemtype'}, $result->{'dewey'}, 'LAK',
48 $result->{'barcode'} );
54 #--------------------------------------------------
57 prFile("$htdocs_path/barcodes/opus1.pdf");
58 prDoc("$htdocs_path/barcodes/opus.pdf");
61 print $cgi->redirect("/intranet-tmpl/barcodes/opus1.pdf");