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

[Mason James]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Mason James <sushi>	07/10/20 17:02:38

Modified files:
	barcodes       : label-edit-layout.pl 

Log message:
	justify too

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

Patches:
Index: label-edit-layout.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/Attic/label-edit-layout.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-edit-layout.pl	22 Jul 2007 22:05:33 -0000	1.1.2.2
+++ label-edit-layout.pl	20 Oct 2007 17:02:37 -0000	1.1.2.3
@@ -11,7 +11,7 @@
 use POSIX;
 
 #use Data::Dumper;
-#use Smart::Comments;
+use Smart::Comments;
 
 my $dbh       = C4::Context->dbh;
 my $query     = new CGI;
@@ -33,13 +33,17 @@
 my $layout        = get_layout($layout_id);
 my @barcode_types = get_barcode_types($layout_id);
 my @printingtypes = get_printingtypes($layout_id);
+my @text_justify  = get_text_justify($layout_id);
+
 ### @printingtypes
+### @text_justify 
 ### $layout
 
 my $layoutname = $layout->{'layoutname'};
 my $layout_id  = $layout->{'id'};
 my $guidebox   = $layout->{'guidebox'};
 my $startlabel = $layout->{'startlabel'};
+my $callnum_split = $layout->{'callnum_split'};
 
 my @title          = build_text_dropbox( $layout->{'title'} );
 my @subtitle       = build_text_dropbox( $layout->{'subtitle'} );
@@ -52,18 +56,23 @@
 my @class          = build_text_dropbox( $layout->{'class'} );
 my @subclass       = build_text_dropbox( $layout->{'subclass'} );
 my @itemcallnumber = build_text_dropbox( $layout->{'itemcallnumber'} );
+my @ccode          = build_text_dropbox( $layout->{'ccode'} );
+
+
 
-### @subclass
+### @barcode_types 
 
 $template->param(
     barcode_types => \@barcode_types,
     printingtypes => \@printingtypes,
+    text_justify => \@text_justify,
 
     layoutname => $layoutname,
     layout_id  => $layout_id,
 
     guidebox   => $guidebox,
     startlabel => $startlabel,
+    callnum_split => $callnum_split,
 
     tx_title          => \@title,
     tx_subtitle       => \@subtitle,
@@ -76,6 +85,7 @@
     tx_classif        => \@class,
     tx_subclass       => \@subclass,
     tx_itemcallnumber => \@itemcallnumber,
+    tx_ccode => \@ccode,
 
     intranetcolorstylesheet =>
       C4::Context->preference("intranetcolorstylesheet"),