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

Timestamp:

04/18/12 19:49:34 (12 years ago)

Author:

nanardon

Message:

• add form on "my" page for basic management

File:

• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrForms.pm (modified) (2 diffs)

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

@@ -177 +177 @@
     $new->{base} = $base || ($object ? $object->base : undef) or return $self;
     $new->{otype} = ref $object ? $object->type : $object;
-    bless($new, '__PACKAGE__');
+    bless($new, __PACKAGE__);
 }
 
@@ -469 +469 @@
 
 sub set_attrs {
-    my ($self) = @_;
-    $self->{c}->req->param($self->label) or return;
+    my ($self, $attrs) = @_;
+    $self->{c}->req->param($self->label) || $attrs or return;
     my $prefix = $self->{object}->id . '_';
     my %fields;
-    foreach ($self->write_attributes) {
+    foreach ($attrs ? @{ $attrs } : $self->write_attributes) {
         my $attr = ($self->{object}
             ? $self->{object}->attribute($_)