Index: openacs-4/packages/dotlrn/www/admin/class-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-edit.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/dotlrn/www/admin/class-edit.tcl	15 May 2007 20:14:25 -0000	1.11
+++ openacs-4/packages/dotlrn/www/admin/class-edit.tcl	11 Mar 2008 21:57:04 -0000	1.12
@@ -76,6 +76,8 @@
         class_key pretty_name description referer
 
     db_dml update_community_type {}
+    db_dml update_package_name {}
+    db_dml update_object_title {}
 
     ad_returnredirect $referer
     ad_script_abort
Index: openacs-4/packages/dotlrn/www/admin/class-edit.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-edit.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/www/admin/class-edit.xql	29 Mar 2002 19:38:26 -0000	1.3
+++ openacs-4/packages/dotlrn/www/admin/class-edit.xql	11 Mar 2008 21:57:04 -0000	1.4
@@ -20,4 +20,24 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="update_package_name">
+        <querytext>
+            update apm_packages
+                set instance_name = :pretty_name
+                where package_id = ( select package_id
+                        from dotlrn_classes_full
+                        where class_key = :class_key)
+        </querytext>
+    </fullquery>
+
+    <fullquery name="update_object_title">
+        <querytext>
+            update acs_objects
+                set title = :pretty_name
+                where object_id = ( select package_id
+                        from dotlrn_classes_full
+                        where class_key = :class_key)
+        </querytext>
+    </fullquery>
+
 </queryset>
Index: openacs-4/packages/dotlrn/www/admin/department-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/department-edit.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/www/admin/department-edit.tcl	7 Oct 2007 22:36:56 -0000	1.10
+++ openacs-4/packages/dotlrn/www/admin/department-edit.tcl	11 Mar 2008 21:57:04 -0000	1.11
@@ -86,6 +86,8 @@
     db_transaction {
         db_dml update_department {}
         db_dml update_community_type {}
+        db_dml update_package_name {}
+        db_dml update_object_title {}
     }
 
     ad_returnredirect $referer
Index: openacs-4/packages/dotlrn/www/admin/department-edit.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/department-edit.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/www/admin/department-edit.xql	29 Mar 2002 19:38:26 -0000	1.3
+++ openacs-4/packages/dotlrn/www/admin/department-edit.xql	11 Mar 2008 21:57:04 -0000	1.4
@@ -29,4 +29,24 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="update_package_name">
+        <querytext>
+            update apm_packages
+                set instance_name = :pretty_name
+                where package_id = ( select package_id
+                        from dotlrn_departments_full
+                        where department_key = :department_key)
+        </querytext>
+    </fullquery>
+
+    <fullquery name="update_object_title">
+        <querytext>
+            update acs_objects
+                set title = :pretty_name
+                where object_id = ( select package_id
+                        from dotlrn_departments_full
+                        where department_key = :department_key)
+        </querytext>
+    </fullquery>
+
 </queryset>