--- loncom/interface/loncommon.pm	2008/07/12 14:16:32	1.669
+++ loncom/interface/loncommon.pm	2008/07/23 10:07:25	1.672
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.669 2008/07/12 14:16:32 raeburn Exp $
+# $Id: loncommon.pm,v 1.672 2008/07/23 10:07:25 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -913,6 +913,8 @@ sub general_help {
 	$helptopic='Authoring_Intro';
     } elsif ($env{'request.role'}=~/^cc/) {
 	$helptopic='Course_Coordination_Intro';
+    } elsif ($env{'request.role'}=~/^dc/) {
+        $helptopic='Domain_Coordination_Intro';
     }
     return $helptopic;
 }
@@ -7243,7 +7245,6 @@ sub check_for_upload {
             }
         }
     }
-    my $getpropath = 1;
     if (($current_disk_usage + $filesize) > $disk_quota){
         my $msg = '<span class="LC_error">'.
                 &mt('Unable to upload [_1]. (size = [_2] kilobytes). Disk quota will be exceeded.','<span class="LC_filename">'.$fname.'</span>',$filesize).'</span>'.
@@ -8509,7 +8510,7 @@ sub assign_categories_table {
                     }
                     $output .= '<tr '.$css_class.'><td><span class="LC_nobreak">'
                                .'<input type="checkbox" name="usecategory" value="'.
-                               $item.'"'.$checked.' />'.&escape($parent).'</span></td>';
+                               $item.'"'.$checked.' />'.$parent.'</span></td>';
                     my $depth = 1;
                     push(@path,$parent);
                     $output .= &assign_category_rows($itemcount,\@cats,$depth,$parent,\@path,\@currcategories);