[dw-free] Implement renames

[kareila]

[commit: http://hg.dwscoalition.org/dw-free/rev/180727e19540]

http://bugs.dwscoalition.org/show_bug.cgi?id=216

Use elapsed seconds instead of SQL time string, since rendate is an integer.

Patch by kareila.

Files modified:

• bin/renameuser.pl
• cgi-bin/DW/RenameToken.pm

--------------------------------------------------------------------------------
diff -r 53f8c9b8acd6 -r 180727e19540 bin/renameuser.pl
--- a/bin/renameuser.pl	Thu Aug 19 09:57:20 2010 -0500
+++ b/bin/renameuser.pl	Thu Aug 19 13:16:13 2010 -0500
@@ -155,7 +155,8 @@ sub rename_user
                                         'userid' => $u->{'userid'} });
 
     $dbh->do( "INSERT INTO renames (renid, auth, cartid, renuserid, fromuser, touser, rendate) ".
-              "VALUES ( NULL, '[manual]', 0, $u->{userid}, $qfrom, $qto, NOW() )" );
+              "VALUES ( NULL, '[manual]', 0, ?, $qfrom, $qto, ? )",
+              undef, $u->userid, time );
 
     return 1;
 }
diff -r 53f8c9b8acd6 -r 180727e19540 cgi-bin/DW/RenameToken.pm
--- a/cgi-bin/DW/RenameToken.pm	Thu Aug 19 09:57:20 2010 -0500
+++ b/cgi-bin/DW/RenameToken.pm	Thu Aug 19 13:16:13 2010 -0500
@@ -260,8 +260,8 @@ sub apply {
 
     # modify self
     my $dbh = LJ::get_db_writer();
-    $dbh->do( "UPDATE renames SET renuserid=?, fromuser=?, touser=?, rendate=NOW() WHERE renid=?",
-        undef, $opts{userid}, $opts{from}, $opts{to}, $self->id );
+    $dbh->do( "UPDATE renames SET renuserid=?, fromuser=?, touser=?, rendate=? WHERE renid=?",
+        undef, $opts{userid}, $opts{from}, $opts{to}, time, $self->id );
 
     # modify status in the cart
     if ( $self->cartid ) {
--------------------------------------------------------------------------------