Index: openacs-4/packages/lorsm/www/admin/set-custom-page.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/set-custom-page.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/admin/set-custom-page.tcl	6 Apr 2007 15:53:05 -0000	1.1
+++ openacs-4/packages/lorsm/www/admin/set-custom-page.tcl	17 Nov 2008 13:36:44 -0000	1.2
@@ -13,24 +13,28 @@
 set options [lors::items_select_options -man_id $man_id]
 set options [linsert $options 0 [list "-- Add New Page --" ""]]
 
-ad_form -name set-page -export {man_id ims_item_id type} -form {
-    {ims_item_id:text(select),optional {label $label} {options $options}}
-} -on_submit {
-    if {$ims_item_id eq ""} {
-	ad_returnredirect [export_vars -base item-add-edit {man_id type}]
-	ad_script_abort
-    }
-    set item_id [content::revision::item_id -revision_id $ims_item_id] 
+ad_form \
+    -name set-page \
+    -export {man_id ims_item_id type} \
+    -form {
+        {ims_item_id:text(select),optional {label $label} {options $options}}
 
-    lorsm::set_custom_page \
-	-man_id $man_id \
-	-item_id $item_id \
-	-type $type
+    } -on_submit {
+        if {$ims_item_id eq ""} {
+            ad_returnredirect [export_vars -base item-add-edit {man_id type}]
+            ad_script_abort
+        }
+        set item_id [content::revision::item_id -revision_id $ims_item_id]
 
-    if {$return_url eq "" } {
-	set return_url [export_vars -base course-structure {man_id}]
-    }
+        lorsm::set_custom_page \
+            -man_id $man_id \
+            -item_id $item_id \
+            -type $type
 
-    ad_returnredirect $return_url
-    ad_script_abort
-}
\ No newline at end of file
+        if {$return_url eq "" } {
+            set return_url [export_vars -base course-structure {man_id}]
+        }
+
+        ad_returnredirect $return_url
+        ad_script_abort
+    }