Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/simulation/www/directory.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/simulation/www/directory.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/simulation/www/generate-xml.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/simulation/www/generate-xml.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/contrib/packages/simulation/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/Attic/index.adp,v
diff -u -r1.20 -r1.21
--- openacs-4/contrib/packages/simulation/www/index.adp	13 Nov 2003 14:16:58 -0000	1.20
+++ openacs-4/contrib/packages/simulation/www/index.adp	13 Nov 2003 14:55:25 -0000	1.21
@@ -1,10 +1,13 @@
 <master src="/packages/simulation/www/map-master">
 <div style="margin: 4px; background: lightgray; border: 1px solid black;">
-<h3><a href="simplay/">SIMPLAY</a></h3>
-Your live cases:
-<listtemplate name="active_cases"></listtemplate></p>
-Available simulations
-<table class="list" cellpadding="3" cellspacing="1">
+  <h3><a href="simplay/">SimPlay</a></h3>
+
+  Your live cases:
+
+  <listtemplate name="active_cases"></listtemplate></p>
+
+  Available simulations
+  <table class="list" cellpadding="3" cellspacing="1">
       <tr class="list-header">
           <th class="list">
                 Simulation
@@ -23,19 +26,26 @@
             </tr>
   </table>
 </div>
+
 <div style="margin: 4px; padding: 4px; background: lightgray; border: 1px solid black;">
-<h3><a href="directory">YELLOW PAGES</a></h3>
+  <h3><a href="yellow-pages">Yellow Pages</a></h3>
+
+    Todo...
 </div>
+
 <div style="margin: 4px; padding: 4px; border: 1px solid black;">
-<h3><a href="citybuild/">CITYBUILD</a></h3>
-<include src="/packages/simulation/lib/sim-objects" size="short" display_mode="display">
+  <h3><a href="citybuild/">CityBuild</a></h3>
+
+  <include src="/packages/simulation/lib/sim-objects" size="short" display_mode="display">
 </div>
-<div style="margin: 4px; padding: 4px; border: 1px solid
-black;">
-<h3><a href="simbuild/">SIMBUILD</a></h3>
-<include src="/packages/simulation/lib/sim-templates" size="short" display_mode="display">
+
+<div style="margin: 4px; padding: 4px; border: 1px solid black;">
+  <h3><a href="simbuild/">SimBuild</a></h3>
+
+  <include src="/packages/simulation/lib/sim-templates" size="short" display_mode="display">
 </div>
+
 <div style="margin: 4px; padding: 4px; background: lightgray; border: 1px solid
 black;">
-<h3><a href="siminst/">SIMINST</a></h3>
+  <h3><a href="siminst/">SimInst</a></h3>
 </div>
Index: openacs-4/contrib/packages/simulation/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/Attic/index.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/contrib/packages/simulation/www/index.tcl	11 Nov 2003 15:32:46 -0000	1.6
+++ openacs-4/contrib/packages/simulation/www/index.tcl	13 Nov 2003 14:55:25 -0000	1.7
@@ -102,7 +102,7 @@
         or content_type like 'stylesheet'
      group by content_type
 " {
-    set view_url [export_vars -base "object-list" { type }]
+    set view_url [export_vars -base "citybuild/" { type }]
 }
 
 
@@ -154,5 +154,5 @@
     select count(workflow_id) as count
       from workflows w
 " {
-    set view_url [export_vars -base "sim-template-list"]
+    set view_url [export_vars -base "simbuild/"]
 }
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/simulation/www/map-xml.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/simulation/www/object-delete.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/simulation/www/object-delete.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/contrib/packages/simulation/www/role-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/Attic/role-edit.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/contrib/packages/simulation/www/role-edit.tcl	13 Nov 2003 12:19:50 -0000	1.6
+++ openacs-4/contrib/packages/simulation/www/role-edit.tcl	13 Nov 2003 14:55:25 -0000	1.7
@@ -38,7 +38,7 @@
 # role form
 #---------------------------------------------------------------------
 
