Index: openacs.org-dev/packages/download/tcl/openacs.org-dl-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/download/tcl/openacs.org-dl-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs.org-dev/packages/download/tcl/openacs.org-dl-procs.tcl	13 Dec 2002 01:51:42 -0000	1.1
@@ -0,0 +1,21 @@
+# /packages/download/tcl/openacs.org-dl-procs.tcl
+ad_library {
+    procs specific to openacs.org
+}
+
+ad_proc download_get_number { ids } {
+    return the total number of download for all revision_ids in the
+    list that is passed in
+} {
+    set dl_count [util_memoize [list download_get_number_helper $ids] 600]
+    return $dl_count
+}
+
+ad_proc download_get_number_helper { ids } {
+    caching helper proc for download_get_number
+} {
+
+    set dl_count [ db_string get_number_of_downloads " select count(*) from download_downloads where revision_id in ([join $ids ,]) " ]
+
+    return $dl_count
+}
\ No newline at end of file