--- loncom/homework/outputtags.pm 2001/01/15 14:57:13 1.5 +++ loncom/homework/outputtags.pm 2001/08/13 20:51:04 1.11 @@ -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"; @@ -31,23 +29,41 @@ sub start_displayduedate { } else { $result ='
No due date set.
'; } + } elsif ( $target eq 'edit' ) { + $result=&Apache::edit::tag_start($target,$token, + &Apache::lonxml::description($token)); + $result.=''; + $result.=&Apache::edit::end_table(); } return $result; } sub end_displayduedate { + my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; + my @result; + if ($target eq 'edit') { @result[1]='no'; } + return @result; } 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

"; + } elsif ($target eq 'edit') { + $result=&Apache::edit::tag_start($target,$token, + &Apache::lonxml::description($token)); + $result.=''; + $result.=&Apache::edit::end_table(); } return $result; } sub end_displaytitle { + my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; + my @result; + if ($target eq 'edit') { @result[1]='no'; } + return @result; } 1;