Index: openacs-4/packages/simulation/www/simplay/portfolio.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/portfolio.tcl,v
diff -u -r1.6.2.1 -r1.6.2.2
--- openacs-4/packages/simulation/www/simplay/portfolio.tcl	19 Mar 2004 10:52:44 -0000	1.6.2.1
+++ openacs-4/packages/simulation/www/simplay/portfolio.tcl	30 Nov 2004 21:48:19 -0000	1.6.2.2
@@ -3,6 +3,7 @@
 } {
     case_id:integer
     role_id:integer
+    portfolio_orderby:optional
 }
 
 set workflow_id [simulation::case::get_element -case_id $case_id -element workflow_id]
@@ -14,3 +15,7 @@
 set user_id [ad_conn user_id]
 set package_id [ad_conn package_id]
 set section_uri [apm_package_url_from_id $package_id]simplay/
+
+if { ![exists_and_not_null portfolio_orderby] } {
+    set portfolio_orderby 0
+}
\ No newline at end of file