Index: openacs-4/packages/lorsm/www/admin/set-custom-page.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/set-custom-page.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/set-custom-page.adp	6 Apr 2007 15:53:05 -0000	1.1
@@ -0,0 +1,5 @@
+<master>
+<property name="title">@page_title@</property>
+<property name="context">@context@</property>
+
+<formtemplate id="set-page"></formtemplate>
\ No newline at end of file
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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/set-custom-page.tcl	6 Apr 2007 15:53:05 -0000	1.1
@@ -0,0 +1,36 @@
+ad_page_contract {
+    Set a start/end page from existing ims_cp_item
+} {
+    man_id
+    type
+    {return_url ""}
+}
+
+set label [_ "lorsm.Choose_${type}_page"]
+set page_title $label
+set context [list $page_title]
+
+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] 
+
+    lorsm::set_custom_page \
+	-man_id $man_id \
+	-item_id $item_id \
+	-type $type
+
+    if {$return_url eq "" } {
+	set return_url [export_vars -base course-structure {man_id}]
+    }
+
+    ad_returnredirect $return_url
+    ad_script_abort
+}
\ No newline at end of file