--- loncom/homework/outputtags.pm 2001/04/26 21:27:50 1.6 +++ loncom/homework/outputtags.pm 2001/08/06 20:33:23 1.10 @@ -9,14 +9,12 @@ sub BEGIN { } sub start_displayduedate { - my ($target,$token,$parstack,$parser,$safeeval)=@_; + my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; my $result; my $status=$Apache::inputtags::status['-1']; &Apache::lonxml::debug("got a $status in duedatebox"); if (($status =~ /CAN.*_ANSWER/) && ($target eq 'web')) { - my $args =''; - if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } - my $format = &Apache::run::run("{$args;".'return $format}',$safeeval); + my $format = &Apache::lonxml::get_param('format',$parstack,$safeeval); if ($format eq '') { &Apache::lonxml::debug("using default format"); $format="%c"; @@ -40,7 +38,7 @@ sub end_displayduedate { } sub start_displaytitle { - my ($target,$token,$parstack,$parser,$safeeval)=@_; + my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; my $result=''; if ($target eq 'web') { $result="

$Apache::lonhomework::name

";