-ad_form -name role -cancel_url sim-template-list -form {
+ad_form -name role -cancel_url index -form {
     {role_id:key}
     {workflow_id:integer(hidden),optional}
     {name:text
Index: openacs-4/contrib/packages/simulation/www/yellow-pages.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/Attic/yellow-pages.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/yellow-pages.adp	13 Nov 2003 14:55:25 -0000	1.1
@@ -0,0 +1,7 @@
+<master>
+  <property name="title">@page_title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+
+<p>
+  <include src="/packages/simulation/lib/sim-objects" size="long" display_mode="display">
+</p>
Index: openacs-4/contrib/packages/simulation/www/yellow-pages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/Attic/yellow-pages.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/yellow-pages.tcl	13 Nov 2003 14:55:25 -0000	1.1
@@ -0,0 +1,12 @@
+ad_page_contract {
+
+  @creation-date 2003-10-13
+  @cvs-id $Id: yellow-pages.tcl,v 1.1 2003/11/13 14:55:25 peterm Exp $
+} {
+    parent_id:optional
+    {orderby "title,asc"}
+    {type:optional}
+}
+
+set page_title "Yellow Pages"
+set context [list $page_title]
Index: openacs-4/contrib/packages/simulation/www/citybuild/generate-xml.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/citybuild/Attic/generate-xml.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/citybuild/generate-xml.adp	13 Nov 2003 14:55:26 -0000	1.1
@@ -0,0 +1,23 @@
+<master>
+  <property name="title">@page_title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+
+<if @result.wrote_file_p@>
+  <p>
+    Generated map XML file and sent any notifications.
+  </p>
+</if>
+<else>
+  <p>
+    Did not generate an XML file.
+  </p>  
+</else>
+
+<if @result.errors@ not nil>
+The following errors were encountered:
+
+<pre>
+@error_text@
+</pre>
+
+</if>
Index: openacs-4/contrib/packages/simulation/www/citybuild/generate-xml.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/citybuild/Attic/generate-xml.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/citybuild/generate-xml.tcl	13 Nov 2003 14:55:26 -0000	1.1
@@ -0,0 +1,12 @@
+ad_page_contract {
+  Generate map XML file for this package.
+
+  @cvs-id $Id: generate-xml.tcl,v 1.1 2003/11/13 14:55:26 peterm Exp $
+}
+
+set page_title "Generation of Map XML file"
+set context [list [list "." "CityBuild"] $page_title]
+
+array set result [simulation::object::xml::generate_file -package_id [ad_conn package_id]]
+
+set error_text [join $result(errors) "\n"]
Index: openacs-4/contrib/packages/simulation/www/citybuild/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/citybuild/Attic/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/simulation/www/citybuild/index.tcl	13 Nov 2003 14:13:10 -0000	1.1
+++ openacs-4/contrib/packages/simulation/www/citybuild/index.tcl	13 Nov 2003 14:55:26 -0000	1.2
@@ -8,7 +8,7 @@
     {type:optional}
 }
 
-set page_title "Sim Objects"
+set page_title "CityBuild"
 set context [list $page_title]
 set package_id [ad_conn package_id]
 set admin_p [permission::permission_p -object_id $package_id -privilege admin]
Index: openacs-4/contrib/packages/simulation/www/citybuild/map-xml.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/citybuild/Attic/map-xml.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/citybuild/map-xml.tcl	13 Nov 2003 14:55:26 -0000	1.1
@@ -0,0 +1,7 @@
+ad_page_contract {
+  Display the Map XML document for this package
+
+  @cvs-id $Id: map-xml.tcl,v 1.1 2003/11/13 14:55:26 peterm Exp $
+}
+
+ns_return 200 text/plain [simulation::object::xml::get_doc]
Index: openacs-4/contrib/packages/simulation/www/citybuild/object-delete.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/citybuild/Attic/object-delete.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/citybuild/object-delete.adp	13 Nov 2003 14:55:26 -0000	1.1
@@ -0,0 +1,13 @@
+<master>
+  <property name="title">@page_title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+
+<p> Are you sure you want to delete this object? </p>
+
+<p>
+  <b>&raquo;</b> <a href="@delete_url@">Yes, delete the object</a>
+</p>
+
+<p>
+  <b>&raquo;</b> <a href="@cancel_url@">No, cancel</a>
+</p>
Index: openacs-4/contrib/packages/simulation/www/citybuild/object-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/citybuild/Attic/object-delete.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/citybuild/object-delete.tcl	13 Nov 2003 14:55:26 -0000	1.1
@@ -0,0 +1,20 @@
+ad_page_contract {
+    Delete an object.
+} {
+    {confirm_p:boolean "f"}
+    item_id:integer
+    {return_url "."}
+}
+
+permission::require_permission -object_id $item_id -privilege write
+
+if { [template::util::is_true $confirm_p] } {
+    bcms::item::delete_item -item_id $item_id
+    ad_returnredirect $return_url
+}
+
+set page_title "Delete Object"
+set context [list [list "." "CityBuild"] $page_title]
+
+set delete_url [export_vars -base [ad_conn url] { item_id return_url { confirm_p 1 } }]
+set cancel_url $return_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 -r1.1 -r1.2
--- openacs-4/contrib/packages/simulation/www/citybuild/object-edit.tcl	13 Nov 2003 14:19:24 -0000	1.1
+++ openacs-4/contrib/packages/simulation/www/citybuild/object-edit.tcl	13 Nov 2003 14:55:26 -0000	1.2
@@ -23,7 +23,7 @@
 } else {
     set page_title "Create Sim Object"
 }
-set context [list [list "object-list" "Sim Objects"] $page_title]
+set context [list [list "." "CityBuild"] $page_title]
 
 ######################################################################
 #
@@ -34,7 +34,7 @@
 ######################################################################
 #TODO: content_type should be changable in new mode
 
-ad_form -name object -cancel_url object-list -html {enctype multipart/form-data} -form {
+ad_form -name object -cancel_url "." -html {enctype multipart/form-data} -form {
     {item_id:key}
     {parent_id:integer(hidden),optional}
 }
@@ -696,7 +696,7 @@
     }
     
 } -after_submit {
-    ad_returnredirect object-list
+    ad_returnredirect "."
     ad_script_abort
 }
 
