Index: openacs-4/packages/imsld/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/index.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/imsld/www/admin/index.tcl	20 Jun 2006 19:20:39 -0000	1.10
+++ openacs-4/packages/imsld/www/admin/index.tcl	25 Jul 2006 13:44:20 -0000	1.11
@@ -25,9 +25,6 @@
 if { ![string eq "" $set_run_id_live] } {
     db_dml make_run_live { *SQL* }
 }
-if { ![string eq "" $run_imsld_id] } {
-    imsld::instance::instantiate_imsld -imsld_id $run_imsld_id -community_id $community_id
-}
 
 set package_id [ad_conn package_id]
 permission::require_permission -object_id $package_id -privilege create
@@ -86,7 +83,7 @@
         set create_run ""
     } else {
         set delete_template "<a href=\"[export_vars -base "imsld-delete" { imsld_id return_url }]\"><img src=\"/resources/acs-subsite/Delete16.gif\" width=\"16\" height=\"16\" border=\"0\"></a>"
-        set create_run "<a href=\"[export_vars -base "index" { {run_imsld_id $imsld_id} return_url }]\"> [_ imsld.create_new_run] </a>"
+        set create_run "<a href=\"[export_vars -base "run-new" { {run_imsld_id $imsld_id} return_url }]\"> [_ imsld.create_new_run] </a>"
     }
 }
 
Index: openacs-4/packages/imsld/www/admin/run-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/run-new.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/imsld/www/admin/run-new.tcl	25 Jul 2006 13:44:20 -0000	1.1
@@ -0,0 +1,16 @@
+# imsld/www/admin/run-new.tcl
+
+ad_page_contract {
+
+    Creates a new run for the given UoL (imsld_id)
+    
+    @author jopez@inv.it.uc3m.es
+    @creation-date jul 2006
+} {
+    {return_url "index"}
+    run_imsld_id:notnull
+}
+
+imsld::instance::instantiate_imsld -imsld_id $run_imsld_id -community_id [dotlrn_community::get_community_id]
+
+ad_returnredirect $return_url
\ No newline at end of file