OpenACS

emmar
committed
MAIN:emmar:20060831163154
on 31 Aug 06
Downcase table_name and column_id of object types
openacs-4/.../curriculum/lib/element-ave.tcl (+2 -2)
53 53 }
54 54
55 55 set context {$title}
56 56
57 57 ad_form -name element \
58 58     -export {curriculum_id} \
59 59     -cancel_url $return_url \
60 60     -mode $form_mode \
61 61     -has_edit [expr !$write_p] \
62 62     -form {
63 63     element_id:key
64 64     {name:text
65 65         {label "[_ curriculum.Name]"}
66 66         {html {size 50}}
67 67     }
68 68     {description:richtext,optional
69 69         {label "[_ curriculum.Description]"}
70 70         {help_text "[_ curriculum.lt_This_text_should_desc_1]"}
71 71         {html {rows 10 cols 50 wrap soft}}
72 72     }
73       {url:text(text),optional
  73     {url:text(text),optional,nospell
74 74         {label "[_ curriculum.URL]"}
75 75         {help_text "[_ curriculum.lt_A_leading_http_indica]"}
76 76         {html {size 50}}
77 77     }
78 78 } -on_request {
79 79     # Nothing, really
80 80 } -edit_request {
81 81
82 82     curriculum::element::get -element_id $element_id -array element_array
83 83
84 84     template::util::array_to_vars element_array
85 85
86 86     set description [list $description $desc_format]
87 87
88 88 } -validate {
89 89
90 90     {name
91 91         {[string length $name] <= [set length 200]}
92 92         "[_ curriculum.lt_Name_may_not_be_more_]"
93 93     }