[Koha-patches] [PATCH] [labels_recon] Fixing warns (tnx to Chris Cormack for identifying these)
Chris Nighswonger
cnighswonger at foundations.edu
Thu Sep 3 05:47:33 CEST 2009
---
C4/Labels/Template.pm | 2 +-
labels/label-item-search.pl | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/C4/Labels/Template.pm b/C4/Labels/Template.pm
index 866a79b..5e9569d 100644
--- a/C4/Labels/Template.pm
+++ b/C4/Labels/Template.pm
@@ -124,7 +124,7 @@ sub retrieve {
}
my $self = $sth->fetchrow_hashref;
$self = _conv_points($self) if (($opts{convert} && $opts{convert} == 1) || $opts{profile_id});
- $self = _apply_profile($self) if $opts{profile_id};
+ $self = _apply_profile($self) if $opts{profile_id} && $self->{'profile_id'}; # don't bother if there is no profile_id
$self->{'template_stat'} = 1;
bless ($self, $type);
return $self;
diff --git a/labels/label-item-search.pl b/labels/label-item-search.pl
index 9acd04e..c95bdf0 100755
--- a/labels/label-item-search.pl
+++ b/labels/label-item-search.pl
@@ -49,7 +49,7 @@ BEGIN {
my $query = new CGI;
my $type = $query->param('type');
-my $op = $query->param('op');
+my $op = $query->param('op') || '';
my $batch_id = $query->param('batch_id');
my $ccl_query = $query->param('ccl_query');
my $startfrom = $query->param('startfrom') || 1;
--
1.6.0.4
More information about the Koha-patches
mailing list