labels/label-select-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::Output;
  11 use C4::Context;
  12 use HTML::Template;
  13
  14 use Data::Dumper;
  15
  16 # get the printing settings
  17 my $conf_data = get_label_options();
  18 my $cgi       = new CGI;
  19
  20 my $papertype = $conf_data->{'papertype'};
  21 warn $papertype;
  22
  23 if ( $papertype eq "Gaylord8511" ) {
  24     warn "GAY";
  25     print $cgi->redirect("/cgi-bin/koha/barcodes/label-print-pdf.pl");
  26 }
  27 elsif ( $papertype eq "OPUS-Dot Matrix" ) {
  28     warn "OPUS labes";
  29     print $cgi->redirect("/cgi-bin/koha/barcodes/label-print-opus-pdf.pl");
  30 }
  31