Changeset 738 for LATMOS-Accounts-Web

Timestamp:

01/25/10 01:47:16 (14 years ago)

Author:

nanardon

Message:

• don't take into account label attribute

File:

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

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

@@ -378 +378 @@
     $self->{c}->req->param($self->label) or return;
     my $prefix = $self->{object}->id . '_';
-    $self->{object}->set_c_fields(
-        map {
-            $_ =>
-                ($attrs->{$_}[1] || '') eq 'checkbox'
-                ? ($self->{c}->req->param("$prefix$_") ? 1 : 0)
-                : ($self->{c}->req->param("$prefix$_") || undef)
-        } grep { $self->base->get_field_name($self->otype, $_, 'w') } $self->attributes
-    ) or return;
+    my %fields;
+    foreach (
+        grep { $self->base->get_field_name($self->otype, $_, 'w') }
+        $self->attributes) {
+        if (($attrs->{$_}[1] || '') eq 'checkbox') {
+            $fields{$_} = $self->{c}->req->param("$prefix$_") ? 1 : 0;
+        } elsif (($attrs->{$_}[1] || '') eq 'label') {
+            next;
+        } else {
+            $fields{$_} = $self->{c}->req->param("$prefix$_");
+        }
+    }
+    $self->{object}->set_c_fields(%fields) or return;
     $self->{object}->base->commit;
 }