Index: openacs-4/packages/datamanager/www/available-comm-template.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/available-comm-template.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/datamanager/www/available-comm-template.tcl 9 Nov 2005 19:42:40 -0000 1.1.2.1 @@ -0,0 +1,19 @@ +ad_page_contract { + Show the list of communities where an object can be moved + @author Luis de la Fuente(lfuente@it.uc3m.es) + @creation_date 2005-07-05 + +} -query { + +} -properties { +} + +if {[info exist department_key] eq 0} { + set department_key "" +} + set available_communities [datamanager::get_available_communities \ + -object_type $object_type \ + -action_type $action_type \ + -communities_classes $communities_classes \ + -department_key $department_key] +