Index: openacs-4/packages/workflow/www/admin/workflow-ae-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/www/admin/workflow-ae-postgresql.xql,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/workflow/www/admin/workflow-ae-postgresql.xql	4 Jan 2007 09:04:10 -0000	1.2
+++ openacs-4/packages/workflow/www/admin/workflow-ae-postgresql.xql	22 Oct 2018 09:51:26 -0000	1.3
@@ -1,7 +1,14 @@
 <?xml version="1.0"?>
  <queryset>
    <rdbms><type>postgresql</type><version>7.2</version></rdbms>
+   
          <fullquery name="get_packages">
+ 	         <querytext>
+ 	           select object_id,name, name as rawname, 1 as level from site_nodes s where s.parent_id is null;
+ 	         </querytext>
+         </fullquery>   
+
+         <fullquery name="get_packages_old">
                  <querytext>
  	                 select  n.name,
  	                         n.object_id,
@@ -10,7 +17,7 @@
  	                 from    site_nodes n, site_nodes n2
  	                 where   n.name is not null
  	                 and     n.tree_sortkey between n2.tree_sortkey and tree_right(n2.tree_sortkey)
- 	                 and     n.object_id=405
+ 	                 and     n.object_id in (select s.object_id from site_nodes s where s.parent_id is null)
                  </querytext>
          </fullquery>
  </queryset>
Index: openacs-4/packages/workflow/www/admin/workflow-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/www/admin/workflow-ae.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/workflow/www/admin/workflow-ae.tcl	26 May 2017 17:41:51 -0000	1.6
+++ openacs-4/packages/workflow/www/admin/workflow-ae.tcl	22 Oct 2018 09:51:26 -0000	1.7
@@ -14,11 +14,14 @@
 set title "Edit"
 set context [list [list $return_url "Workflow Edit"] "Edit Metadata"]
 
-
 workflow::tree::sorter::create -multirow "package_options" -sort_by sort_key
 
 db_multirow -extend {sort_key} package_options get_packages  {} {
-    set sort_key [workflow::tree::sorter::make_full_key_for -multirow "package_options" -partial_key $rawname -id  $object_id -level $level]
+    set sort_key [workflow::tree::sorter::make_full_key_for \
+		      -multirow "package_options" \
+		      -partial_key $rawname \
+		      -id $object_id \
+		      -level $level]
 }
 
 workflow::tree::sorter::sort -multirow "package_options"
Index: openacs-4/packages/workflow/www/admin/workflow-clone-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/www/admin/workflow-clone-postgresql.xql,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/workflow/www/admin/workflow-clone-postgresql.xql	4 Jan 2007 09:04:10 -0000	1.2
+++ openacs-4/packages/workflow/www/admin/workflow-clone-postgresql.xql	22 Oct 2018 09:51:26 -0000	1.3
@@ -1,9 +1,15 @@
 <?xml version="1.0"?>
  <queryset>
    <rdbms><type>postgresql</type><version>7.2</version></rdbms>
- 	 
+
          <fullquery name="get_packages">
  	         <querytext>
+ 	           select object_id,name, name as rawname, 1 as level from site_nodes s where s.parent_id is null;
+ 	         </querytext>
+         </fullquery>
+   
+         <fullquery name="get_packages_old">
+ 	         <querytext>
  	                 select n.name,
  	                 n.object_id,
  	                 n.name as rawname,
Index: openacs-4/packages/workflow/www/admin/workflow-clone.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/www/admin/workflow-clone.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/workflow/www/admin/workflow-clone.tcl	17 Sep 2013 19:10:35 -0000	1.4
+++ openacs-4/packages/workflow/www/admin/workflow-clone.tcl	22 Oct 2018 09:51:26 -0000	1.5
@@ -20,7 +20,11 @@
 workflow::tree::sorter::create -multirow "package_options" -sort_by sort_key
 
 db_multirow -extend {sort_key} package_options get_packages  {} {
-    set sort_key [workflow::tree::sorter::make_full_key_for -multirow "package_options" -partial_key $rawname -id  $object_id -level $level]
+    set sort_key [workflow::tree::sorter::make_full_key_for \
+		      -multirow "package_options" \
+		      -partial_key $rawname \
+		      -id  $object_id \
+		      -level $level]
 }
 
 workflow::tree::sorter::sort -multirow "package_options"