loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.420, 2006/09/29 20:36:45	version 1.422, 2006/10/04 19:48:36
Line 1017 sub store_counter {	Line 1017 sub store_counter {
}	}

sub remember_problem_counter {	sub remember_problem_counter {
&Apache::lonnet::transfer_profile_to_env();	&Apache::lonnet::transfer_profile_to_env(undef,undef,1);
$state = $env{'form.counter'};	$state = $env{'form.counter'};
}	}

Line 1028 sub store_counter {	Line 1028 sub store_counter {
}	}
sub get_problem_counter {	sub get_problem_counter {
if ($Apache::lonxml::counter_changed) { &store_counter() }	if ($Apache::lonxml::counter_changed) { &store_counter() }
&Apache::lonnet::transfer_profile_to_env();	&Apache::lonnet::transfer_profile_to_env(undef,undef,1);
return $env{'form.counter'};	return $env{'form.counter'};
}	}
}	}
Line 1336 $cleanbut	Line 1336 $cleanbut
<input type="submit" name="viewmode" accesskey="v" value="$lt{'vi'}" />	<input type="submit" name="viewmode" accesskey="v" value="$lt{'vi'}" />
BUTTONS	BUTTONS
$buttons.=&Apache::lonhtmlcommon::spelllink('xmledit','filecont');	$buttons.=&Apache::lonhtmlcommon::spelllink('xmledit','filecont');
$buttons.=&Apache::lonhtmlcommon::htmlareaselectactive('filecont');
my $editfooter=(<<ENDFOOTER);	my $editfooter=(<<ENDFOOTER);
$initialize	$initialize
<hr />	<hr />