loncom/homework/outputtags.pm - diff

Return to outputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/outputtags.pm between versions 1.31 and 1.32

version 1.31, 2003/08/13 18:50:43	version 1.32, 2003/09/08 18:36:39
Line 50 sub start_displayduedate {	Line 50 sub start_displayduedate {
}	}
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");
	my $style = &Apache::lonxml::get_param('style',$parstack,$safeeval);
if (($status =~ /CAN.*_ANSWER/) && ($target eq 'web')) {	if (($status =~ /CAN.*_ANSWER/) && ($target eq 'web')) {
# my $format = &Apache::lonxml::get_param('format',$parstack,$safeeval);	# my $format = &Apache::lonxml::get_param('format',$parstack,$safeeval);
# if ($format eq '') {	# if ($format eq '') {
Line 59 sub start_displayduedate {	Line 60 sub start_displayduedate {
my $id = $Apache::inputtags::part;	my $id = $Apache::inputtags::part;
my $date = &Apache::lonnet::EXT("resource.$id.duedate");	my $date = &Apache::lonnet::EXT("resource.$id.duedate");
&Apache::lonxml::debug("duedatebox found $date for $id");	&Apache::lonxml::debug("duedatebox found $date for $id");
$result ='<table border="on"><tr><td>Due '.	if (lc($style) !~ 'plain') {
&Apache::lonnavmaps::timeToHumanString($date).	$result ='<table border="on"><tr><td>Due '.
	&Apache::lonnavmaps::timeToHumanString($date).
'</td></tr></table>';	'</td></tr></table>';
	} else {
	$result='Due '.&Apache::lonnavmaps::timeToHumanString($date);
	}
# } else {	# } else {
# $result ='<table border="on"><tr><td>No due date set.</td></tr></table>';	# $result ='<table border="on"><tr><td>No due date set.</td></tr></table>';
# }	# }
Line 89 sub start_displaytitle {	Line 94 sub start_displaytitle {
$Apache::outputtags::showonce{'displayduetitle'}=1;	$Apache::outputtags::showonce{'displayduetitle'}=1;
}	}
my $name=&Apache::structuretags::get_resource_name();	my $name=&Apache::structuretags::get_resource_name();
	my $style = &Apache::lonxml::get_param('style',$parstack,$safeeval);
if ($target eq 'web') {	if ($target eq 'web') {
$result="<h1>$name</h1>";	$result=$name;
	if (lc($style) !~ 'plain') { $result="<h1>$name</h1>"; }
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result=&Apache::edit::tag_start($target,$token);	$result=&Apache::edit::tag_start($target,$token);
$result.='</td></tr>';	$result.='</td></tr>';
$result.=&Apache::edit::end_table();	$result.=&Apache::edit::end_table();
} elsif ($target eq 'tex' and $Apache::lonhomework::type ne 'exam') {	} elsif ($target eq 'tex' and $Apache::lonhomework::type ne 'exam') {
$name=&Apache::lonxml::latex_special_symbols($name);	$name=&Apache::lonxml::latex_special_symbols($name);
$result='\vskip 0 mm\noindent\textbf{'.$name.'}\vskip 0 mm';	if (lc($style) !~ 'plain') {
	$result='\vskip 0 mm\noindent\textbf{'.$name.'}\vskip 0 mm';
	} else {
	$result=$name;
	}
}	}
return $result;	return $result;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.31
changed lines
	Added in v.1.32