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

Timestamp:

05/10/09 18:06:27 (15 years ago)

Author:

nanardon

Message:

• provide id functions to objects

File:

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

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

@@ -133 +133 @@
 sub new {
     my ($class, $base, $id) = @_;
-    bless({ id => $id, _base => $base }, $class);
+    bless({ _id => $id, _base => $base }, $class);
 }
 
@@ -208 +208 @@
         )
     );
-    $sth->execute($self->{id});
+    $sth->execute($self->id);
     my $res = $sth->fetchrow_hashref;
     $sth->finish;
@@ -219 +219 @@
             )
         );
-        $sth->execute($self->{id}, $field);
+        $sth->execute($self->id, $field);
         my $res = $sth->fetchrow_hashref;
         $sth->finish;
@@ -253 +253 @@
             )
         );
-        $sth->execute(@vals, $self->{id});
+        $sth->execute(@vals, $self->id);
     }
     
@@ -278 +278 @@
         foreach (keys %ext) {
             if ($ext{$_}) {
-                $sthu->execute($ext{$_}, $self->{id}, $_) ||
-                $sthx->execute($self->{id}, $_, $ext{$_}) or return;
+                $sthu->execute($ext{$_}, $self->id, $_) ||
+                $sthx->execute($self->id, $_, $ext{$_}) or return;
             } else {
-                $sthd->execute($self->{id}, $_) or return;
+                $sthd->execute($self->id, $_) or return;
             }
         }