loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.217, 2003/10/14 00:21:12	version 1.219, 2003/10/30 20:52:54
Line 84 sub page_start {	Line 84 sub page_start {
if (!defined($found{'html'})) {	if (!defined($found{'html'})) {
$result=&Apache::londefdef::start_html($target,$token,$tagstack,	$result=&Apache::londefdef::start_html($target,$token,$tagstack,
$parstack,$parser,$safeeval);	$parstack,$parser,$safeeval);
$head_tag_start='<head>';	$head_tag_start='<head>'.&Apache::lonmenu::registerurl(undef,$target);
if ($ENV{'request.state'} eq 'published') {
$head_tag_start.=&Apache::lonmenu::registerurl(undef,$target);
}
}	}
my $body_tag_start;	my $body_tag_start;
if (!defined($found{'body'})) {	if (!defined($found{'body'})) {
Line 1118 sub end_startouttext {	Line 1115 sub end_startouttext {
&Apache::edit::editfield($token->[1],$text,"",80,4);	&Apache::edit::editfield($token->[1],$text,"",80,4);
}	}
if ($target eq 'modified') {	if ($target eq 'modified') {
$text=&Apache::lonxml::get_all_text("endouttext",$parser);	$result='<startouttext />'.&Apache::edit::modifiedfield("endouttext",$parser);
$result='<startouttext />'.&Apache::edit::modifiedfield();
}	}
if ($target eq 'tex') {	if ($target eq 'tex') {
$result .= '\noindent ';	$result .= '\noindent ';