Changeset 43 for LATMOS-Accounts

Timestamp:

04/25/09 09:05:25 (15 years ago)

Author:

nanardon

Message:

• really provides create_object

Location:

LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Files:

• Sql.pm (modified) (2 diffs)
• Sql/objects.pm (modified) (2 diffs)

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

@@ -83 +83 @@
         group => {
             gidNumber       => 'gid',
-            memberUID       => 'user_list',
+            # memberUID       => 'user_list',
         },
     }->{$type}
@@ -120 +120 @@
 }
 
-sub create_object {
-    my ($self, $otype, $id, %data) = @_;
-
-    my $internal_obj = {
-        user => 'users',
-        group => 'groups',
-    }->{$otype};
-
-    if ($self->{$internal_obj}{$id}) { return };
-    $self->{$internal_obj}{$id} = { account => $id };
-    my $obj = $self->get_object($otype, $id) or return;
-    $obj->set_fields(%data);
-    $obj
-}
-
 1;
 

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

@@ -61 +61 @@
 }
 
+sub _create {
+    my ($class, $base, $id, %data) = @_;
+    $data{$class->key_field} = $id;
+    my $sth = $base->db->prepare(
+        sprintf(
+            q{insert into %s (%s) values (%s)},
+            $base->db->quote_identifier($class->object_table),
+            join(', ', map { $base->db->quote_identifier($_) } sort keys %data),
+            join(',', qw(?) x scalar(keys %data)),
+        )
+    );
+    $sth->execute(map { $data{$_} } sort keys %data);
+}
+
 sub db {
     return $_[0]->base->db;
@@ -103 +117 @@
     my $sth = $self->db->prepare_cached(
         sprintf(
-            q{update %s set %s where login = ?},
+            q{update %s set %s where %s = ?},
             $self->quote_object_table,
             join(', ', @fields),
+            $self->quote_key_field,
         )
     );