Fixing warns (tnx to Chris Cormack for identifying these)

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
Chris Nighswonger 2009-09-02 23:47:33 -04:00 committed by Galen Charlton
parent dcfaf1121f
commit 3720e0261f
2 changed files with 2 additions and 2 deletions

View file

@ -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;

View file

@ -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;