Index: openacs-4/contrib/packages/simulation/www/citybuild/object/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/citybuild/object/Attic/index.vuh,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/citybuild/object/index.vuh	13 Nov 2003 14:55:26 -0000	1.1
@@ -0,0 +1,9 @@
+ad_page_contract {
+    Displays a Simulation Object
+    
+    @author Lars Pind (lars@collaboraid.biz)
+    @creation-date 2003-10-14
+    @cvs-id $Id: index.vuh,v 1.1 2003/11/13 14:55:26 peterm Exp $
+}
+
+rp_internal_redirect -absolute_path [file join [acs_package_root_dir "simulation"] lib object-display]
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/simulation/www/object/index.vuh'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/simulation/www/directory.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/simulation/www/directory.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/simulation/www/generate-xml.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/simulation/www/generate-xml.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/simulation/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/index.adp,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/simulation/www/index.adp	13 Nov 2003 14:16:58 -0000	1.20
+++ openacs-4/packages/simulation/www/index.adp	13 Nov 2003 14:55:25 -0000	1.21
@@ -1,10 +1,13 @@
 <master src="/packages/simulation/www/map-master">
 <div style="margin: 4px; background: lightgray; border: 1px solid black;">
-<h3><a href="simplay/">SIMPLAY</a></h3>
-Your live cases:
-<listtemplate name="active_cases"></listtemplate></p>
-Available simulations
-<table class="list" cellpadding="3" cellspacing="1">
+  <h3><a href="simplay/">SimPlay</a></h3>
+
+  Your live cases:
+
+  <listtemplate name="active_cases"></listtemplate></p>
+
+  Available simulations
+  <table class="list" cellpadding="3" cellspacing="1">
       <tr class="list-header">
           <th class="list">
                 Simulation
@@ -23,19 +26,26 @@
             </tr>
   </table>
 </div>
+
 <div style="margin: 4px; padding: 4px; background: lightgray; border: 1px solid black;">
-<h3><a href="directory">YELLOW PAGES</a></h3>
+  <h3><a href="yellow-pages">Yellow Pages</a></h3>
+
+    Todo...
 </div>
+
 <div style="margin: 4px; padding: 4px; border: 1px solid black;">
-<h3><a href="citybuild/">CITYBUILD</a></h3>
-<include src="/packages/simulation/lib/sim-objects" size="short" display_mode="display">
+  <h3><a href="citybuild/">CityBuild</a></h3>
+
+  <include src="/packages/simulation/lib/sim-objects" size="short" display_mode="display">
 </div>
