version 1.45, 2005/12/12 22:10:32
|
version 1.49, 2006/10/17 15:11:12
|
Line 69 sub start_displayduedate {
|
Line 69 sub start_displayduedate {
|
my $style = &Apache::lonxml::get_param('style',$parstack,$safeeval); |
my $style = &Apache::lonxml::get_param('style',$parstack,$safeeval); |
my $format = &Apache::lonxml::get_param('format', $parstack, $safeeval); |
my $format = &Apache::lonxml::get_param('format', $parstack, $safeeval); |
if (!$format) { |
if (!$format) { |
$format = '%c'; |
$format = undef; |
} |
} |
if (($status =~ /CAN.*_ANSWER/)) { |
if (($status =~ /CAN.*_ANSWER/)) { |
my $id = $Apache::inputtags::part; |
my $id = $Apache::inputtags::part; |
my $date = &Apache::lonnet::EXT("resource.$id.duedate"); |
my $date = &Apache::lonhomework::due_date($id); |
&Apache::lonxml::debug("duedatebox found $date for $id"); |
&Apache::lonxml::debug("duedatebox found $date for $id"); |
|
|
# Only show the due date if the current date is |
# Only show the due date if the current date is |
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; |