--- loncom/interface/lonhelper.pm 2005/07/07 03:56:52 1.104 +++ loncom/interface/lonhelper.pm 2005/07/07 04:16:01 1.106 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # .helper XML handler to implement the LON-CAPA helper # -# $Id: lonhelper.pm,v 1.104 2005/07/07 03:56:52 albertel Exp $ +# $Id: lonhelper.pm,v 1.106 2005/07/07 04:16:01 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3323,11 +3323,15 @@ sub render { $paramlevel = 'full'; } - my $result = "
\n"; + my $result = "\n"; $result .= "\n"; $result .= "\n"; - $result .= "&\"") . "' />\n"; + if ($vars->{ACTION_TYPE} eq 'tries') { + $result .= "\n"; + } else { + $result .= "&\"") . "' />\n"; + } if ($vars->{GRANULARITY} eq 'resource') { $result .= "&\"") . "' />\n"; @@ -3396,8 +3400,8 @@ sub render { 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 .= '
  • '.&mt('for [_1]',"$name").'
  • '; my ($uname, $udom) = split /:/, $vars->{USER_NAME}; $result .= "