Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv31566
Modified Files:
HTML.pm
Log Message:
made previous fix take scope into account
Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.115
retrieving revision 1.116
diff -C2 -d -r1.115 -r1.116
*** HTML.pm 20 Mar 2003 07:46:35 -0000 1.115
--- HTML.pm 20 Mar 2003 08:44:07 -0000 1.116
***************
*** 45,49 ****
# Hash used to store form parameters
! $self->{form__} = {};
# Session key to make the UI safer
--- 45,49 ----
# Hash used to store form parameters
! $self->{form__} = {};
# Session key to make the UI safer
***************
*** 2574,2581 ****
# though they had been pressed
! # Set setsearch if search changed and setsearch is undefined
! my $old_search;
! $self->{form__}{setsearch} = 'on' if ( ( ( !defined($old_search) && defined $self->{form__}{search} ) || ( defined($old_search) && ( $old_search ne $self->{form__}{search} ) ) ) && !defined($self->{form__}{setsearch} ) );
! $old_search = $self->{form__}{search} if ( defined($self->{form__}{search}) );
--- 2574,2580 ----
# though they had been pressed
! # Set setsearch if search changed and setsearch is undefined
! $self->{form__}{setsearch} = 'on' if ( ( ( !defined($self->{old_search__}) && defined $self->{form__}{search} ) || ( defined($self->{old_search__}) && ( $self->{old_search__} ne $self->{form__}{search} ) ) ) && !defined($self->{form__}{setsearch} ) );
! $self->{old_search__} = $self->{form__}{search} if ( defined($self->{form__}{search}) );
|
