Fixing warns (tnx to Chris Cormack for identifying these)

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>

diff --git a/C4/Labels/Template.pm b/C4/Labels/Template.pm
index 866a79b..5e9569d 100644 (file)
--- 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 8f950ec..a8a56ac 100755 (executable)
--- 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;