version 1.4, 2001/01/11 19:21:53
|
version 1.5, 2001/01/15 14:57:13
|
Line 24 sub start_displayduedate {
|
Line 24 sub start_displayduedate {
|
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"); |
$result ='<table border="on"><tr><td>Due at '. |
if ($date) { |
POSIX::strftime($format,localtime($date)). |
$result ='<table border="on"><tr><td>Due at '. |
'</td></tr></table>'; |
POSIX::strftime($format,localtime($date)). |
|
'</td></tr></table>'; |
|
} else { |
|
$result ='<table border="on"><tr><td>No due date set.</td></tr></table>'; |
|
} |
} |
} |
return $result; |
return $result; |
} |
} |