From 3720e0261f409f858b790e5c215f388e943e0dca Mon Sep 17 00:00:00 2001 From: Chris Nighswonger Date: Wed, 2 Sep 2009 23:47:33 -0400 Subject: [PATCH] Fixing warns (tnx to Chris Cormack for identifying these) Signed-off-by: Galen Charlton --- 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 866a79bc9e..5e9569de69 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 8f950eca82..a8a56ac601 100755 --- a/labels/label-item-search.pl +++ b/labels/label-item-search.pl @@ -48,7 +48,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; -- 2.39.2