Changeset 174 for LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrForms.pm

Timestamp:

05/23/09 17:51:33 (15 years ago)

Author:

nanardon

Message:

• submit data to db only if form were submit

File:

• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrForms.pm (modified) (1 diff)

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrForms.pm

@@ -240 +240 @@
 }
 
+sub submit {
+    my ($self) = @_;
+    return sprintf(
+        '<input type="submit" name="%s">',
+        $self->escape($self->label),
+    );
+}
+
 sub set_attrs {
     my ($self) = @_;
+    $self->{c}->req->param($self->label) or return;
     $self->{object}->set_c_fields(
         map {
             $_ =>
                 ($attrs->{$_}[1] || '') eq 'checkbox'
-                ? ($self->{c}->req->param($_) ? 1 : undef)
+                ? ($self->{c}->req->param($_) ? 1 : 0)
                 : $self->{c}->req->param($_)
-        } grep { 
-            exists $self->{c}->req->params->{$_}
         } $self->attributes
     );