[popfile-commit] engine/UI HTML.pm,1.98.2.2,1.98.2.3

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

Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv12156

Modified Files:
      Tag: v0/18/1
	HTML.pm 
Log Message:
Fixed submit button search failure in IE (bug 695646)

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.98.2.2
retrieving revision 1.98.2.3
diff -C2 -d -r1.98.2.2 -r1.98.2.3
*** HTML.pm	11 Mar 2003 08:49:12 -0000	1.98.2.2
--- HTML.pm	20 Mar 2003 09:07:05 -0000	1.98.2.3
***************
*** 2698,2701 ****
--- 2698,2716 ----
      $self->{form}{search} = '' if ( !defined( $self->{form}{search} ) );
      $self->{form}{filter} = '' if ( !defined( $self->{form}{filter} ) );
+    
+     # Information from submit buttons isn't always preserved if the buttons aren't
+     # pressed. This compares values in some fields and sets the button-values as
+     # though they had been pressed
+ 
+     
+     # Information from submit buttons isn't always preserved if the buttons aren't
+     # pressed. This compares values in some fields and sets the button-values as
+     # though they had been pressed
+     
+     # Set setsearch if search changed and setsearch is undefined    
+     $self->{form}{setsearch} = 'on' if ( ( ( !defined($self->{old_search}) && ($self->{form}{search} ne '') ) || ( defined($self->{old_search}) && ( $self->{old_search} ne $self->{form}{search} ) ) ) && !defined($self->{form}{setsearch} ) );
+     $self->{old_search} = $self->{form}{search};
+ 
+ 
      
      # If the user is asking for a new sort option then it needs to get