loncom/homework/outputtags.pm - diff

Return to outputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.48, 2006/05/12 03:46:54	version 1.49, 2006/10/17 15:11:12
Line 169 sub end_displaytitle {	Line 169 sub end_displaytitle {
sub multipart {	sub multipart {
my ($uri)=@_;	my ($uri)=@_;
if (!defined($uri)) { $uri=$env{'request.uri'}; }	if (!defined($uri)) { $uri=$env{'request.uri'}; }
my ($symb)=&Apache::lonxml::whichuser();	my ($symb)=&Apache::lonnet::whichuser();

my @parts;	my @parts;
my $metadata = &Apache::lonnet::metadata($uri,'packages');	my $metadata = &Apache::lonnet::metadata($uri,'packages');
Line 236 sub end_displayweight {	Line 236 sub end_displayweight {
sub start_displaystudentphoto {	sub start_displaystudentphoto {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $result;	my $result;
my (undef,undef,$domain,$user) = &Apache::lonxml::whichuser();	my (undef,undef,$domain,$user) = &Apache::lonnet::whichuser();
if ($target eq 'web' && $user eq $env{'user.name'}) {	if ($target eq 'web' && $user eq $env{'user.name'}) {
my $url=&Apache::lonnet::studentphoto($domain,$user,"gif");	my $url=&Apache::lonnet::studentphoto($domain,$user,"gif");
my $args;	my $args;