Changeset 389

Timestamp:

08/25/09 20:26:14 (15 years ago)

Author:

nanardon

Message:

• ensure all internal data are set when create a new object

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm (modified) (1 diff)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

@@ -46 +46 @@
     bless {
         _base => $base,
-        _type => ($class =~ m/[^:]*$/)[0],
+        _type => lc(($class =~ m/::([^:]*)$/)[0]),
+        _id => $id,
     }, $class;
 }