Index: openacs-4/packages/imsld/www/admin/monitor/activity-del.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/monitor/activity-del.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/imsld/www/admin/monitor/activity-del.tcl	20 Feb 2009 09:59:53 -0000	1.1
@@ -0,0 +1,22 @@
+# 
+
+ad_page_contract {
+    
+    Delete an activity from a UoL
+    
+    @author Derick Leony (derick@inv.it.uc3m.es)
+    @creation-date 2009-02-13
+    @arch-tag: /bin/bash: uuidgen: command not found
+    @cvs-id $Id: activity-del.tcl,v 1.1 2009/02/20 09:59:53 derickl Exp $
+} {
+    activity_id:integer,notnull
+    run_id:integer,notnull
+} -properties {
+} -validate {
+} -errors {
+}
+
+set item_id [content::revision::item_id -revision_id $activity_id]
+content::item::unset_live_revision -item_id $item_id
+
+ad_returnredirect [export_vars -base monitor-tree {run_id}]
Index: openacs-4/packages/imsld/www/admin/monitor/activity-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/monitor/activity-edit.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/imsld/www/admin/monitor/activity-edit.tcl	20 Feb 2009 09:59:54 -0000	1.1
@@ -0,0 +1,29 @@
+# 
+
+ad_page_contract {
+    
+    Edit the activity title
+    
+    @author Derick Leony (derick@inv.it.uc3m.es)
+    @creation-date 2009-02-13
+    @arch-tag: /bin/bash: uuidgen: command not found
+    @cvs-id $Id: activity-edit.tcl,v 1.1 2009/02/20 09:59:54 derickl Exp $
+} {
+    activity_id:integer,notnull
+    run_id:integer,notnull
+    title:notnull
+} -properties {
+} -validate {
+} -errors {
+}
+
+#set item_id [content::revision::item_id -revision_id $activity_id]
+# content::revision::new -item_id $item_id -title $title
+
+db_dml update_title {
+    update cr_revisions
+    set title = :title
+    where revision_id = :activity_id
+}
+
+ad_returnredirect [export_vars -base monitor-tree {run_id}]