loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.328, 2005/12/22 22:06:54	version 1.330, 2006/01/09 20:47:52
Line 719 sub end_problem {	Line 719 sub end_problem {

if (!$Apache::lonxml::metamode) {	if (!$Apache::lonxml::metamode) {
$result = &Apache::lonxml::endredirection(); #started in &start_problem	$result = &Apache::lonxml::endredirection(); #started in &start_problem
	$Apache::lonxml::post_evaluate=0;
}	}

if ($target eq 'tex') {	if ($target eq 'tex') {
Line 1371 sub end_part {	Line 1372 sub end_part {
my $result;	my $result;
if (!$Apache::lonxml::metamode) {	if (!$Apache::lonxml::metamode) {
$result = &Apache::lonxml::endredirection(); # started in &start_part	$result = &Apache::lonxml::endredirection(); # started in &start_part
	$Apache::lonxml::post_evaluate=0;
}	}
if ($target eq 'grade') {	if ($target eq 'grade') {
if (($status eq 'CAN_ANSWER' \|\| $Apache::lonhomework::scantronmode) &&	if (($status eq 'CAN_ANSWER' \|\| $Apache::lonhomework::scantronmode) &&
Line 1584 sub start_simpleeditbutton {	Line 1586 sub start_simpleeditbutton {
my $result='';	my $result='';
if (($env{'form.simple_edit_button'} ne 'off') &&	if (($env{'form.simple_edit_button'} ne 'off') &&
($target eq 'web') &&	($target eq 'web') &&
(&Apache::lonnet::allowed('srm',$env{'request.course.id'}))) {	(&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
my $url=$env{'request.noversionuri'};	my $url=$env{'request.noversionuri'};
$url=~s/\?.*$//;	$url=~s/\?.*$//;
my ($symb) = &Apache::lonxml::whichuser();	my ($symb) = &Apache::lonxml::whichuser();