Index: openacs-4/packages/xowiki/tcl/weblog-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/weblog-procs.tcl,v
diff -u -N -r1.21 -r1.22
--- openacs-4/packages/xowiki/tcl/weblog-procs.tcl	12 Sep 2007 18:57:03 -0000	1.21
+++ openacs-4/packages/xowiki/tcl/weblog-procs.tcl	14 Sep 2007 20:48:52 -0000	1.22
@@ -12,6 +12,7 @@
     ptag
     category_id
     {entries_of ""}
+    {locale ""}
     filter_msg
     {sort_composite ""}
     {no_footer false}
@@ -23,14 +24,14 @@
     {entry_renderer ::xowiki::Weblog::Entry}
     {entry_flag}
   }
-  
+
   ::xowiki::Weblog instproc init {} {
     my instvar filter_msg package_id nr_items next_page_link prev_page_link
-    my instvar date category_id tag ptag page_number page_size summary items 
+    my instvar date category_id tag ptag page_number page_size summary items locale
     my instvar name_filter entry_label entries_of sort_composite summary_chars
     
     my log "--W starting"
-    set folder_id [::$package_id set folder_id]
+    set folder_id [::$package_id folder_id]
     set filter_msg  ""
     set query_parm ""
     
@@ -91,6 +92,14 @@
       set base_table xowiki_form_pagei
     }
 
+    if {$locale ne ""} {
+      #set locale "default+system"
+      foreach {locale locale_clause} \
+	  [::xowiki::Portlet locale_clause -revisions p -items ci $package_id $locale] break
+      #my msg "--L locale_clause=$locale_clause"
+      append extra_where_clause $locale_clause
+    }
+    
     # create an item container, which delegates rendering to its children
     set items [::xo::OrderedComposite new -proc render {} {
       set content ""