Index: openacs-4/contrib/packages/simulation/tcl/object-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/tcl/Attic/object-procs.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/contrib/packages/simulation/tcl/object-procs.tcl	27 Feb 2004 14:11:59 -0000	1.10
+++ openacs-4/contrib/packages/simulation/tcl/object-procs.tcl	27 Feb 2004 20:12:13 -0000	1.11
@@ -18,6 +18,7 @@
 ad_proc -private simulation::object::url { 
     {-package_id ""}
     {-name:required}
+    {-mime_type ""}
 } {
     The URL for the page displaying contents and name of
     an item.
@@ -29,7 +30,11 @@
         set package_url "[ad_url][apm_package_url_from_id $package_id]"
     }
     
-    return "${package_url}object/${name}"
+    if { [empty_string_p $mime_type] || [string match "text/*" $mime_type] } {
+        return "${package_url}object/${name}"
+    } else {
+        return "${package_url}object-content/${name}"
+    }
 }
 
 ad_proc -private simulation::object::content_url { 
Index: openacs-4/contrib/packages/simulation/www/citybuild/object-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/citybuild/Attic/object-edit.tcl,v
diff -u -N -r1.22 -r1.23
--- openacs-4/contrib/packages/simulation/www/citybuild/object-edit.tcl	4 Feb 2004 11:41:31 -0000	1.22
+++ openacs-4/contrib/packages/simulation/www/citybuild/object-edit.tcl	27 Feb 2004 20:12:13 -0000	1.23
@@ -26,6 +26,7 @@
 }
 set context [list [list "." "CityBuild"] $page_title]
 
+
 ######################################################################
 #
 # object
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 -N -r1.10 -r1.11
--- openacs-4/packages/simulation/tcl/object-procs.tcl	27 Feb 2004 14:11:59 -0000	1.10
+++ openacs-4/packages/simulation/tcl/object-procs.tcl	27 Feb 2004 20:12:13 -0000	1.11
@@ -18,6 +18,7 @@
 ad_proc -private simulation::object::url { 
     {-package_id ""}
     {-name:required}
+    {-mime_type ""}
 } {
     The URL for the page displaying contents and name of
     an item.
@@ -29,7 +30,11 @@
         set package_url "[ad_url][apm_package_url_from_id $package_id]"
     }
     
-    return "${package_url}object/${name}"
+    if { [empty_string_p $mime_type] || [string match "text/*" $mime_type] } {
+        return "${package_url}object/${name}"
+    } else {
+        return "${package_url}object-content/${name}"
+    }
 }
 
 ad_proc -private simulation::object::content_url { 
Index: openacs-4/packages/simulation/www/citybuild/object-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/citybuild/object-edit.tcl,v
diff -u -N -r1.22 -r1.23
--- openacs-4/packages/simulation/www/citybuild/object-edit.tcl	4 Feb 2004 11:41:31 -0000	1.22
+++ openacs-4/packages/simulation/www/citybuild/object-edit.tcl	27 Feb 2004 20:12:13 -0000	1.23
@@ -26,6 +26,7 @@
 }
 set context [list [list "." "CityBuild"] $page_title]
 
+
 ######################################################################
 #
 # object