Index: openacs-4/packages/lors-central/www/course-association-drop.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/course-association-drop.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lors-central/www/course-association-drop.tcl	17 May 2005 16:21:19 -0000	1.1
+++ openacs-4/packages/lors-central/www/course-association-drop.tcl	31 May 2005 22:57:22 -0000	1.2
@@ -9,10 +9,17 @@
     { return_url "" }
 }
 
-# Checking swa privilege over lors-central
-lors_central::is_swa
+# Display progress bar
+ad_progress_bar_begin \
+    -title "[_ lors-central.associate_to]" \
+    -message_1 "[_ lors-central.associate_to]" \
+    -message_2 "[_ lorsm.lt_We_will_continue_auto]"
 
 
+# Checking privilege over lors-central
+lors_central::check_permissions
+
+
 set man_list [db_list_of_lists get_man_ids { }]
 foreach community_id $object_id {
     lors_central::drop_relation -item_id $item_id -community_id $community_id
@@ -25,8 +32,8 @@
 }
 
 if { [empty_string_p $return_url] } {
-    ad_returnredirect "course-dotlrn-assoc?item_id=$item_id"
+    ad_progress_bar_end -url "course-dotlrn-assoc?item_id=$item_id"
 } else {
-    ad_returnredirect $return_url
+    ad_progress_bar_end -url $return_url
 }