[popfile-commit] engine/UI HTML.pm,1.147,1.148

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

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

Modified Files:
	HTML.pm 
Log Message:
fix print_form_fields__ to handle session-key better

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.147
retrieving revision 1.148
diff -C2 -d -r1.147 -r1.148
*** HTML.pm	30 Apr 2003 05:46:46 -0000	1.147
--- HTML.pm	2 May 2003 02:14:36 -0000	1.148
***************
*** 3365,3376 ****
      $formstring = "$amp" if (!$first);
  
!     foreach my $field ( @include ) {        
!         unless ( !defined($self->{form_}{$field}) || ( $self->{form_}{$field} eq '' ) ) {
              $formstring .= "$amp" if ($count > 0);
!             if ($field eq 'session') {
!                 $formstring .= "session=$self->{session_key__}";
!             } else {
!                 $formstring .= "$field=$self->{form_}{$field}";
              }
              $count++;
          }        
--- 3365,3378 ----
      $formstring = "$amp" if (!$first);
  
!     foreach my $field ( @include ) {
!         if ($field eq 'session') {
              $formstring .= "$amp" if ($count > 0);
!             $formstring .= "session=$self->{session_key__}";
!             $count++;
!             next;
              }
+         unless ( !defined($self->{form_}{$field}) || ( $self->{form_}{$field} eq '' ) ) {
+             $formstring .= "$amp" if ($count > 0);
+             $formstring .= "$field=$self->{form_}{$field}";
              $count++;
          }