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: $interval"
- 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: $interval"
- 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"