Index: openacs-4/contrib/packages/project-manager/www/tasks.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/tasks.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/contrib/packages/project-manager/www/tasks.tcl	27 Apr 2004 00:49:29 -0000	1.6
+++ openacs-4/contrib/packages/project-manager/www/tasks.tcl	5 May 2004 22:41:30 -0000	1.7
@@ -14,6 +14,9 @@
     @return project_term Terminology for projects
     @return project_term_lower Terminology for projects (lower case)
 
+    @param mine_p is used to make the default be the user, but
+    still allow people to view everyone.
+
 } {
     orderby:optional
     party_id:optional
@@ -44,7 +47,7 @@
 set exporting_vars { status_id party_id orderby mine_p }
 set hidden_vars [export_vars -form $exporting_vars]
 # how to get back here
-set return_url "[ad_conn url]?[ad_conn query]"
+set return_url [ad_return_url -qualified]
 
 # set up context bar
 set context [list "Tasks"]
@@ -74,6 +77,10 @@
 
 if {![empty_string_p $searchterm]} {
 
+    # if we're searching, we disregard who we were searching for.
+    unset party_id
+    set mine_p "f"
+
     if {[regexp {([0-9]+)} $searchterm match query_digits]} {
         set search_term_where " (upper(t.title) like upper('%$searchterm%')
  or t.item_id = :query_digits) "