Changeset 1303 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm

Timestamp:

03/27/15 15:17:51 (9 years ago)

Author:

nanardon

Message:

add Services object (step to Itil)

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm

@@ -103 +103 @@
     $info->{exported}   = { inline => 1, formtype => 'CHECKBOX', hide => 1, monitored => 1 };
     $info->{unexported} = { inline => 1, formtype => 'CHECKBOX', };
+    $info->{services}   = { inline => 1, ro => 1, };
 
     $info
@@ -250 +251 @@
     if ($field eq 'unexported') {
         return $self->get_field('exported') ? undef : 1;
+    }
+    if ($field eq 'services') {
+        my @services;
+        my $sth = $self->db->prepare_cached(
+            q{ select name from service join service_attributes
+               on okey = ikey
+               where service_attributes.attr = 'dependOn' and value = ?
+               });
+        $sth->execute($self->type . '.' . $self->id);
+        while(my $res = $sth->fetchrow_hashref) {
+            push(@services, $res->{name});
+        }
+        return \@services; 
     }
     my $attr = $self->attribute($field) or return;