Index: openacs-4/packages/lorsm/www/admin/course-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/course-add-3.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/lorsm/www/admin/course-add-3.tcl	12 Dec 2008 14:25:35 -0000	1.11
+++ openacs-4/packages/lorsm/www/admin/course-add-3.tcl	14 Feb 2009 22:32:19 -0000	1.12
@@ -116,7 +116,7 @@
 
         # Set read permissions for community/class dotlrn_member_rel
 
-        set community_id [dotlrn_community::get_community_id]
+        set community_id [lors::get_community_id]
         set party_id_member [db_string party_id_member {}]
 
         permission::grant \
@@ -364,7 +364,7 @@
 
         # Set read permissions for community/class dotlrn_member_rel
 
-        set community_id [dotlrn_community::get_community_id]
+        set community_id [lors::get_community_id]
 
         set party_id_member [db_string party_id_member {}]
 
Index: openacs-4/packages/lorsm/www/admin/course-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/course-add.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/course-add.tcl	12 Dec 2008 14:25:35 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/course-add.tcl	14 Feb 2009 22:32:19 -0000	1.4
@@ -11,7 +11,7 @@
 }
 
 set user_id [ad_conn user_id]
-set community_id [dotlrn_community::get_community_id]
+set community_id [lors::get_community_id]
 
 if { ![info exists man_id] } {
    set man_id ""
@@ -21,7 +21,7 @@
 # eventually, we should provide an option so it can be imported in
 # different subfolders
 set fs_package_id [site_node_apm_integration::get_child_package_id \
-               -package_id [dotlrn_community::get_package_id $community_id] \
+               -package_id [lors::get_community_package_id] \
                -package_key "file-storage"]
 
 #set fs_package_id [apm_package_id_from_key "file-storage"] -- if used
Index: openacs-4/packages/lorsm/www/admin/enabler.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/enabler.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/enabler.tcl	12 Dec 2008 14:25:35 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/enabler.tcl	14 Feb 2009 22:32:19 -0000	1.4
@@ -17,7 +17,7 @@
 
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
-set community_id [dotlrn_community::get_community_id]
+set community_id [lors::get_community_id]
 
 set title [list "[_ lorsm.Set_Course_Trackable]"]
 set context [list "[_ lorsm.Set_Course_Status]"]
Index: openacs-4/packages/lorsm/www/admin/formater.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/formater.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lorsm/www/admin/formater.tcl	12 Dec 2008 14:25:35 -0000	1.4
+++ openacs-4/packages/lorsm/www/admin/formater.tcl	14 Feb 2009 22:32:19 -0000	1.5
@@ -15,7 +15,7 @@
 }
 
 set user_id [ad_conn user_id]
-set community_id [dotlrn_community::get_community_id]
+set community_id [lors::get_community_id]
 
 # check write permisssion for the learning object/manifest
 permission::require_write_permission -object_id $man_id -creation_user $user_id
Index: openacs-4/packages/lorsm/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/index.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/lorsm/www/admin/index.tcl	12 Dec 2008 14:25:35 -0000	1.5
+++ openacs-4/packages/lorsm/www/admin/index.tcl	14 Feb 2009 22:32:19 -0000	1.6
@@ -16,7 +16,7 @@
 
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
-set community_id [dotlrn_community::get_community_id]
+set community_id [lors::get_community_id]
 
 set actions [list]
 
@@ -116,7 +116,7 @@
         } permissions {
             label "Permissions"
             display_eval {Permissions}
-            link_url_eval {[export_vars -base permissions {{object_id $man_id}}]}
+            link_url_eval {[export_vars -base /permissions/one {{object_id $man_id}}]}
             link_html {class button}
         }
     }
Index: openacs-4/packages/lorsm/www/admin/sharer.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/sharer.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/sharer.tcl	12 Dec 2008 14:25:36 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/sharer.tcl	14 Feb 2009 22:32:19 -0000	1.4
@@ -20,7 +20,7 @@
 set user_id [ad_conn user_id]
 
 set package_id [ad_conn package_id]
-set community_id [dotlrn_community::get_community_id]
+set community_id [lors::get_community_id]
 
 # check write permisssion for the learning object/manifest
 permission::require_write_permission -object_id $man_id -creation_user $user_id
Index: openacs-4/packages/lorsm/www/admin/tracker.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/tracker.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/tracker.tcl	12 Dec 2008 14:25:36 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/tracker.tcl	14 Feb 2009 22:32:19 -0000	1.4
@@ -16,7 +16,7 @@
 }
 
 set package_id [ad_conn package_id]
