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

Timestamp:

02/20/19 00:43:12 (5 years ago)

Author:

latmossys

Message:

Fix: log if no parent

File:

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

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

@@ -16 +16 @@
 use MIME::Base64;
 
-our $VERSION = (q$Rev: 2149 $ =~ /^Rev: (\d+) /)[0];
+our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
 
 sub SCHEMA_VERSION { 29 };
@@ -1095 +1095 @@
 
     if (my $obj = $self->get_object($otype, $name)) {
-        my $parent = $obj->ParentObject;
-        $potype = $parent->type;
-        $pname  = $parent->name;
-        $pikey  = $parent->Iid; 
+        if (my $parent = $obj->ParentObject) {
+            $potype = $parent->type;
+            $pname  = $parent->name;
+            $pikey  = $parent->Iid; 
+        }
     }