Changeset 20

Timestamp:

04/09/09 17:38:12 (15 years ago)

Author:

nanardon

Message:

• Factorize code

Location:

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/SQL

Files:

• User.pm (modified) (4 diffs)
• object.pm (added)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/SQL/User.pm

@@ -1 @@
-package LATMOS::Accounts::Bases::Unix::User;
+package LATMOS::Accounts::Bases::SQL::User;
 
 use 5.010000;
@@ -5 +5 @@
 use warnings;
 
-use base qw(LATMOS::Accounts::Bases::Objects);
+use base qw(LATMOS::Accounts::Bases::SQL::objects);
 
 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
@@ -16 +16 @@
 
   use LATMOS::Accounts::Bases;
-  my $base = LATMOS::Accounts::Bases->new('unix');
+  my $base = LATMOS::Accounts::Bases->new('sql');
   ...
 
@@ -37 +37 @@
 =cut
 
-sub new {
-    my ($class, $base, $id) = @_;
-    bless({ id => $id }, $class);
-}
-
-sub db {
-    return $_[0]->base->db;
-}
-
-sub get_field {
-    my ($self, $field) = @_;
-    my $sth = $self->db->prepare_cached(
-        q{select * from person where login = ?}
-    );
-    $sth->execute($self->{id});
-    my $res = $sth->fetchrow_hashref;
-    $sth->finish;
-    return $res->{$field};
-}
-
-sub set_fields {
-    my ($self, %data) = @_;
-    foreach my $field (keys %data) {
-        # TODO check fields exists !
-        $self->{$field} = $data{$field};
-    }
-    1;
-}
+sub object_table { 'person' }
 
 1;