loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.415, 2006/07/11 09:44:04	version 1.415.2.1, 2006/10/04 19:50:43
Line 1014 sub store_counter {	Line 1014 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 1025 sub store_counter {	Line 1025 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 1329 $cleanbut	Line 1329 $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 />