Index: openacs-4/packages/lors-central/www/course-associate.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/course-associate.tcl,v
diff -u -r1.1 -r1.1.2.1
--- openacs-4/packages/lors-central/www/course-associate.tcl	17 May 2005 16:21:19 -0000	1.1
+++ openacs-4/packages/lors-central/www/course-associate.tcl	13 Jun 2005 15:10:42 -0000	1.1.2.1
@@ -10,9 +10,16 @@
     { return_url "" }
 }
 
-# Checking swa privilege over lors-central
-lors_central::is_swa
+# Checking privilege over lors-central
+lors_central::check_permissions
 
+# 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]"
+
+
 set man_id [content::item::get_live_revision -item_id $item_id]
 
 foreach community_id $object_id {
@@ -34,8 +41,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
 }