barcodes/label-print-opus-pdf.pl

   1 #!/usr/bin/perl
   2
   3 #use lib '/usr/local/opus-dev/intranet/modules';
   4 #use C4::Context("/etc/koha-opus-dev.conf");
   5
   6 use strict;
   7 use CGI;
   8 use C4::Labels;
   9 use C4::Auth;
  10 use C4::Serials;
  11 use C4::Output;
  12 use C4::Interface::CGI::Output;
  13 use C4::Context;
  14 use PDF::Reuse;
  15 use PDF::Reuse::Barcode;
  16 use PDF::Report;
  17 use PDF::Create;
  18 use PDF::Labels;
  19 use Acme::Comment;
  20 use Data::Dumper;
  21 warn "-------";
  22
  23 my $htdocs_path = C4::Context->config('intrahtdocs');
  24 my $cgi         = new CGI;
  25
  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',
  31     Title      => 'My Labels'
  32 );
  33
  34 warn "$htdocs_path/barcodes/opus.pdf";
  35
  36 my @resultsloop = get_label_items();
  37
  38 #warn Dumper @resultsloop;
  39 warn Dumper $pdf->{'filename'};
  40
  41 $pdf->setlabel(0);    # Start with label 5 on first page
  42
  43 foreach my $result (@resultsloop) {
  44     warn Dumper $result;
  45     $pdf->label( $result->{'itemtype'}, $result->{'number'}, 'LAK',
  46         $result->{'barcode'} );
  47     $pdf->label( $result->{'itemtype'}, $result->{'dewey'}, 'LAK',
  48         $result->{'barcode'} );
  49
  50 }
  51 warn "HERE";
  52 $pdf->close();
  53
  54 #--------------------------------------------------
  55
  56 use PDF::Reuse;
  57 prFile("$htdocs_path/barcodes/opus1.pdf");
  58 prDoc("$htdocs_path/barcodes/opus.pdf");
  59 prEnd();
  60
  61 print $cgi->redirect("/intranet-tmpl/barcodes/opus1.pdf");
  62