[Koha-cvs] koha/barcodes label-add-layout.pl [dev_week]
Mason James
szrj1m at yahoo.com
Mon Oct 22 06:38:05 CEST 2007
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Mason James <sushi> 07/10/22 04:38:05
Modified files:
barcodes : label-add-layout.pl
Log message:
saving justify too
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-add-layout.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.2&r2=1.1.2.3
Patches:
Index: label-add-layout.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/Attic/label-add-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-add-layout.pl 20 Oct 2007 17:04:29 -0000 1.1.2.2
+++ label-add-layout.pl 22 Oct 2007 04:38:05 -0000 1.1.2.3
@@ -32,8 +32,23 @@
my @printingtypes = get_printingtypes();
my @layouts = get_layouts();
my @barcode_types = get_barcode_types();
+my @text_justify = get_text_justify();
my @batches = get_batches();
+
+my @title = build_text_dropbox( );
+my @subtitle = build_text_dropbox( );
+my @author = build_text_dropbox( );
+my @barcode = build_text_dropbox( );
+my @isbn = build_text_dropbox( );
+my @issn = build_text_dropbox( );
+my @itemtype = build_text_dropbox( );
+my @dewey = build_text_dropbox( );
+my @class = build_text_dropbox( );
+my @subclass = build_text_dropbox( );
+my @itemcallnumber = build_text_dropbox( );
+my @ccode = build_text_dropbox( );
+
if ( $op = 'add_layout' ) {
}
@@ -51,6 +66,7 @@
label_templates => \@label_templates,
barcode_types => \@barcode_types,
printingtypes => \@printingtypes,
+ text_justify => \@text_justify,
layout_loop => \@layouts,
batches => \@batches,
@@ -58,17 +74,21 @@
barcodetype => $data->{'barcodetype'},
papertype => $data->{'papertype'},
- tx_author => $data->{'author'},
- tx_barcode => $data->{'barcode'},
- tx_title => $data->{'title'},
- tx_isbn => $data->{'isbn'},
- tx_issn => $data->{'issn'},
- tx_itemtype => $data->{'itemtype'},
- tx_dewey => $data->{'dewey'},
- tx_class => $data->{'class'},
- tx_subclass => $data->{'subclass'},
- tx_itemcallnumber => $data->{'itemcallnumber'},
- tx_ccode => $data->{'ccode'},
+
+
+ tx_title => \@title,
+ tx_subtitle => \@subtitle,
+ tx_author => \@author,
+ tx_isbn => \@isbn,
+ tx_issn => \@issn,
+ tx_itemtype => \@itemtype,
+ tx_dewey => \@dewey,
+ tx_barcode => \@barcode,
+ tx_classif => \@class,
+ tx_subclass => \@subclass,
+ tx_itemcallnumber => \@itemcallnumber,
+ tx_ccode => \@ccode,
+
startlabel => $data->{'startlabel'},
fontsize => $active_template->{'fontsize'},
More information about the Koha-cvs
mailing list