Changeset 109 for trunk/lib

Timestamp:

03/26/09 16:09:14 (15 years ago)

Author:

nanardon

Message:

• show current date (#19)

File:

• trunk/lib/Vote/Model/Vote.pm (modified) (1 diff)

trunk/lib/Vote/Model/Vote.pm

@@ -58 +58 @@
     $passwd ||= random_string(8);
     return(crypt($passwd, '$1$' . random_string(8) . '$'));
+}
+
+sub dbtime {
+    my ($self) = @_;
+    my $sth = $self->db->prepare(
+        q{select to_char(now(), 'DD/MM/YYYY HH24:MI:SS') as d}
+    );
+
+    $sth->execute();
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    $res->{d};
 }