loncom/homework/outputtags.pm - diff

Return to outputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.1, 2001/01/11 15:20:58	version 1.3, 2001/01/11 16:33:44
Line 5 use Apache::lonnet;	Line 5 use Apache::lonnet;
use POSIX qw(strftime);	use POSIX qw(strftime);

sub BEGIN {	sub BEGIN {
&Apache::lonxml::register('Apache::outputtags',('duedatebox'));	&Apache::lonxml::register('Apache::outputtags',('displayduedate','displaytitle'));
}	}

	sub start_displayduedate {
sub start_duedatebox {
my ($target,$token,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$parstack,$parser,$safeeval)=@_;
my $result;	my $result;
my $status=$Apache::inputtags::status['-1'];	my $status=$Apache::inputtags::status['-1'];
&Apache::lonxml::debug("got a $status in duedatebox");	&Apache::lonxml::debug("got a $status in duedatebox");
if ($status =~ /CAN.*_ANSWER/) {	if (($status =~ /CAN.*_ANSWER/) && ($target eq 'web')) {
my $args ='';	my $args ='';
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }	if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
my $format = &Apache::run::run("{$args;".'return $format}',$safeeval);	my $format = &Apache::run::run("{$args;".'return $format}',$safeeval);
Line 32 sub start_duedatebox {	Line 31 sub start_duedatebox {
return $result;	return $result;
}	}

sub end_duedatebox {	sub end_displayduedate {
	}

	sub start_displaytitle {
	my ($target,$token,$parstack,$parser,$safeeval)=@_;
	if ($target eq 'web') {
	return "<h1>$Apache::lonhomework::name</h1>";
	}
	}

	sub end_displaytitle {
}	}

1;	1;