Index: openacs-4/packages/wiki/www/recent-changes.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wiki/www/Attic/recent-changes.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wiki/www/recent-changes.tcl	6 Dec 2005 15:12:59 -0000	1.1.2.1
@@ -0,0 +1,18 @@
+ad_page_contract {
+    List recently changed wiki pages
+}
+set folder_id [wiki::get_folder_id]
+db_multirow -extend {modified_in} pages pages "select current_date - w.last_modified :: date as days_old, u.first_names || ' ' || u.last_name as modified_by, w.name, w.title, w.last_modified, w.creation_user from cr_revisionsx w, cr_items ci, acs_users_all u where ci.live_revision=w.revision_id and ci.parent_id=:folder_id and u.user_id=w.creation_user order by w.last_modified desc" {
+    set last_modified [lc_time_fmt $last_modified "%X %x"]
+    if {$days_old == 0} {
+	set modified_in "today"
+    } elseif {$days_old == 1} {
+	set modified_in "yesterday"
+    } elseif {$days_old <= 7} {
+	set modified_in "this week"
+    } elseif {$days_old <=14} {
+	set modified_in "2 weeks ago"
+    } else {
+	set modified_in "more than 2 weeks ago"
+    }
+}