Index: openacs-4/packages/contacts/tcl/contact-search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-search-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/contacts/tcl/contact-search-procs.tcl	1 Jun 2005 01:26:47 -0000	1.2
+++ openacs-4/packages/contacts/tcl/contact-search-procs.tcl	7 Jun 2005 19:18:49 -0000	1.3
@@ -36,6 +36,18 @@
     return [package_instantiate_object -var_list $var_list contact_search]
 }
 
+ad_proc -public contact::search::results_count {
+    {-search_id ""}
+    {-rel_type ""}
+    {-object_type}
+} {
+    create a contact search
+} {
+
+    return [db_string get_total_count {}]
+
+}
+
 ad_proc -public contact::search::update {
     {-search_id ""}
     {-title ""}
@@ -334,11 +346,11 @@
                 }
                 created {
                     set output_pretty "Contact created in the last: <strong>$interval</strong>"
-                    set output_code   "CASE WHEN ( select scrr.creation_date from acs_objects where object_id = $party_id ) > ( now() - '$interval'::interval ) THEN 't'::boolean ELSE 'f'::boolean END"
+                    set output_code   "CASE WHEN ( select acs_objects.creation_date from acs_objects where acs_objects.object_id = $party_id ) > ( now() - '$interval'::interval ) THEN 't'::boolean ELSE 'f'::boolean END"
                 }
                 not_created {
                     set output_pretty "Contact not created in the last: <strong>$interval</strong>"
-                    set output_code   "CASE WHEN ( select scrr.creation_date from acs_objects where object_id = $party_id ) > ( now() - '$interval'::interval ) THEN 'f'::boolean ELSE 't'::boolean END"
+                    set output_code   "CASE WHEN ( select acs_objects.creation_date from acs_objects where acs_objects.object_id = $party_id ) > ( now() - '$interval'::interval ) THEN 'f'::boolean ELSE 't'::boolean END"
                 }
                 login {
                     set output_pretty "Contact has logged in"