[Koha-cvs] koha/barcodes label-save-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 12:57:38

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

Log message:
        now simply redirects to label-template.pl, tidier

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

Patches:
Index: label-save-template.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/Attic/label-save-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-save-template.pl      10 Jul 2007 10:54:04 -0000      1.1.4.2
+++ label-save-template.pl      11 Jul 2007 12:57:38 -0000      1.1.4.3
@@ -11,6 +11,8 @@
 use POSIX;
 
 #use Data::Dumper;
+#use Smart::Comments;
+
 
 my $dbh   = C4::Context->dbh;
 my $query = new CGI;
@@ -32,38 +34,17 @@
 my $units        = $query->param('units');
 my $active       = $query->param('active');
 
-$active = 1 if ( $active == 'on' );
-
-my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
-    {
-        template_name   => "barcodes/label-templates.tmpl",
-        query           => $query,
-        type            => "intranet",
-        authnotrequired => 1,
-        flagsrequired   => { catalogue => 1 },
-        debug           => 1,
-    }
-);
-
-my @resultsloop;
 
 SaveTemplate(
 
     $tmpl_id,     $tmpl_code,   $tmpl_desc,    $page_width,
     $page_height, $label_width, $label_height, $topmargin,
     $leftmargin,  $cols,        $rows,         $colgap,
-    $rowgap,      $active,      $fontsize,     $units
+    $rowgap,      $fontsize,     $units
 
 );
address@hidden = 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");
+
 
-output_html_with_http_headers $query, $cookie, $template->output;