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

[Mason James]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Mason James <sushi>     07/10/22 04:35:18

Modified files:
        barcodes       : label-manager.pl 

Log message:
        now saving ccode, justify and lccn_split

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

Patches:
Index: label-manager.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-manager.pl,v
retrieving revision 1.1.2.1.2.13
retrieving revision 1.1.2.1.2.14
diff -u -b -r1.1.2.1.2.13 -r1.1.2.1.2.14
--- label-manager.pl    22 Jul 2007 22:02:33 -0000      1.1.2.1.2.13
+++ label-manager.pl    22 Oct 2007 04:35:18 -0000      1.1.2.1.2.14
@@ -10,13 +10,15 @@
 use POSIX;
 
 #use Data::Dumper;
-#use Smart::Comments;
+use Smart::Comments '###';
 
 my $dbh         = C4::Context->dbh;
 my $query       = new CGI;
 my $op          = $query->param('op');
 my $layout_id   = $query->param('layout_id');
 my $layoutname  = $query->param('layoutname');
+###  $layoutname  
+
 my $barcodetype = $query->param('barcodetype');
 
 my $bcn    = $query->param('tx_barcode');
@@ -32,12 +34,17 @@
 my $itemcallnumber = $query->param('tx_itemcallnumber');
 my $subclass       = $query->param('tx_subclass');
 my $author         = $query->param('tx_author');
+my $ccode         = $query->param('tx_ccode');
+
 my $tmpl_id        = $query->param('tmpl_id');
 my $summary        = $query->param('summary');
 my $startlabel     = $query->param('startlabel');
 my $printingtype   = $query->param('printingtype');
 my $guidebox       = $query->param('guidebox');
 my $fontsize       = $query->param('fontsize');
+my $callnum_split  = $query->param('callnum_split');
+my $justify  = $query->param('text_justify');
+
 my @itemnumber     = $query->param('itemnumber');
 
 # little block for displaying active layout/template/batch in templates
@@ -45,6 +52,7 @@
 my $batch_id             = $query->param('batch_id');
 my $active_layout        = get_active_layout();
 my $active_template      = GetActiveLabelTemplate();
+
 my $active_layout_name   = $active_layout->{'layoutname'};
 my $active_template_name = $active_template->{'tmpl_code'};
 
@@ -69,24 +77,38 @@
 
 if ( $op eq 'add_layout' ) {
 
+=c
+  my ( 
+        $barcodetype, $title,        $subtitle,       $isbn,
+        $issn,        $itemtype,     $bcn,            $dcn,
+        $classif,     $subclass,     $itemcallnumber, $author, 
+        $ccode,       $tmpl_id,     $printingtype, $guidebox,  
+        $startlabel,  $callnum_split,  $justify,  $layoutname
+    ) = @_;
+=cut
+
+
+### $justify
     add_layout(
         $barcodetype, $title,        $subtitle,       $isbn,
         $issn,        $itemtype,     $bcn,            $dcn,
         $classif,     $subclass,     $itemcallnumber, $author,
-        $tmpl_id,     $printingtype, $guidebox,       $startlabel,
-        $layoutname
+        $ccode,       $tmpl_id,     $printingtype,    $guidebox, 
+        $startlabel,  $callnum_split, $justify,  $layoutname
     );
     print $query->redirect("../label-home.pl");
     exit;
 }
 
 if ( $op eq 'save_layout' ) {
+
+#### $ccode
     save_layout(
         $barcodetype, $title,        $subtitle,       $isbn,
         $issn,        $itemtype,     $bcn,            $dcn,
-        $classif,     $subclass,     $itemcallnumber, $author,
+        $classif,     $subclass,     $itemcallnumber, $author, $ccode,
         $tmpl_id,     $printingtype, $guidebox,       $startlabel,
-        $layoutname,  $layout_id
+        $callnum_split, $justify ,    $layoutname,  $layout_id
     );
 
 ### $layoutname