-set community_id [dotlrn_community::get_community_id]
+set community_id [lors::get_community_id]
 
 set title "[_ lorsm.lt_Set_Course_Track_Opti]"
 set context [list "[_ lorsm.Set_Course_Options]"]
Index: openacs-4/packages/lorsm/www/admin/shared/add-shared-course-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/shared/add-shared-course-2.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lorsm/www/admin/shared/add-shared-course-2.tcl	8 Feb 2009 22:36:49 -0000	1.4
+++ openacs-4/packages/lorsm/www/admin/shared/add-shared-course-2.tcl	14 Feb 2009 22:32:19 -0000	1.5
@@ -18,7 +18,7 @@
 
 set user_id [ad_conn user_id]
 set package_id [ad_conn package_id]
-set community_id [dotlrn_community::get_community_id]
+set community_id [lors::get_community_id]
 
 # check if the course is actually shared
 if {[db_string isshared {}] == "f"} {
Index: openacs-4/packages/lorsm/www/admin/shared/add-shared-course.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/shared/add-shared-course.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lorsm/www/admin/shared/add-shared-course.tcl	8 Feb 2009 22:36:49 -0000	1.4
+++ openacs-4/packages/lorsm/www/admin/shared/add-shared-course.tcl	14 Feb 2009 22:32:19 -0000	1.5
@@ -17,7 +17,7 @@
 
 set user_id [ad_conn user_id]
 set package_id [ad_conn package_id]
-set community_id [dotlrn_community::get_community_id]
+set community_id [lors::get_community_id]
 
 # check if the course is actually shared
 if {[db_string isshared {}] == "f"} {
Index: openacs-4/packages/lorsm/www/admin/shared/course-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/shared/course-info.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/shared/course-info.tcl	12 Dec 2008 14:25:39 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/shared/course-info.tcl	14 Feb 2009 22:32:19 -0000	1.4
@@ -20,7 +20,7 @@
                 [list   [export_vars -base .] \
                         "Shared Courses"] \
                 "Preview Course"]
-set community_id [dotlrn_community::get_community_id]
+set community_id [lors::get_community_id]
 
 set title "[_ lorsm.Preview_Course_1]"
 
@@ -33,7 +33,7 @@
 
 
 set fs_local_package_id [site_node_apm_integration::get_child_package_id \
-                -package_id [dotlrn_community::get_package_id $community_id] \
+                -package_id [lors::get_community_package_id] \
                 -package_key "file-storage"]
 
 # Checks whether this course is already in use on this community
Index: openacs-4/packages/lorsm/www/admin/shared/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/shared/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/admin/shared/index.tcl	31 Dec 2006 00:36:09 -0000	1.1
+++ openacs-4/packages/lorsm/www/admin/shared/index.tcl	14 Feb 2009 22:32:19 -0000	1.2
@@ -18,5 +18,5 @@
 set title "[_ lorsm.Shared_Courses]"
 set context [list "[_ lorsm.Shared_Courses]"]
 
-set community_id [dotlrn_community::get_community_id]
+set community_id [lors::get_community_id]
 
Index: openacs-4/packages/lorsm/www/admin/tracking/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/tracking/index.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lorsm/www/admin/tracking/index.tcl	12 Dec 2008 14:25:39 -0000	1.4
+++ openacs-4/packages/lorsm/www/admin/tracking/index.tcl	14 Feb 2009 22:32:19 -0000	1.5
@@ -18,7 +18,7 @@
 }
 
 set package_id [ad_conn package_id]
-set community_id [dotlrn_community::get_community_id]
+set community_id [lors::get_community_id]
 
 set title [list "[_ lorsm.Student_Tracking]"]
 set context [list "[_ lorsm.Tracking_1]"]
Index: openacs-4/packages/lorsm/www/admin/tracking-rte/drill-student-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/tracking-rte/drill-student-2.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lorsm/www/admin/tracking-rte/drill-student-2.tcl	12 Dec 2008 14:25:39 -0000	1.4
+++ openacs-4/packages/lorsm/www/admin/tracking-rte/drill-student-2.tcl	14 Feb 2009 22:32:19 -0000	1.5
@@ -21,9 +21,9 @@
 set page_title "Inspecting single user tracks"
 
 set package_id [ad_conn package_id]
-set community_id [dotlrn_community::get_community_id]
+set community_id [lors::get_community_id]
 set man_id [ ad_get_client_property trackingrte man_id ]