-<div style="margin: 4px; padding: 4px; border: 1px solid
-black;">
-<h3><a href="simbuild/">SIMBUILD</a></h3>
-<include src="/packages/simulation/lib/sim-templates" size="short" display_mode="display">
+
+<div style="margin: 4px; padding: 4px; border: 1px solid black;">
+  <h3><a href="simbuild/">SimBuild</a></h3>
+
+  <include src="/packages/simulation/lib/sim-templates" size="short" display_mode="display">
 </div>
+
 <div style="margin: 4px; padding: 4px; background: lightgray; border: 1px solid
 black;">
-<h3><a href="siminst/">SIMINST</a></h3>
+  <h3><a href="siminst/">SimInst</a></h3>
 </div>
Index: openacs-4/packages/simulation/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/index.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/simulation/www/index.tcl	11 Nov 2003 15:32:46 -0000	1.6
+++ openacs-4/packages/simulation/www/index.tcl	13 Nov 2003 14:55:25 -0000	1.7
@@ -102,7 +102,7 @@
         or content_type like 'stylesheet'
      group by content_type
 " {
-    set view_url [export_vars -base "object-list" { type }]
+    set view_url [export_vars -base "citybuild/" { type }]
 }
 
 
@@ -154,5 +154,5 @@
     select count(workflow_id) as count
       from workflows w
 " {
-    set view_url [export_vars -base "sim-template-list"]
+    set view_url [export_vars -base "simbuild/"]
 }
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/simulation/www/map-xml.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/simulation/www/object-delete.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/simulation/www/object-delete.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/simulation/www/role-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/Attic/role-edit.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/simulation/www/role-edit.tcl	13 Nov 2003 12:19:50 -0000	1.6
+++ openacs-4/packages/simulation/www/role-edit.tcl	13 Nov 2003 14:55:25 -0000	1.7
@@ -38,7 +38,7 @@
 # role form
 #---------------------------------------------------------------------
 
