version 1.48, 2006/05/12 03:46:54
|
version 1.50, 2007/10/08 09:22:50
|
Line 139 sub start_displaytitle {
|
Line 139 sub start_displaytitle {
|
} else { |
} else { |
$Apache::outputtags::showonce{'displayduetitle'}=1; |
$Apache::outputtags::showonce{'displayduetitle'}=1; |
} |
} |
|
&Apache::lonnet::logthis("start_displaytitle, target=$target / $Apache::lonhomework::type"); |
my $name=&Apache::structuretags::get_resource_name(); |
my $name=&Apache::structuretags::get_resource_name(); |
my $style = &Apache::lonxml::get_param('style',$parstack,$safeeval); |
my $style = &Apache::lonxml::get_param('style',$parstack,$safeeval); |
if ($target eq 'web') { |
if ($target eq 'web') { |
Line 155 sub start_displaytitle {
|
Line 156 sub start_displaytitle {
|
} else { |
} else { |
$result=$name; |
$result=$name; |
} |
} |
|
&Apache::lonnet::logthis("Printed title: $name"); |
} |
} |
return $result; |
return $result; |
} |
} |
Line 169 sub end_displaytitle {
|
Line 171 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 238 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; |