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

[Mason James]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Mason James <sushi>     07/07/10 03:09:52

Modified files:
        C4             : Labels.pm 

Log message:
        small fix, template sub use tmpl_id as arg, not tmpl_code

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

Patches:
Index: Labels.pm
===================================================================
RCS file: /sources/koha/koha/C4/Labels.pm,v
retrieving revision 1.3.4.22
retrieving revision 1.3.4.23
diff -u -b -r1.3.4.22 -r1.3.4.23
--- Labels.pm   10 Jul 2007 00:54:32 -0000      1.3.4.22
+++ Labels.pm   10 Jul 2007 03:09:52 -0000      1.3.4.23
@@ -338,11 +338,11 @@
 }
 
 sub GetSingleLabelTemplate {
-    my ($tmpl_code) = @_;
+    my ($tmpl_id) = @_;
     my $dbh         = C4::Context->dbh;
-    my $query       = " SELECT * FROM labels_templates where tmpl_code = ?";
+    my $query       = " SELECT * FROM labels_templates where tmpl_id = ?";
     my $sth         = $dbh->prepare($query);
-    $sth->execute($tmpl_code);
+    $sth->execute($tmpl_id);
     my $template = $sth->fetchrow_hashref;
     $sth->finish;
     return $template;
@@ -378,11 +378,11 @@
 }
 
 sub DeleteTemplate {
-    my ($tmpl_code) = @_;
+    my ($tmpl_id) = @_;
     my $dbh         = C4::Context->dbh;
-    my $query       = " DELETE  FROM labels_templates where tmpl_code = ?";
+    my $query       = " DELETE  FROM labels_templates where tmpl_id = ?";
     my $sth         = $dbh->prepare($query);
-    $sth->execute($tmpl_code);
+    $sth->execute($tmpl_id);
     $sth->finish;
 }
 
@@ -1150,7 +1150,10 @@
     my $str = "q\n";    # save the graphic state
     $str .= "0.5 w\n";                     # border color red
     $str .= "1.0 0.0 0.0  RG\n";           # border color red
-    $str .= "0.5 0.75 1.0 rg\n";           # fill color blue
+ #   $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