-ad_form -name role -cancel_url sim-template-list -form {
+ad_form -name role -cancel_url index -form {
     {role_id:key}
     {workflow_id:integer(hidden),optional}
     {name:text
Index: openacs-4/packages/simulation/www/yellow-pages.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/yellow-pages.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/yellow-pages.adp	13 Nov 2003 14:55:25 -0000	1.1
@@ -0,0 +1,7 @@
+<master>
+  <property name="title">@page_title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+
+<p>
+  <include src="/packages/simulation/lib/sim-objects" size="long" display_mode="display">
+</p>
Index: openacs-4/packages/simulation/www/yellow-pages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/yellow-pages.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/yellow-pages.tcl	13 Nov 2003 14:55:25 -0000	1.1
@@ -0,0 +1,12 @@
+ad_page_contract {
+
+  @creation-date 2003-10-13
+  @cvs-id $Id: yellow-pages.tcl,v 1.1 2003/11/13 14:55:25 peterm Exp $
+} {
+    parent_id:optional
+    {orderby "title,asc"}
+    {type:optional}
+}
+
+set page_title "Yellow Pages"
+set context [list $page_title]
Index: openacs-4/packages/simulation/www/citybuild/generate-xml.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/citybuild/generate-xml.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/citybuild/generate-xml.adp	13 Nov 2003 14:55:26 -0000	1.1
@@ -0,0 +1,23 @@
+<master>
+  <property name="title">@page_title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+
+<if @result.wrote_file_p@>
+  <p>
+    Generated map XML file and sent any notifications.
+  </p>
+</if>
+<else>
+  <p>
+    Did not generate an XML file.
+  </p>  
+</else>
+
+<if @result.errors@ not nil>
+The following errors were encountered:
+
+<pre>
+@error_text@
+</pre>
+
+</if>
Index: openacs-4/packages/simulation/www/citybuild/generate-xml.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/citybuild/generate-xml.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/citybuild/generate-xml.tcl	13 Nov 2003 14:55:26 -0000	1.1
@@ -0,0 +1,12 @@
+ad_page_contract {
+  Generate map XML file for this package.
+
+  @cvs-id $Id: generate-xml.tcl,v 1.1 2003/11/13 14:55:26 peterm Exp $
+}
+
+set page_title "Generation of Map XML file"
+set context [list [list "." "CityBuild"] $page_title]
+
+array set result [simulation::object::xml::generate_file -package_id [ad_conn package_id]]
+
+set error_text [join $result(errors) "\n"]
Index: openacs-4/packages/simulation/www/citybuild/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/citybuild/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/simulation/www/citybuild/index.tcl	13 Nov 2003 14:13:10 -0000	1.1
+++ openacs-4/packages/simulation/www/citybuild/index.tcl	13 Nov 2003 14:55:26 -0000	1.2
@@ -8,7 +8,7 @@
     {type:optional}
 }
 
-set page_title "Sim Objects"
+set page_title "CityBuild"
 set context [list $page_title]
 set package_id [ad_conn package_id]
 set admin_p [permission::permission_p -object_id $package_id -privilege admin]
Index: openacs-4/packages/simulation/www/citybuild/map-xml.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/citybuild/map-xml.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/citybuild/map-xml.tcl	13 Nov 2003 14:55:26 -0000	1.1
@@ -0,0 +1,7 @@
+ad_page_contract {
+  Display the Map XML document for this package
+
+  @cvs-id $Id: map-xml.tcl,v 1.1 2003/11/13 14:55:26 peterm Exp $
+}
+
+ns_return 200 text/plain [simulation::object::xml::get_doc]
Index: openacs-4/packages/simulation/www/citybuild/object-delete.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/citybuild/object-delete.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/citybuild/object-delete.adp	13 Nov 2003 14:55:26 -0000	1.1
@@ -0,0 +1,13 @@
+<master>
+  <property name="title">@page_title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+
+<p> Are you sure you want to delete this object? </p>
+
+<p>
+  <b>&raquo;</b> <a href="@delete_url@">Yes, delete the object</a>
+</p>
+
+<p>
+  <b>&raquo;</b> <a href="@cancel_url@">No, cancel</a>
+</p>
Index: openacs-4/packages/simulation/www/citybuild/object-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/citybuild/object-delete.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/citybuild/object-delete.tcl	13 Nov 2003 14:55:26 -0000	1.1
@@ -0,0 +1,20 @@
+ad_page_contract {
+    Delete an object.
+} {
+    {confirm_p:boolean "f"}
+    item_id:integer
+    {return_url "."}
+}
+
+permission::require_permission -object_id $item_id -privilege write
+
+if { [template::util::is_true $confirm_p] } {
+    bcms::item::delete_item -item_id $item_id
+    ad_returnredirect $return_url
+}
+
+set page_title "Delete Object"
+set context [list [list "." "CityBuild"] $page_title]
+
+set delete_url [export_vars -base [ad_conn url] { item_id return_url { confirm_p 1 } }]
+set cancel_url $return_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 -r1.1 -r1.2
--- openacs-4/packages/simulation/www/citybuild/object-edit.tcl	13 Nov 2003 14:19:24 -0000	1.1
+++ openacs-4/packages/simulation/www/citybuild/object-edit.tcl	13 Nov 2003 14:55:26 -0000	1.2
@@ -23,7 +23,7 @@
 } else {
     set page_title "Create Sim Object"
 }
-set context [list [list "object-list" "Sim Objects"] $page_title]
+set context [list [list "." "CityBuild"] $page_title]
 
 ######################################################################
 #
@@ -34,7 +34,7 @@
 ######################################################################
 #TODO: content_type should be changable in new mode
 
-ad_form -name object -cancel_url object-list -html {enctype multipart/form-data} -form {
+ad_form -name object -cancel_url "." -html {enctype multipart/form-data} -form {
     {item_id:key}
     {parent_id:integer(hidden),optional}
 }
@@ -696,7 +696,7 @@
     }
     
 } -after_submit {
-    ad_returnredirect object-list
+    ad_returnredirect "."
     ad_script_abort
 }
 
Index: openacs-4/packages/simulation/www/citybuild/object/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/citybuild/object/Attic/index.vuh,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/citybuild/object/index.vuh	13 Nov 2003 14:55:26 -0000	1.1
@@ -0,0 +1,9 @@
+ad_page_contract {
+    Displays a Simulation Object
+    
+    @author Lars Pind (lars@collaboraid.biz)
+    @creation-date 2003-10-14
+    @cvs-id $Id: index.vuh,v 1.1 2003/11/13 14:55:26 peterm Exp $
+}
+
+rp_internal_redirect -absolute_path [file join [acs_package_root_dir "simulation"] lib object-display]
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/simulation/www/object/index.vuh'.
Fisheye: No comparison available.  Pass `N' to diff?