--- loncom/homework/outputtags.pm 2001/01/11 16:11:16 1.2
+++ loncom/homework/outputtags.pm 2001/01/15 14:57:13 1.5
@@ -13,7 +13,7 @@ sub start_displayduedate {
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);
@@ -24,9 +24,13 @@ sub start_displayduedate {
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;
}
@@ -36,7 +40,11 @@ sub end_displayduedate {
sub start_displaytitle {
my ($target,$token,$parstack,$parser,$safeeval)=@_;
- return "$Apache::lonhomework::name
";
+ my $result='';
+ if ($target eq 'web') {
+ $result="$Apache::lonhomework::name
";
+ }
+ return $result;
}
sub end_displaytitle {