first round of Perl::Critic cleanups. Do not use return undef, use a bare return instead

This commit is contained in:
Colin Kuskie 2007-12-05 00:30:43 +00:00
parent 75041656ee
commit 96178fd70c
92 changed files with 209 additions and 209 deletions

View file

@ -73,7 +73,7 @@ sub delete {
$self->session->db->write("delete from productVariants where productId=".$self->session->db->quote($self->get('productId')));
$self->session->db->write("delete from products where productId=".$self->session->db->quote($self->get('productId')));
return undef;
return;
}
#-------------------------------------------------------------------
@ -87,7 +87,7 @@ sub deleteParameter {
$self->updateVariants;
return undef;
return;
}
#-------------------------------------------------------------------
@ -110,7 +110,7 @@ sub deleteOption {
$self->updateVariants;
return undef;
return;
}
#-------------------------------------------------------------------
@ -136,7 +136,7 @@ sub getByOptionId {
($productId) = $session->db->quickArray("select productId from productParameters as t1, productParameterOptions as t2 ".
"where t1.parameterId=t2.parameterId and t2.optionId=".$session->db->quote($optionId));
return undef unless ($productId);
return unless ($productId);
return WebGUI::Product->new($session,$productId);
}