From: Chris W. <la...@us...> - 2005-02-28 04:34:42
|
Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24382 Modified Files: Manage.pm Log Message: fix warning Index: Manage.pm =================================================================== RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage.pm,v retrieving revision 1.47 retrieving revision 1.48 diff -C2 -d -r1.47 -r1.48 *** Manage.pm 26 Feb 2005 23:31:24 -0000 1.47 --- Manage.pm 28 Feb 2005 04:34:33 -0000 1.48 *************** *** 153,158 **** my %field_invalid = (); while ( my ( $name, $info ) = each %{ $params } ) { ! my $do_validate = ( $info->{is_required} eq 'yes' || ! $info->{do_validate} eq 'yes' ); next unless ( $do_validate ); my $value = $self->param( $name ); --- 153,158 ---- my %field_invalid = (); while ( my ( $name, $info ) = each %{ $params } ) { ! my $do_validate = ( ( defined $info->{is_required} and $info->{is_required} eq 'yes' ) || ! ( defined $info->{do_validate} and $info->{do_validate} eq 'yes' ) ); next unless ( $do_validate ); my $value = $self->param( $name ); |