[popfile-commit] engine/UI HTML.pm,1.115,1.116

[<ssc...@us...>]

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