Index: openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/Attic/xowiki-portlet-procs.tcl,v
diff -u -r1.60 -r1.61
--- openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	12 Jun 2007 10:35:08 -0000	1.60
+++ openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	15 Jun 2007 07:29:40 -0000	1.61
@@ -354,8 +354,18 @@
       } else {
         foreach {orderby direction} [split $order_items_by ,]  break     ;# e.g. "title,asc"
         set increasing [expr {$direction ne "desc"}]
-        set order_column [expr {[::xo::db::has_ltree] ? ", p.page_order" : ""}]
-        #my log "--CAT $increasing $order_column"
+        
+        #
+        # If we have ltree, we query the order_column from the database, 
+        # otherwise we don't retrieve it, but set the Tcl variable page_order empty.
+        #
+        if {[::xo::db::has_ltree]} {
+          set order_column ", p.page_order" 
+        } else {
+          set order_column ""
+          set page_order ""
+        }
+
         db_foreach [my qn get_pages] \
             "select ci.item_id, ci.name, ci.content_type, r.title, category_id $order_column from $sql" {
               if {$title eq ""} {set title $name}
@@ -381,7 +391,7 @@
 
 namespace eval ::xowiki::portlet {
   #############################################################################
-  # $Id$
+  #
   # display recent entries by categories
   # -gustaf neumann
   #