[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