Index: openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl,v diff -u -r1.9 -r1.9.2.1 --- openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl 29 Apr 2005 21:16:31 -0000 1.9 +++ openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl 4 Jul 2005 19:05:58 -0000 1.9.2.1 @@ -7,6 +7,7 @@ assessment_id:integer,optional {__new_p 0} {permission_p 0} + {edit_p:optional "0"} } -properties { context:onevalue page_title:onevalue @@ -43,7 +44,7 @@ {assessment_id:key} } -if {[info exists assessment_id]} { +if {[info exists assessment_id] && $edit_p } {# ad_form -extend -name assessment_form -form { {name:text(inform) {label "#assessment.Name#"} {html {size 80 maxlength 1000}} {help_text "[_ assessment.assessment_Name_help]"}} } @@ -124,7 +125,7 @@ set end_time [util::date::acquire ansi $end_time] } } -validate { - {name {[as::assessment::unique_name -name $name -new_p $__new_p]} "[_ assessment.name_used]"} + {name {[as::assessment::unique_name -name $name -new_p $__new_p]} "[_ assessment.name_used] $assessment_id"} } -on_submit { if {$start_time == "NULL"} { set start_time "" Index: openacs-4/packages/assessment/www/asm-admin/one-a.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/one-a.adp,v diff -u -r1.11.2.1 -r1.11.2.2 --- openacs-4/packages/assessment/www/asm-admin/one-a.adp 10 Jun 2005 18:53:31 -0000 1.11.2.1 +++ openacs-4/packages/assessment/www/asm-admin/one-a.adp 4 Jul 2005 19:05:58 -0000 1.11.2.2 @@ -12,7 +12,7 @@
#assessment.Description#:
#assessment.Instructions#: