[Koha-cvs] koha/C4 Labels.pm [dev_week]
Mason James
szrj1m at yahoo.com
Tue Jul 10 05:09:52 CEST 2007
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
More information about the Koha-cvs
mailing list