[Koha-cvs] koha/C4 Labels.pm [dev_week]

Mason James szrj1m at yahoo.com
Tue Jul 10 07:25:15 CEST 2007


CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Mason James <sushi>	07/07/10 05:25:15

Modified files:
	C4             : Labels.pm 

Log message:
	ptidy

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Labels.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.3.4.24&r2=1.3.4.25

Patches:
Index: Labels.pm
===================================================================
RCS file: /sources/koha/koha/C4/Labels.pm,v
retrieving revision 1.3.4.24
retrieving revision 1.3.4.25
diff -u -b -r1.3.4.24 -r1.3.4.25
--- Labels.pm	10 Jul 2007 05:24:56 -0000	1.3.4.24
+++ Labels.pm	10 Jul 2007 05:25:15 -0000	1.3.4.25
@@ -108,6 +108,7 @@
 sub get_layout {
     my ($layout_id) = @_;
     my $dbh = C4::Context->dbh;
+
     # get the actual items to be printed.
     my $query = " Select * from labels_conf where id = ?";
     my $sth   = $dbh->prepare($query);
@@ -117,10 +118,10 @@
     return $data;
 }
 
-
 sub get_active_layout {
     my ($layout_id) = @_;
     my $dbh = C4::Context->dbh;
+
     # get the actual items to be printed.
     my $query = " Select * from labels_conf where active = 1";
     my $sth   = $dbh->prepare($query);
@@ -130,10 +131,6 @@
     return $data;
 }
 
-
-
-
-
 sub delete_layout {
     my ($layout_id) = @_;
     my $dbh = C4::Context->dbh;
@@ -157,6 +154,7 @@
 
     my $conf             = get_layout($layout_id);
     my $active_printtype = $conf->{'printingtype'};
+
     # lop thru layout, insert selected to hash
 
     foreach my $printtype (@printtypes) {
@@ -1152,7 +1150,6 @@
  #   $str .= "0.5 0.75 1.0 rg\n";           # fill color blue
     $str .= "1.0 1.0 1.0  rg\n";           # fill color white
 
-
     $str .= "$llx $lly $urx $ury re\n";    # a rectangle
     $str .= "B\n";                         # fill (and a little more)
     $str .= "Q\n";                         # save the graphic state





More information about the Koha-cvs mailing list