loncom/interface/lonwhatsnew.pm - diff

Return to lonwhatsnew.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.51, 2006/03/04 05:59:01	version 1.52, 2006/03/15 19:41:26
Line 183 sub display_main_box {	Line 183 sub display_main_box {
&display_actions_box($r,$tabbg,$command,$refpage,\%threshold_titles,	&display_actions_box($r,$tabbg,$command,$refpage,\%threshold_titles,
\%interval_titles,\%initpage,$cdom,$crs,$checkallowed);	\%interval_titles,\%initpage,$cdom,$crs,$checkallowed);
}	}
	my $end_page = &Apache::loncommon::end_page();
$r->print(<<END_OF_BLOCK);	$r->print(<<END_OF_BLOCK);
</td>	</td>
</tr>	</tr>
</table><br />	</table><br />
</body>	$end_page
</html>
END_OF_BLOCK	END_OF_BLOCK
}	}

Line 201 END_OF_BLOCK	Line 201 END_OF_BLOCK

sub display_header {	sub display_header {
my ($command,$checkallowed) = @_;	my ($command,$checkallowed) = @_;
my $html=&Apache::lonxml::xmlbegin();
my $bodytag=&Apache::loncommon::bodytag('Course Action Items');
my $scripttag;	my $scripttag;
unless ($command eq 'chgthreshold' \|\| $command eq 'chginterval') {	unless ($command eq 'chgthreshold' \|\| $command eq 'chginterval') {
$scripttag = <<"END";	$scripttag = <<"END";
Line 226 END	Line 225 END
</script>	</script>
';	';
}	}
return(<<ENDHEAD);	return &Apache::loncommon::start_page('Course Action Items',$scripttag);
$html
<head>
<title>Course Action Items</title>
$scripttag
</head>
$bodytag
ENDHEAD
}	}

#-------------------------------	#-------------------------------