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 -r1.34 -r1.35
--- openacs-4/packages/xowiki/tcl/weblog-procs.tcl	29 Jan 2008 12:06:26 -0000	1.34
+++ openacs-4/packages/xowiki/tcl/weblog-procs.tcl	19 May 2008 17:42:17 -0000	1.35
@@ -258,15 +258,6 @@
     return $content
   }
   
-  proc ::xo::update_query_variable {old_query var value} {
-    set query [list [list $var $value]]
-    foreach pair [split $old_query &] {
-      foreach {key value} [split $pair =] break
-      if {$key eq $var} continue
-      lappend query [list [ns_urldecode $key] [ns_urldecode $value]]
-    }
-    return $query
-  }
 
   # default layout for weblog entries
   Class create ::xowiki::Weblog::EntryRenderer -instproc render {} {