--- loncom/homework/outputtags.pm 2001/01/11 15:20:58 1.1
+++ loncom/homework/outputtags.pm 2001/01/15 14:57:13 1.5
@@ -5,16 +5,15 @@ use Apache::lonnet;
use POSIX qw(strftime);
sub BEGIN {
- &Apache::lonxml::register('Apache::outputtags',('duedatebox'));
+ &Apache::lonxml::register('Apache::outputtags',('displayduedate','displaytitle'));
}
-
-sub start_duedatebox {
+sub start_displayduedate {
my ($target,$token,$parstack,$parser,$safeeval)=@_;
my $result;
my $status=$Apache::inputtags::status['-1'];
&Apache::lonxml::debug("got a $status in duedatebox");
- if ($status =~ /CAN.*_ANSWER/) {
+ if (($status =~ /CAN.*_ANSWER/) && ($target eq 'web')) {
my $args ='';
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
my $format = &Apache::run::run("{$args;".'return $format}',$safeeval);
@@ -25,14 +24,30 @@ sub start_duedatebox {
my $id = $Apache::inputtags::part;
my $date = &Apache::lonnet::EXT("resource.$id.duedate");
&Apache::lonxml::debug("duedatebox found $date for $id");
- $result ='
Due at '.
- POSIX::strftime($format,localtime($date)).
- ' |
';
+ if ($date) {
+ $result ='Due at '.
+ POSIX::strftime($format,localtime($date)).
+ ' |
';
+ } else {
+ $result ='';
+ }
+ }
+ return $result;
+}
+
+sub end_displayduedate {
+}
+
+sub start_displaytitle {
+ my ($target,$token,$parstack,$parser,$safeeval)=@_;
+ my $result='';
+ if ($target eq 'web') {
+ $result="$Apache::lonhomework::name
";
}
return $result;
}
-sub end_duedatebox {
+sub end_displaytitle {
}
1;