[LON-CAPA-cvs] cvs: loncom /interface lonhelper.pm

albertel lon-capa-cvs@mail.lon-capa.org
Fri, 08 Jul 2005 17:32:10 -0000


albertel		Fri Jul  8 13:32:10 2005 EDT

  Modified files:              
    /loncom/interface	lonhelper.pm 
  Log:
  - BUG#4202
  
  
Index: loncom/interface/lonhelper.pm
diff -u loncom/interface/lonhelper.pm:1.108 loncom/interface/lonhelper.pm:1.109
--- loncom/interface/lonhelper.pm:1.108	Thu Jul  7 00:32:59 2005
+++ loncom/interface/lonhelper.pm	Fri Jul  8 13:32:06 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.108 2005/07/07 04:32:59 albertel Exp $
+# $Id: lonhelper.pm,v 1.109 2005/07/08 17:32:06 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3402,12 +3402,9 @@
     } else {
         # FIXME: This is probably wasteful! Store the name!
         my $classlist = Apache::loncoursedata::get_classlist();
-        my $username = $vars->{USER_NAME};
-        # Chop off everything after the last colon (section)
-	my ($uname,$udom)=split(':',$username);
+	my ($uname,$udom)=split(':',$vars->{USER_NAME});
         my $name = $classlist->{$uname.':'.$udom}->[6];
         $result .= '<li>'.&mt('for [_1]',"<b>$name</b>").'</li>';
-	my ($uname, $udom) = split /:/, $vars->{USER_NAME};
         $result .= "<input type='hidden' name='uname' value='".
             HTML::Entities::encode($uname,"'<>&\"") . "' />\n";
         $result .= "<input type='hidden' name='udom' value='".