Index: openacs-4/packages/ams/www/list-attribute-section-heading.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/list-attribute-section-heading.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/ams/www/list-attribute-section-heading.tcl	26 May 2005 07:35:29 -0000	1.2
+++ openacs-4/packages/ams/www/list-attribute-section-heading.tcl	28 May 2005 15:37:27 -0000	1.3
@@ -1,55 +1,55 @@
-ad_page_contract {
-
-    @author Matthew Geddert openacs@geddert.com
-    @creation-date 2004-07-28
-    @cvs-id $Id$
-} {
-    {list_id:integer,notnull}
-    {attribute_id:integer,notnull}
-    return_url:optional
-    return_url_label:optional
-}
-
-db_0or1row get_heading { select aa.pretty_name as attribute_pretty_name,
-                                al.package_key,
-                                al.object_type,
-                                al.list_name,
-                                al.pretty_name as list_pretty_name,
-                                alam.section_heading
-                           from ams_list_attribute_map alam,
-                                ams_attributes aa,
-                                ams_lists al
-                          where alam.attribute_id = aa.attribute_id
-                            and alam.list_id = al.list_id
-                            and alam.list_id = :list_id
-                            and alam.attribute_id = :attribute_id
-}
-set title "Add a Heading Above: ${attribute_pretty_name}"
-set context [list [list lists Lists] [list [ams::list::url -package_key $package_key -object_type $object_type -list_name $list_name] ${list_pretty_name}] $title]
-
-set package_options " [db_list_of_lists select_packages { select package_key, package_key from apm_package_types order by package_key } ]"
-
-ad_form -name list_form -form {
-    list_id:integer(hidden)
-    attribute_id:integer(hidden)
-    {section_heading:text {label "Heading"} {html {size 40 maxlength 200}}}
-    {save:text(submit) {label "Save"}}
-    {delete:text(submit) {label "Delete Heading"}}
-} -on_request {
-} -on_submit {
-    if { [string is true [exists_and_not_null delete]] } {
-	set section_heading ""
-    }
-    db_dml update_section_heading {
-	update ams_list_attribute_map
-	   set section_heading = :section_heading
-         where list_id = :list_id
-           and attribute_id = :attribute_id
-    }
-} -after_submit {
-    ad_returnredirect "list?[export_vars -url {package_key object_type list_name return_url return_url_label}]"
-    ad_script_abort
-}
-
-    
-ad_return_template
+ad_page_contract {
+
+    @author Matthew Geddert openacs@geddert.com
+    @creation-date 2004-07-28
+    @cvs-id $Id$
+} {
+    {list_id:integer,notnull}
+    {attribute_id:integer,notnull}
+    return_url:optional
+    return_url_label:optional
+}
+
+db_0or1row get_heading { select aa.pretty_name as attribute_pretty_name,
+                                al.package_key,
+                                al.object_type,
+                                al.list_name,
+                                al.pretty_name as list_pretty_name,
+                                alam.section_heading
+                           from ams_list_attribute_map alam,
+                                ams_attributes aa,
+                                ams_lists al
+                          where alam.attribute_id = aa.attribute_id
+                            and alam.list_id = al.list_id
+                            and alam.list_id = :list_id
+                            and alam.attribute_id = :attribute_id
+}
+set title "[_ ams.lt_Add_a_Heading_Above_a]"
+set context [list [list lists Lists] [list [ams::list::url -package_key $package_key -object_type $object_type -list_name $list_name] ${list_pretty_name}] $title]
+
+set package_options " [db_list_of_lists select_packages { select package_key, package_key from apm_package_types order by package_key } ]"
+
+ad_form -name list_form -form {
+    list_id:integer(hidden)
+    attribute_id:integer(hidden)
+    {section_heading:text {label "[_ ams.Heading]"} {html {size 40 maxlength 200}}}
+    {save:text(submit) {label "[_ acs-kernel.common_Save]"}}
+    {delete:text(submit) {label "[_ ams.Delete_Heading]"}}
+} -on_request {
+} -on_submit {
+    if { [string is true [exists_and_not_null delete]] } {
+	set section_heading ""
+    }
+    db_dml update_section_heading {
+	update ams_list_attribute_map
+	   set section_heading = :section_heading
+         where list_id = :list_id
+           and attribute_id = :attribute_id
+    }
+} -after_submit {
+    ad_returnredirect "list?[export_vars -url {package_key object_type list_name return_url return_url_label}]"
+    ad_script_abort
+}
+
+    
+ad_return_template