[Cpan-forum-commit] rev 243 - in trunk: . lib/CPAN/Forum/DB schema

[svn at pti.co.il]

Author: gabor
Date: 2007-07-06 08:26:05 +0300 (Fri, 06 Jul 2007)
New Revision: 243

Modified:
   trunk/
   trunk/lib/CPAN/Forum/DB/Tags.pm
   trunk/schema/update.sql
Log:
add timestemp when the tag was added



Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 7bc34947-122d-0410-bc5a-f898d2bb5f81:/local/cpan-forum:4110
8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:12752
   + 7bc34947-122d-0410-bc5a-f898d2bb5f81:/local/cpan-forum:4112
8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:12752

Modified: trunk/lib/CPAN/Forum/DB/Tags.pm
===================================================================
--- trunk/lib/CPAN/Forum/DB/Tags.pm	2007-07-04 07:41:22 UTC (rev 242)
+++ trunk/lib/CPAN/Forum/DB/Tags.pm	2007-07-06 05:26:05 UTC (rev 243)
@@ -65,8 +65,8 @@
     return if not $tag_id;
 
     my $dbh = CPAN::Forum::DBI::db_Main();
-    return $dbh->do("INSERT INTO tag_cloud (tag_id, group_id, uid) VALUES (?, ?, ?)",
-            undef, $tag_id, $group_id, $uid);
+    return $dbh->do("INSERT INTO tag_cloud (tag_id, group_id, uid, stamp) VALUES (?, ?, ?, ?)",
+            undef, $tag_id, $group_id, $uid, time);
 }
 
 sub remove_tag {

Modified: trunk/schema/update.sql
===================================================================
--- trunk/schema/update.sql	2007-07-04 07:41:22 UTC (rev 242)
+++ trunk/schema/update.sql	2007-07-06 05:26:05 UTC (rev 243)
@@ -18,3 +18,4 @@
 CREATE INDEX tags_cloud_tag_id ON tag_cloud (tag_id);
 CREATE INDEX tags_cloud_group_id ON tag_cloud (group_id);
 
+ALTER TABLE tag_cloud ADD stamp TEXT;