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

Timestamp:

12/18/15 07:25:11 (8 years ago)

Author:

nanardon

Message:

• Add expiration list to expiration page and Employment things

File:

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

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

@@ -28 +28 @@
             endcircuit
             locked
+            snNative
+            givenNameNative
+            wWWHomePage
+            halReference
             services
             create
@@ -38 +42 @@
         name => 'Statut RH',
         attrs => [ qw(
-            sn givenName description
-            comment
+            sn givenName
+            description
             company
             department
@@ -47 +51 @@
             expire
             endcircuit
-            snNative
-            givenNameNative
-            wWWHomePage
-            halReference
-            create
-            createdby
-            date
-            modifiedby
-        ) ],
+            create
+            createdby
+            date
+            modifiedby
+        ) ],
+    },
+    useremployment => {
+        name => 'Suivi RH',
+        attrs => [ qw(
+            sn givenName
+            endEmployment
+            manager
+            
+        ) ]
     },
     useraddress => {
@@ -105 +114 @@
             description
             facsimileTelephoneNumber
+        ) ],
+    },
+    employment => {
+        name => 'Nouvelle période',
+        attrs => [ qw(
+            firstday
+            lastday
+            endcircuit
+            contratType
+            managerContact
+            company
+            department
         ) ],
     },
@@ -246 +267 @@
     if ($form) {
         foreach (@{ $forms->{$form}->{attrs} }) {
-            $new->{_attr}{$_} = $c->model('AttrFormsA', $_, ($object
+            $new->{_attr}{$_} = $c->model('AttrFormsA', $_, (ref $object
                     ? ($object)
                     : ($base, $new->{otype})))
@@ -344 +365 @@
 
 sub set_attrs {
-    my ($self, $attrs) = @_;
-    $self->{c}->req->param($self->label) || $attrs or return;
+    my ($self, $attrs, $id) = @_;
+    $self->{c}->req->param($self->{form}) || $attrs or return;
     my %fields;
     foreach ($attrs ? @{ $attrs } : $self->write_attributes) {
         my $attr = ref $_ ? $_ : $self->{_attr}{$_};
+        $attr ||= $self->{c}->model('AttrFormsA', $_, (
+                ref $self->object
+                    ? ($self->object)
+                    : ($self->base, $self->{otype})
+                )
+        );
+
         if ($attr->{multiple}) {
             $fields{$attr->name} = [ grep { $_ } $self->{c}->req->param($attr->htmlname) ];
         } else {
-            $fields{$attr->name} = $self->{c}->req->param($attr->htmlname);
+            $fields{$attr->name} = $self->{c}->req->param($attr->htmlname) || undef;
         }
     }
-    $self->{object}->set_c_fields(%fields) or do {
-        $self->{c}->stash->{page}{error} =
-            LATMOS::Accounts::Log::lastmessage(LA_ERR);
-        $self->{object}->base->rollback;
-        return;
-    };
-    $self->{object}->base->commit;
+    if ($self->object) {
+        $self->object->set_c_fields(%fields) or do {
+            $self->{c}->stash->{page}{error} =
+                LATMOS::Accounts::Log::lastmessage(LA_ERR);
+            $self->object->base->rollback;
+            return;
+        };
+    } else {
+        $id ||= join('', map {('a'..'z')[rand(26)]}(0..8));
+        $self->base->create_object($self->otype, $id, %fields) or do {
+            $self->{c}->stash->{page}{error} =
+                LATMOS::Accounts::Log::lastmessage(LA_ERR);
+            $self->base->rollback;
+            return;
+        };
+    }
+    $self->base->commit;
+    $self->reset_param;
+    return $id || $self->object->id;
+    
+}
+
+sub reset_param {
+    my ($self) = @_;
+    foreach (values %{ $self->{_attr} }) {
+        delete($self->{c}->req->params->{$_->htmlname});
+    }
 }
 
 sub submit {
-    my ($self) = @_;
+    my ($self, $hidden) = @_;
     return sprintf(
-        '<input type="submit" name="%s" value="Enregistrer">',
-        $self->escape($self->label),
+        '<input type="%s" name="%s" value="Enregistrer">',
+        ($hidden ? 'hidden' : 'submit'),
+        $self->escape($self->{form}),
     );
 }