CVS update: AxKit-XSP-PerForm

[matt]

Date:   Monday June 16, 2003 @ 17:21
Author: matt

Update of /home/cvs/AxKit-XSP-PerForm
In directory localhost:/home/matt/Perl/AxKit-XSP-PerForm

Modified Files:
        PerForm.pm 
Log Message:
Really fix multi and single select not loading values on submit
Log:
PR:

Index: PerForm.pm
===================================================================
RCS file: /home/cvs/AxKit-XSP-PerForm/PerForm.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -b -u -r1.20 -r1.21
--- PerForm.pm  2003/06/16 08:16:25     1.20
+++ PerForm.pm  2003/06/16 16:21:00     1.21
@@ -1,4 +1,4 @@
-# $Id: PerForm.pm,v 1.20 2003/06/16 08:16:25 matt Exp $
+# $Id: PerForm.pm,v 1.21 2003/06/16 16:21:00 matt Exp $
 
 package AxKit::XSP::PerForm;
 
@@ -474,10 +474,10 @@
         }
     }
     # load
-    elsif (my $sub = $package->can($onload || "load_${name}")) {
+    if (my $sub = $package->can($onload || "load_${name}")) {
         ($selected, @options) = $sub->($ctxt, [$params->get($name.$index)], 
$default, $index);
     }
-    elsif (!$params->{"__submitting_$fname"}) {
+    else {
         $selected = [EMAIL PROTECTED];
         @options = map { $$_{name}, $$_{value} } @{$option};
     }
@@ -596,10 +596,10 @@
         }
     }
     # load
-    elsif (my $sub = $package->can($onload || "load_${name}")) {
+    if (my $sub = $package->can($onload || "load_${name}")) {
         ($selected, @options) = $sub->($ctxt, 
($params->get($name.$index))[-1], $default, $index);
     }
-    elsif (!$params->{"__submitting_$fname"}) {
+    else {
         $selected = $default;
         @options = map { $$_{name}, $$_{value} } @{$option};
     }