Index: openacs-4/packages/lorsm/www/object-new.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/object-new.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/object-new.adp	7 Jun 2006 18:41:18 -0000	1.1
@@ -0,0 +1,5 @@
+<master>
+  <property name="title">@page_title@</property>
+  <property name="context">@context@</property>
+  
+<include src="/packages/lors/lib/object-new" man_id="@man_id@" add_type="@add_type@">
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/object-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/object-new.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/object-new.tcl	7 Jun 2006 18:41:18 -0000	1.1
@@ -0,0 +1,20 @@
+# packages/lorsm/www/add-new.tcl
+
+ad_page_contract {
+    
+    add a new learning object
+    
+    @author Dave Bauer (dave@thedesignexperience.org)
+    @creation-date 2006-06-05
+    @cvs-id $Id: object-new.tcl,v 1.1 2006/06/07 18:41:18 daveb Exp $
+} {
+    man_id:integer,notnull
+    add_type
+} -properties {
+} -validate {
+} -errors {
+}
+
+
+set page_title "Add New"
+set context [list $page_title]