loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.74, 2002/03/29 18:32:46	version 1.76, 2002/04/09 04:46:33
Line 334 sub renderpage {	Line 334 sub renderpage {
&Apache::edit::initialize_edit;	&Apache::edit::initialize_edit;
if ($target eq 'analyze') { %Apache::lonhomework::anaylze=(); }	if ($target eq 'analyze') { %Apache::lonhomework::anaylze=(); }
if ($target eq 'web') {	if ($target eq 'web') {
if (&Apache::lonnet::symbread() eq '') {	my ($symb)=&Apache::lonxml::whichuser();
	if ($symb eq '') {
if ($ENV{'request.state'} eq "construct") {	if ($ENV{'request.state'} eq "construct") {
} else {	} else {
$request->print("Browsing or <a href=\"/adm/ambiguous\">ambiguous</a> reference, submissions ignored<br />");	$request->print("Browsing or <a href=\"/adm/ambiguous\">ambiguous</a> reference, submissions ignored<br />");
Line 359 sub renderpage {	Line 360 sub renderpage {
} else {	} else {
if ($target eq 'analyze') {	if ($target eq 'analyze') {
$result=&Apache::lonnet::hashref2str(\%Apache::lonhomework::analyze);	$result=&Apache::lonnet::hashref2str(\%Apache::lonhomework::analyze);
	undef(%Apache::lonhomework::analyze);
}	}
#my $td=&tv_interval($t0);	#my $td=&tv_interval($t0);
#if ( $Apache::lonxml::debug) {	#if ( $Apache::lonxml::debug) {