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

[albertel]

albertel		Thu Jul  7 00:16:03 2005 EDT

  Modified files:              
    /loncom/interface	lonhelper.pm 
  Log:
  - final confirmation screen in helper wasn't showing the full name of the user
  
  
Index: loncom/interface/lonhelper.pm
diff -u loncom/interface/lonhelper.pm:1.105 loncom/interface/lonhelper.pm:1.106
--- loncom/interface/lonhelper.pm:1.105	Thu Jul  7 00:12:01 2005
+++ loncom/interface/lonhelper.pm	Thu Jul  7 00:16:01 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.105 2005/07/07 04:12:01 albertel Exp $
+# $Id: lonhelper.pm,v 1.106 2005/07/07 04:16:01 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3400,8 +3400,8 @@
         my $classlist = Apache::loncoursedata::get_classlist();
         my $username = $vars->{USER_NAME};
         # Chop off everything after the last colon (section)
-        $username = substr($username, 0, rindex($username, ':'));
-        my $name = $classlist->{$username}->[6];
+	my ($uname,$udom)=split(':',$username);
+        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='".