[Koha-cvs] koha/barcodes label-create-template.pl [rel_2_2]

[Mason James]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     Mason James <sushi>     07/07/11 13:12:42

Modified files:
        barcodes       : label-create-template.pl 

Log message:
        now does a tidier redirct to label_template.pl, to pick up active 
layout/template for display

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-create-template.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.1.4.2&r2=1.1.4.3

Patches:
Index: label-create-template.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/Attic/label-create-template.pl,v
retrieving revision 1.1.4.2
retrieving revision 1.1.4.3
diff -u -b -r1.1.4.2 -r1.1.4.3
--- label-create-template.pl    10 Jul 2007 10:54:03 -0000      1.1.4.2
+++ label-create-template.pl    11 Jul 2007 13:12:42 -0000      1.1.4.3
@@ -11,9 +11,11 @@
 use POSIX;
 
 #use Data::Dumper;
+use Smart::Comments;
 
 my $dbh   = C4::Context->dbh;
 my $query = new CGI;
+### $query
 
 my $tmpl_code    = $query->param('tmpl_code');
 my $tmpl_desc    = $query->param('tmpl_desc');
@@ -69,37 +71,16 @@
 }
 
 elsif ( $op eq 'create' ) {
-
-    ( $template, $loggedinuser, $cookie ) = get_template_and_user(
-        {
-            template_name   => "barcodes/label-templates.tmpl",
-            query           => $query,
-            type            => "intranet",
-            authnotrequired => 1,
-            flagsrequired   => { catalogue => 1 },
-            debug           => 1,
-        }
-    );
-
     CreateTemplate(
 
         $tmpl_code, $tmpl_desc, $page_width,
         $page_height, $label_width, $label_height, $topmargin,
         $leftmargin,  $cols,        $rows,         $colgap,
-        $rowgap,      $fontsize,     $units
+        $rowgap,      $fontsize,     $units );
 
-    );
-
-    @resultsloop = GetAllLabelTemplates();
-
-    $template->param(
-        resultsloop => address@hidden,
-
-        intranetcolorstylesheet =>
-          C4::Context->preference("intranetcolorstylesheet"),
-        intranetstylesheet => C4::Context->preference("intranetstylesheet"),
-        IntranetNav        => C4::Context->preference("IntranetNav"),
-    );
+ print $query->redirect("./label-templates.pl");
+exit;
 
 }
+
 output_html_with_http_headers $query, $cookie, $template->output;