[Koha-cvs] koha/barcodes label-print-select-pdf.pl [dev_week]

[Mason James]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Mason James <sushi>     07/08/28 22:51:54

Added files:
        barcodes       : label-print-select-pdf.pl 

Log message:
        wrapper/redirect script to handle  different hardcoded 
label-print-pdf.pl templates

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-print-select-pdf.pl?cvsroot=koha&only_with_tag=dev_week&rev=1.1.2.1

Patches:
Index: label-print-select-pdf.pl
===================================================================
RCS file: label-print-select-pdf.pl
diff -N label-print-select-pdf.pl
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ label-print-select-pdf.pl   28 Aug 2007 22:51:54 -0000      1.1.2.1
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+
+
+use strict;
+use CGI;
+use C4::Labels;
+use C4::Context;
+use C4::Auth;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use C4::Context;
+use HTML::Template;
+
+
+# get the printing settings
+my $conf_data = get_label_options();
+my $cgi       = new CGI;
+
+# get batchid and active template
+my $batch_id        = $cgi->param('batch_id');
+
+my $template = GetActiveLabelTemplate();
+
+if ($template->{'tmpl_code'} eq 'demco_142-1685_C') {
+   warn "GAY";
+    print $cgi->redirect("/cgi-bin/koha/barcodes/label-printf-pdf.pl");
+}
+else {
+    print $cgi->redirect("/cgi-bin/koha/barcodes/label-print-pdf.pl");
+}
+