version 1.20, 2002/10/16 19:21:32
|
version 1.21, 2002/10/16 20:42:22
|
Line 51 sub start_displayduedate {
|
Line 51 sub start_displayduedate {
|
my $status=$Apache::inputtags::status['-1']; |
my $status=$Apache::inputtags::status['-1']; |
&Apache::lonxml::debug("got a $status in duedatebox"); |
&Apache::lonxml::debug("got a $status in duedatebox"); |
if (($status =~ /CAN.*_ANSWER/) && ($target eq 'web')) { |
if (($status =~ /CAN.*_ANSWER/) && ($target eq 'web')) { |
my $format = &Apache::lonxml::get_param('format',$parstack,$safeeval); |
# my $format = &Apache::lonxml::get_param('format',$parstack,$safeeval); |
if ($format eq '') { |
# if ($format eq '') { |
&Apache::lonxml::debug("using default format"); |
# &Apache::lonxml::debug("using default format"); |
$format="%c"; |
# $format="%c"; |
} |
# } |
my $id = $Apache::inputtags::part; |
my $id = $Apache::inputtags::part; |
my $date = &Apache::lonnet::EXT("resource.$id.duedate"); |
my $date = &Apache::lonnet::EXT("resource.$id.duedate"); |
&Apache::lonxml::debug("duedatebox found $date for $id"); |
&Apache::lonxml::debug("duedatebox found $date for $id"); |
if ($date) { |
$result ='<table border="on"><tr><td>Due '. |
$result ='<table border="on"><tr><td>Due at '. |
&Apache::lonnavmaps::timeToHumanString($date). |
POSIX::strftime($format,localtime($date)). |
'</td></tr></table>'; |
'</td></tr></table>'; |
# } else { |
} else { |
# $result ='<table border="on"><tr><td>No due date set.</td></tr></table>'; |
$result ='<table border="on"><tr><td>No due date set.</td></tr></table>'; |
# } |
} |
|
} elsif ( $target eq 'edit' ) { |
} elsif ( $target eq 'edit' ) { |
$result=&Apache::edit::tag_start($target,$token); |
$result=&Apache::edit::tag_start($target,$token); |
$result.='</td></tr>'; |
$result.='</td></tr>'; |
Line 84 sub end_displayduedate {
|
Line 83 sub end_displayduedate {
|
sub start_displaytitle { |
sub start_displaytitle { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my $result=''; |
my $result=''; |
if (exists($Apache::outputtags::showonce{'displayduedate'})) { |
if (exists($Apache::outputtags::showonce{'displayduetitle'})) { |
return ''; |
return ''; |
} else { |
} else { |
$Apache::outputtags::showonce{'displayduedate'}=1; |
$Apache::outputtags::showonce{'displayduetitle'}=1; |
} |
} |
if ($target eq 'web') { |
if ($target eq 'web') { |
$result="<h1>$Apache::lonhomework::name</h1>"; |
$result="<h1>$Apache::lonhomework::name</h1>"; |