Index: openacs-4/packages/assessment/www/admin/asm-action-admin.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-admin.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/asm-action-admin.adp	14 Feb 2005 23:26:49 -0000	1.5
@@ -0,0 +1,8 @@
+<master>
+<property name="title">#assessment.action_admin#</property>
+<property name="context">@context;noquote@</property>
+
+<blockquote>
+<listtemplate name="actions"></listtemplate><br>
+<a href=asm-action-new>#assessment.add_new_action#</a>
+</blockquote>
Index: openacs-4/packages/assessment/www/admin/asm-action-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-admin.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/asm-action-admin.tcl	14 Feb 2005 23:26:48 -0000	1.5
@@ -0,0 +1,39 @@
+ad_page_contract {
+    This page admin the new actions to be used on the checks
+    @authos vivian@viaro.net Viaro Networks (www.viaro.net)
+    @date 07-01-2005
+    @cvs-id $Id:
+} {
+   
+}
+set context [list Actions]
+set package_id [ad_conn package_id]
+#See the params we already have
+template::list::create \
+    -name actions \
+    -elements {
+	name {
+	    label "[_ assessment.Name]"
+	}	    
+	description {
+	    label "[_ assessment.parameter_description]"
+	}
+	edit_url {
+	    label {[_ assessment.action_edit]}
+	    display_template {
+
+		<a href=asm-action-new?action_id=@actions.action_id@>[_ assessment.Edit]</a>
+		| <a href=asm-action-delete?action_id=@actions.action_id@>[_ assessment.Delete]</a>
+	    }
+	}
+    }
+
+
+
+db_multirow -extend { edit_url } actions action_select {}
+
+
+ 
+
+
+
Index: openacs-4/packages/assessment/www/admin/asm-action-admin.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-admin.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/asm-action-admin.xql	14 Feb 2005 23:27:36 -0000	1.5
@@ -0,0 +1,24 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="get_action_info">
+<querytext>
+	select name,description,tcl_code 
+	from as_actions
+	where action_id = :action_id 
+
+</querytext>
+</fullquery>
+
+
+<fullquery name="action_select">
+<querytext>
+    select a.action_id, a.name,a.description from as_actions a where (select context_id from acs_objects
+    where object_id=a.action_id)=:package_id
+
+
+</querytext>
+</fullquery>
+
+
+</queryset>
Index: openacs-4/packages/assessment/www/admin/asm-action-delete.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-delete.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/asm-action-delete.adp	14 Feb 2005 23:29:31 -0000	1.3
@@ -0,0 +1,7 @@
+<master>
+<property name="title">Action Delete</property>
+<property name="context_bar">@context_bar;noquote@</property>
+
+<blockquote>
+  <formtemplate id="action_delete"></formtemplate>
+</blockquote>
Index: openacs-4/packages/assessment/www/admin/asm-action-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-delete.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/asm-action-delete.tcl	14 Feb 2005 23:29:31 -0000	1.3
@@ -0,0 +1,32 @@
+ad_page_contract {
+    This page delete the action
+    @authos vivian@viaro.net Viaro Networks (www.viaro.net)
+    @date 07-01-2005
+    @cvs-id $Id:
+} {
+    action_id:integer
+}
+
+set page_title [_ assessment.delete]
+set context_bar [ad_context_bar [list [export_vars -base asm-action-new {action_id} ] [_ assessment.action_admin] ]  $page_title]
+db_1row select_action_info {select name,description,tcl_code 
+	from as_actions
+    where action_id = :action_id}
+ad_form -name action_delete -form {
+    {action_id:text(hidden) {value $action_id} }
+    {name:text(inform) {label "[_ assessment.action_name]"} {value $name} }
+    {description:text(inform) {label "[_ assessment.action_description]"} {value $description}}
+    {tcl_code:text(inform) {label "[_ assessment.action_tcl_code]"} {value $tcl_code}}
+    {submit:text(submit) {label "delete"}}
+    {back:text(submit) {label "back"}}
+}  -on_submit {
+    if { $back == "back" } {
+	ad_returnredirect "asm-action-admin"
+    } else {
+	as::actionparam::actiondelete $action_id
+	ad_returnredirect "asm-action-admin"	
+
+
+    }
+
+}
\ No newline at end of file
Index: openacs-4/packages/assessment/www/admin/asm-action-new.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-new.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/asm-action-new.adp	14 Feb 2005 23:24:52 -0000	1.3
@@ -0,0 +1,12 @@
+<master>
+<property name="title">@page_title@</property>
+<property name="context_bar">@context_bar;noquote@</property>
+
+<blockquote>
+  <formtemplate id="action_admin"></formtemplate>
+
+<if @parameter_exist@ eq "y">
+	<include src=asm-action-param-list action_id=@action_id@>
+</if>
+</blockquote>
+
Index: openacs-4/packages/assessment/www/admin/asm-action-new.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-new.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/asm-action-new.xql	14 Feb 2005 23:33:39 -0000	1.4
@@ -0,0 +1,24 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="get_action_info">
+<querytext>
+	select name,description,tcl_code 
+	from as_actions
+	where action_id = :action_id
+
+</querytext>
+</fullquery>
+
+<fullquery name="edit_action">
+<querytext>
+	update as_actions set
+	name=:name,description=:description,tcl_code=:tcl_code
+	where action_id = :action_id
+	
+
+</querytext>
+</fullquery>
+
+
+</queryset>
\ No newline at end of file