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