Index: openacs-4/packages/contacts/tcl/contact-search-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-search-widget-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/contacts/tcl/contact-search-widget-procs.tcl	16 May 2006 16:42:41 -0000	1.4
+++ openacs-4/packages/contacts/tcl/contact-search-widget-procs.tcl	28 Oct 2006 16:51:50 -0000	1.5
@@ -88,6 +88,10 @@
 	    template::element::set_error $element(form_id) $element_id "[_ contacts.Enter_a_query]"
 	    return [list]
 	}
+    } else {
+	if {[string is integer $value] && [db_string party_p {select 1 from parties where party_id = :value} -default 0]} {
+	    return $value
+	}
     }
 
     if { [string equal $value ":search:"] } {
@@ -152,6 +156,7 @@
     }
     set person_ids [list]
     set organization_ids [list]
+
     # search in persons
     if { $persons_p } {
 	set person_ids [db_list search_persons {}]
@@ -228,6 +233,5 @@
     if { $email ne "" } {
 	append option " <${email}>"
     }
-    append option " \#$party_id"
     return $option
 }