Index: openacs-4/packages/acs-content-repository/tcl/content-folder-procs-oracle.xal
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/content-folder-procs-oracle.xal,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-content-repository/tcl/content-folder-procs-oracle.xal	19 Apr 2005 14:55:34 -0000	1.1.2.1
@@ -0,0 +1,19 @@
+<?xml version="1.0"?>
+<!DOCTYPE queryset PUBLIC "-//OpenACS//DTD XQL 1.0//EN"
+"http://www.thecodemill.biz/repository/xql.dtd">
+<!--  -->
+
+<queryset>
+  
+  <rdbms>
+    <type>oracle</type>
+    <version>8.1.6</version>
+  </rdbms>
+  
+  <fullquery name="content::folder::get_folder_from_package_not_cached.get_folder_id">
+    <querytext>
+        select max(folder_id) from cr_folders where package_id=:package_id
+    </querytext>
+  </fullquery>
+
+</queryset>
Index: openacs-4/packages/acs-content-repository/tcl/content-folder-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/content-folder-procs-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-content-repository/tcl/content-folder-procs-postgresql.xql	19 Apr 2005 14:55:34 -0000	1.1.2.1
@@ -0,0 +1,20 @@
+<?xml version="1.0"?>
+<!DOCTYPE queryset PUBLIC "-//OpenACS//DTD XQL 1.0//EN"
+"http://www.thecodemill.biz/repository/xql.dtd">
+<!--  -->
+
+<queryset>
+  
+  <rdbms>
+    <type>postgresql</type>
+    <version>7.3</version>
+  </rdbms>
+  
+  <fullquery name="content::folder::get_folder_from_package_not_cached.get_folder_id">
+    <querytext>
+        select folder_id from cr_folders where package_id=:package_id
+        order by folder_id desc limit 1
+    </querytext>
+  </fullquery>
+
+</queryset>
Index: openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl,v
diff -u -N -r1.5.2.5 -r1.5.2.6
--- openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl	13 Apr 2005 08:17:57 -0000	1.5.2.5
+++ openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl	19 Apr 2005 14:55:34 -0000	1.5.2.6
@@ -316,7 +316,7 @@
 		content_folder is_sub_folder]
 }
 
-ad_proc content::folder::get_folder_from_package {
+ad_proc -public content::folder::get_folder_from_package {
     -package_id:required
 } {
     @author Timo Hentschel (timo@timohentschel.de)
@@ -327,13 +327,13 @@
     return [util_memoize [list content::folder::get_folder_from_package_not_cached -package_id $package_id]]
 }
 
-ad_proc content::folder::get_folder_from_package_not_cached {
+ad_proc -private content::folder::get_folder_from_package_not_cached {
     -package_id:required
 } {
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-01-06
 
     Returns the folder_id of the package instance
 } {
-    return [db_string get_folder_id "select folder_id from cr_folders where package_id=:package_id"]
+    return [db_string get_folder_id ""]
 }