[Koha-cvs] koha/barcodes label-templates.pl [dev_week]

[Mason James]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Mason James <sushi>     07/07/10 02:53:28

Modified files:
        barcodes       : label-templates.pl 

Log message:
        adding radio buttons, set active

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-templates.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.2&r2=1.1.2.3

Patches:
Index: label-templates.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/Attic/label-templates.pl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -b -r1.1.2.2 -r1.1.2.3
--- label-templates.pl  6 Oct 2006 01:58:47 -0000       1.1.2.2
+++ label-templates.pl  10 Jul 2007 02:53:28 -0000      1.1.2.3
@@ -16,10 +16,8 @@
 my $query     = new CGI;
 my $op        = $query->param('op');
 my $tmpl_code = $query->param('tmpl_code');
+my $tmpl_id = $query->param('tmpl_id');
 
-if ( !$op ) {
-    $op = 'display';
-}
 
 my $width      = $query->param('width');
 my $height     = $query->param('height');
@@ -43,21 +41,21 @@
 
 my @resultsloop;
 
-if ( $op eq 'display' ) {
-    @resultsloop = GetAllLabelTemplates();
+
+if ( $op eq 'set_active_template' ) {
+    SetActiveTemplate($tmpl_id);
 }
 
 elsif ( $op eq 'delete' ) {
-    DeleteTemplate($tmpl_code);
-    @resultsloop = GetAllLabelTemplates();
+    DeleteTemplate($tmpl_id);
 }
 
 elsif ( $op eq 'save' ) {
-    warn "SSSSSSSSSSSSSSSSSSSSSSSSSAVING!!!!!!!!!!!!!!!!!!";
     SaveTemplate($tmpl_code);
-    @resultsloop = GetAllLabelTemplates();
 }
 
+    @resultsloop = GetAllLabelTemplates();
+
 $template->param(
     resultsloop => address@hidden,