Index: openacs-4/packages/anon-eval/catalog/anon-eval.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/anon-eval/catalog/anon-eval.en_US.ISO-8859-1.xml,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/anon-eval/catalog/anon-eval.en_US.ISO-8859-1.xml 9 Jun 2005 05:54:36 -0000 1.2
+++ openacs-4/packages/anon-eval/catalog/anon-eval.en_US.ISO-8859-1.xml 4 Feb 2006 13:42:03 -0000 1.3
@@ -3,8 +3,11 @@
You are not able to submit a respose for this evaluation.
You don't have permission to admin Course Evaluations.
- Course Evaluations
- Course Evaluations Administration
- Anonymous Course Evaluations
+ Evaluations
+ Evaluations Administration
+ Answered Evaluations
+ Anonymous Evaluations
+ Open Evaluations
You don't have permission to see the results.
+ Show Evaluations
Index: openacs-4/packages/anon-eval/www/assessment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/anon-eval/www/assessment.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/anon-eval/www/assessment.tcl 9 Jun 2005 05:54:36 -0000 1.2
+++ openacs-4/packages/anon-eval/www/assessment.tcl 4 Feb 2006 13:42:03 -0000 1.3
@@ -37,10 +37,10 @@
as::assessment::data -assessment_id $assessment_id
set admin_p [permission::permission_p -privilege admin -object_id [ad_conn package_id]]
-if { $admin_p } {
- ad_return_complaint 1 "[_ anon-eval.admin_message]"
- ad_script_abort
-}
+#if { $admin_p } {
+# ad_return_complaint 1 "[_ anon-eval.admin_message]"
+# ad_script_abort
+#}
if {![info exists assessment_data(assessment_id)]} {
ad_return_complaint 1 "[_ assessment.Requested_assess_does]"
Index: openacs-4/packages/anon-eval/www/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/anon-eval/www/index-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/anon-eval/www/index-postgresql.xql 2 Jun 2005 06:28:45 -0000 1.1
+++ openacs-4/packages/anon-eval/www/index-postgresql.xql 4 Feb 2006 13:42:03 -0000 1.2
@@ -17,6 +17,7 @@
where asm.assessment_id = a.assessment_id
and ism.section_id = asm.section_id)
and acs_permission__permission_p (a.assessment_id, :user_id, 'read') = 't'
+ and not ci.live_revision is null
order by lower(cr.title)
Index: openacs-4/packages/anon-eval/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/anon-eval/www/index.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/anon-eval/www/index.adp 2 Jun 2005 06:28:45 -0000 1.1
+++ openacs-4/packages/anon-eval/www/index.adp 4 Feb 2006 13:42:03 -0000 1.2
@@ -7,6 +7,6 @@
- #assessment.answered_assessments#
+ #anon-eval.Answered_Evaluations#
Index: openacs-4/packages/anon-eval/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/anon-eval/www/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/anon-eval/www/index.tcl 9 Jun 2005 05:54:36 -0000 1.2
+++ openacs-4/packages/anon-eval/www/index.tcl 4 Feb 2006 13:42:03 -0000 1.3
@@ -10,17 +10,17 @@
page_title:onevalue
}
-set page_title "[_ assessment.Show_Assessments]"
+set page_title "[_ anon-eval.Show_Evaluations]"
set context_bar [list]
set package_id [ad_conn package_id]
set folder_id [as::assessment::folder_id -package_id $package_id]
set user_id [ad_conn user_id]
set admin_p [permission::permission_p -privilege admin -object_id [ad_conn package_id]]
-if { $admin_p } {
- ad_return_complaint 1 "[_ anon-eval.permission_denied]"
- ad_script_abort
-}
+#if { $admin_p } {
+# ad_return_complaint 1 "[_ anon-eval.permission_denied]"
+# ad_script_abort
+#}
# create a list with all open assessments
template::list::create \
@@ -29,7 +29,7 @@
-key assessment_id \
-elements {
title {
- label "[_ assessment.open_assessments]"
+ label "[_ anon-eval.Open_Evaluations]"
display_template {@assessments.title@}
}
} -main_class {
Index: openacs-4/packages/anon-eval/www/session.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/anon-eval/www/session.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/anon-eval/www/session.adp 2 Jun 2005 06:28:45 -0000 1.1
+++ openacs-4/packages/anon-eval/www/session.adp 4 Feb 2006 13:42:03 -0000 1.2
@@ -6,6 +6,7 @@
| #assessment.Assessment#: @assessment_data.title@ |
+
| #assessment.User_ID#: @first_names@ @last_name@#assessment.anonymous_name# |
#assessment.Percent_Score#: @assessment_score@ |
| #assessment.Started#: @session_start@ |
Index: openacs-4/packages/anon-eval/www/session.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/anon-eval/www/session.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/anon-eval/www/session.tcl 9 Jun 2005 05:54:36 -0000 1.2
+++ openacs-4/packages/anon-eval/www/session.tcl 4 Feb 2006 13:42:03 -0000 1.3
@@ -19,10 +19,10 @@
permission::require_permission -object_id $assessment_id -privilege read
set admin_p [permission::permission_p -privilege admin -object_id [ad_conn package_id]]
-if { $admin_p } {
- ad_return_complaint 1 "[_ anon-eval.permission_denied]"
- ad_script_abort
-}
+#if { $admin_p } {
+# ad_return_complaint 1 "[_ anon-eval.permission_denied]"
+# ad_script_abort
+#}
if {![info exists assessment_data(assessment_id)]} {
ad_return_complaint 1 "[_ assessment.Requested_assess_does]"
Index: openacs-4/packages/anon-eval/www/asm-admin/toggle-anonymous.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/anon-eval/www/asm-admin/toggle-anonymous.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/anon-eval/www/asm-admin/toggle-anonymous.tcl 4 Feb 2006 13:42:03 -0000 1.1
@@ -0,0 +1,21 @@
+# packages/anon-eval/www/asm-admin/toggle-anonymous.tcl
+
+ad_page_contract {
+
+ Toggle if assessment is anonymous or not
+
+ @author Roel Canicula (roel@solutiongrove.com)
+ @creation-date 2006-02-04
+ @arch-tag: 8714d788-72c8-491c-8f96-4c146aeedc37
+ @cvs-id $Id: toggle-anonymous.tcl,v 1.1 2006/02/04 13:42:03 roelc Exp $
+} {
+ assessment_id:integer,notnull
+ return_url:notnull
+} -properties {
+} -validate {
+} -errors {
+}
+
+db_dml toggle_anonymous {}
+
+ad_returnredirect $return_url
\ No newline at end of file
Index: openacs-4/packages/anon-eval/www/asm-admin/toggle-anonymous.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/anon-eval/www/asm-admin/toggle-anonymous.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/anon-eval/www/asm-admin/toggle-anonymous.xql 4 Feb 2006 13:42:03 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+ update as_assessments
+ set anonymous_p = (case when anonymous_p = 't' then 'f' else 't' end)
+ where assessment_id = :assessment_id
+
+
+
\ No newline at end of file
Index: openacs-4/packages/anon-eval/www/asm-admin/toggly-anonymous.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/anon-eval/www/asm-admin/toggly-anonymous.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/anon-eval/www/asm-admin/toggly-anonymous.tcl 4 Feb 2006 13:42:03 -0000 1.1
@@ -0,0 +1,18 @@
+# packages/anon-eval/www/asm-admin/toggly-anonymous.tcl
+
+ad_page_contract {
+
+ Toggle if assessment is anonymous or not
+
+ @author Roel Canicula (roel@solutiongrove.com)
+ @creation-date 2006-02-04
+ @arch-tag: 4ef548a2-c1f2-47ef-a1f5-61bffbdd7a00
+ @cvs-id $Id: toggly-anonymous.tcl,v 1.1 2006/02/04 13:42:03 roelc Exp $
+} {
+ assessment_id:integer,notnull
+ return_url:notnull
+} -properties {
+} -validate {
+} -errors {
+}
+