-set classname [dotlrn_community::get_community_name $community_id]
+set classname [lors::get_community_name]
 set man_name [lorsm::get_course_name -manifest_id $man_id]
 #acs_user::get -user_id $user_id -array user
 #set student_id $user(username)
@@ -47,9 +47,8 @@
 # other instances of file-storages of other classes.  See
 # documentation for further details.
 
-set community_id [dotlrn_community::get_community_id]
 set fs_local_package_id [site_node_apm_integration::get_child_package_id \
-               -package_id [dotlrn_community::get_package_id $community_id] \
+               -package_id [lors::get_community_package_id] \
                -package_key "file-storage"]
 
 set track_id [lorsm::track::istrackable \
Index: openacs-4/packages/lorsm/www/admin/tracking-rte/drill-student-singletrack.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/tracking-rte/drill-student-singletrack.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/tracking-rte/drill-student-singletrack.tcl	12 Dec 2008 14:25:39 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/tracking-rte/drill-student-singletrack.tcl	14 Feb 2009 22:32:19 -0000	1.4
@@ -12,13 +12,13 @@
 set page_title "Inspecting single track for user"
 
 set package_id [ad_conn package_id]
-set community_id [dotlrn_community::get_community_id]
+set community_id [lors::get_community_id]
 set man_id [ ad_get_client_property trackingrte man_id ]
 set user_id [ad_get_client_property trackingrte currentlydrilleduser]
 #acs_user::get -user_id $user_id -array user
 #set student_id $user(username)
 set student_name [person::name -person_id $user_id]
-set classname [dotlrn_community::get_community_name $community_id]
+set classname [lors::get_community_name]
 set man_name [lorsm::get_course_name -manifest_id $man_id]
 
 
Index: openacs-4/packages/lorsm/www/admin/tracking-rte/drill-student.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/tracking-rte/drill-student.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/tracking-rte/drill-student.tcl	12 Dec 2008 14:25:39 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/tracking-rte/drill-student.tcl	14 Feb 2009 22:32:19 -0000	1.4
@@ -12,9 +12,9 @@
 set page_title "Inspecting single user tracks"
 
 set package_id [ad_conn package_id]
-set community_id [dotlrn_community::get_community_id]
+set community_id [lors::get_community_id]
 set man_id [ ad_get_client_property trackingrte man_id ]
-set classname [dotlrn_community::get_community_name $community_id]
+set classname [lors::get_community_name]
 set man_name [lorsm::get_course_name -manifest_id $man_id]
 #acs_user::get -user_id $user_id -array user
 #set student_id $user(username)
Index: openacs-4/packages/lorsm/www/admin/tracking-rte/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/tracking-rte/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/tracking-rte/index.tcl	17 Nov 2008 13:37:55 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/tracking-rte/index.tcl	14 Feb 2009 22:32:19 -0000	1.4
@@ -12,8 +12,8 @@
 set title "Listing students tracks for a course"
 
 set package_id [ad_conn package_id]
-set community_id [dotlrn_community::get_community_id]
-set classname [dotlrn_community::get_community_name $community_id]
+set community_id [lors::get_community_id]
+set classname [lors::get_community_name]
 set man_name [lorsm::get_course_name -manifest_id $man_id]
 
 ad_set_client_property trackingrte man_id $man_id
Index: openacs-4/packages/lorsm/www/admin/tracking-rte/list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/tracking-rte/list.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/tracking-rte/list.tcl	12 Dec 2008 14:25:39 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/tracking-rte/list.tcl	14 Feb 2009 22:32:19 -0000	1.4
@@ -1,5 +1,5 @@
 set man_id [ ad_get_client_property trackingrte man_id ]
-set community_id [dotlrn_community::get_community_id]
+set community_id [lors::get_community_id]
 
 template::list::create \
     -name students \
Index: openacs-4/packages/lorsm/www/admin/tracking-rte/toc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/tracking-rte/toc.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/tracking-rte/toc.tcl	12 Dec 2008 14:25:39 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/tracking-rte/toc.tcl	14 Feb 2009 22:32:19 -0000	1.4
@@ -27,9 +27,9 @@
 # other instances of file-storages of other classes.  See
 # documentation for further details.
 
-set community_id [dotlrn_community::get_community_id]
+set community_id [lors::get_community_id]
 set fs_local_package_id [site_node_apm_integration::get_child_package_id \
-                -package_id [dotlrn_community::get_package_id $community_id] \
+                -package_id [lors::get_community_package_id] \
                 -package_key "file-storage"]
 
 set track_id [lorsm::track::istrackable \