loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.105, 2005/07/07 04:12:01	version 1.106, 2005/07/07 04:16:01
Line 3400 sub render {	Line 3400 sub render {
my $classlist = Apache::loncoursedata::get_classlist();	my $classlist = Apache::loncoursedata::get_classlist();
my $username = $vars->{USER_NAME};	my $username = $vars->{USER_NAME};
# Chop off everything after the last colon (section)	# Chop off everything after the last colon (section)
$username = substr($username, 0, rindex($username, ':'));	my ($uname,$udom)=split(':',$username);
my $name = $classlist->{$username}->[6];	my $name = $classlist->{$uname.':'.$udom}->[6];
$result .= '<li>'.&mt('for [_1]',"<b>$name</b>").'</li>';	$result .= '<li>'.&mt('for [_1]',"<b>$name</b>").'</li>';
my ($uname, $udom) = split /:/, $vars->{USER_NAME};	my ($uname, $udom) = split /:/, $vars->{USER_NAME};
$result .= "<input type='hidden' name='uname' value='".	$result .= "<input type='hidden' name='uname' value='".