--- loncom/homework/outputtags.pm 2001/01/11 15:20:58 1.1 +++ loncom/homework/outputtags.pm 2001/01/11 16:33:44 1.3 @@ -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); @@ -32,7 +31,17 @@ sub start_duedatebox { return $result; } -sub end_duedatebox { +sub end_displayduedate { +} + +sub start_displaytitle { + my ($target,$token,$parstack,$parser,$safeeval)=@_; + if ($target eq 'web') { + return "

$Apache::lonhomework::name

"; + } +} + +sub end_displaytitle { } 1;