[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 Labels.pm [dev_week]
From: |
Mason James |
Subject: |
[Koha-cvs] koha/C4 Labels.pm [dev_week] |
Date: |
Tue, 10 Jul 2007 03:09:52 +0000 |
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
- [Koha-cvs] koha/C4 Labels.pm [dev_week], (continued)
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/05
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/05
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/06
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/06
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/08
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/08
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/09
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/09
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/09
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/09
- [Koha-cvs] koha/C4 Labels.pm [dev_week],
Mason James <=
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/10
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/10
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/10
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/10
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/10
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/10
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/15
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/15
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/17
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/17