Index: openacs-4/packages/ams/tcl/ams-list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-list-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/ams/tcl/ams-list-procs.tcl	28 Oct 2005 21:02:46 -0000	1.6
+++ openacs-4/packages/ams/tcl/ams-list-procs.tcl	14 Feb 2006 21:49:29 -0000	1.7
@@ -223,7 +223,8 @@
 
 
 ad_proc -public ams::list::attribute::map {
-    -list_id:required
+    {-list_id ""}
+    {-list_ids ""}
     -attribute_id:required
     {-sort_order ""}
     {-required_p "f"}
@@ -238,7 +239,14 @@
     if { ![exists_and_not_null sort_order] } {
         set sort_order [expr 1 + [db_string get_highest_sort_order {} -default "0"]]
     }
-    return [db_exec_plsql ams_list_attribute_map {}]
+    
+    if {![string eq "" $list_id]} {
+	return [db_exec_plsql ams_list_attribute_map {}]
+    } elseif {![string eq "" $list_ids]} {
+	foreach list_id $list_ids {
+	    db_exec_plsql ams_list_attribute_map {}
+	}
+    } 
 }
 
 ad_proc -public ams::list::attribute::unmap {