Index: openacs-4/packages/simulation/tcl/object-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/object-procs.tcl,v
diff -u -r1.12 -r1.12.2.1
--- openacs-4/packages/simulation/tcl/object-procs.tcl	9 Mar 2004 17:04:24 -0000	1.12
+++ openacs-4/packages/simulation/tcl/object-procs.tcl	30 Nov 2004 21:47:56 -0000	1.12.2.1
@@ -19,6 +19,7 @@
     {-package_id ""}
     {-name:required}
     {-mime_type ""}
+    {-simplay ""}
 } {
     The URL for the page displaying contents and name of
     an item.
@@ -29,9 +30,17 @@
         set package_id [ad_conn package_id]
         set package_url "[ad_url][apm_package_url_from_id $package_id]"
     }
+
+    if { [empty_string_p $simplay] } {
+	set simplay 0
+    }
     
     if { [empty_string_p $mime_type] || [string match "text/*" $mime_type] } {
-        return "${package_url}object/${name}"
+	if { !$simplay } {
+	    return "${package_url}object/${name}"
+	} else {
+	    return "${package_url}simplay/object/${name}"
+	}
     } else {
         return "${package_url}object-content/${name}"
     }