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