32 lines
663 B
Perl
Executable File
32 lines
663 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use lib '/usr/local/opus-dev/intranet/modules';
|
|
use C4::Context("/etc/koha-opus-dev.conf");
|
|
|
|
use strict;
|
|
use CGI;
|
|
use C4::Labels;
|
|
use C4::Auth;
|
|
use C4::Output;
|
|
use C4::Context;
|
|
use HTML::Template::Pro;
|
|
|
|
use Data::Dumper;
|
|
|
|
# get the printing settings
|
|
my $conf_data = get_label_options();
|
|
my $cgi = new CGI;
|
|
|
|
my $papertype = $conf_data->{'papertype'};
|
|
warn $papertype;
|
|
|
|
if ( $papertype eq "Gaylord8511" ) {
|
|
warn "GAY";
|
|
print $cgi->redirect("/cgi-bin/koha/barcodes/label-print-pdf.pl");
|
|
}
|
|
elsif ( $papertype eq "OPUS-Dot Matrix" ) {
|
|
warn "OPUS labes";
|
|
print $cgi->redirect("/cgi-bin/koha/barcodes/label-print-opus-pdf.pl");
|
|
}
|
|
|