--- loncom/homework/outputtags.pm 2002/10/16 19:21:32 1.20
+++ loncom/homework/outputtags.pm 2002/10/16 20:42:22 1.21
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# tags that create controlled output
#
-# $Id: outputtags.pm,v 1.20 2002/10/16 19:21:32 albertel Exp $
+# $Id: outputtags.pm,v 1.21 2002/10/16 20:42:22 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -51,21 +51,20 @@ sub start_displayduedate {
my $status=$Apache::inputtags::status['-1'];
&Apache::lonxml::debug("got a $status in duedatebox");
if (($status =~ /CAN.*_ANSWER/) && ($target eq 'web')) {
- my $format = &Apache::lonxml::get_param('format',$parstack,$safeeval);
- if ($format eq '') {
- &Apache::lonxml::debug("using default format");
- $format="%c";
- }
+# my $format = &Apache::lonxml::get_param('format',$parstack,$safeeval);
+# if ($format eq '') {
+# &Apache::lonxml::debug("using default format");
+# $format="%c";
+# }
my $id = $Apache::inputtags::part;
my $date = &Apache::lonnet::EXT("resource.$id.duedate");
&Apache::lonxml::debug("duedatebox found $date for $id");
- if ($date) {
- $result ='
Due at '.
- POSIX::strftime($format,localtime($date)).
- ' |
';
- } else {
- $result ='';
- }
+ $result ='Due '.
+ &Apache::lonnavmaps::timeToHumanString($date).
+ ' |
';
+# } else {
+# $result ='';
+# }
} elsif ( $target eq 'edit' ) {
$result=&Apache::edit::tag_start($target,$token);
$result.='';
@@ -84,10 +83,10 @@ sub end_displayduedate {
sub start_displaytitle {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $result='';
- if (exists($Apache::outputtags::showonce{'displayduedate'})) {
+ if (exists($Apache::outputtags::showonce{'displayduetitle'})) {
return '';
} else {
- $Apache::outputtags::showonce{'displayduedate'}=1;
+ $Apache::outputtags::showonce{'displayduetitle'}=1;
}
if ($target eq 'web') {
$result="$Apache::lonhomework::name
";