loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.232, 2005/12/22 22:06:54	version 1.234, 2006/02/10 23:44:53
Line 198 sub check_ip_acc {	Line 198 sub check_ip_acc {
my $ip=$ENV{'REMOTE_ADDR'};	my $ip=$ENV{'REMOTE_ADDR'};
my $name;	my $name;
foreach my $pattern (split(',',$acc)) {	foreach my $pattern (split(',',$acc)) {
	$pattern =~ s/^\s*//;
	$pattern =~ s/\s*$//;
if ($pattern =~ /\*$/) {	if ($pattern =~ /\*$/) {
#35.8.*	#35.8.*
$pattern=~s/\*//;	$pattern=~s/\*//;
Line 988 sub handler {	Line 990 sub handler {
&Apache::lonxml::debug("Problem Mode ".$env{'form.problemmode'});	&Apache::lonxml::debug("Problem Mode ".$env{'form.problemmode'});
my ($symb) = &Apache::lonxml::whichuser();	my ($symb) = &Apache::lonxml::whichuser();
&Apache::lonxml::debug('symb is '.$symb);	&Apache::lonxml::debug('symb is '.$symb);
if ($env{'request.state'} eq "construct" \|\| $symb eq '') {
if ($env{'form.resetdata'} eq &mt('Reset Submissions') \|\|
$env{'form.resetdata'} eq &mt('New Problem Variation') \|\|
$env{'form.newrandomization'} eq &mt('New Randomization')) {
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
&Apache::lonnet::tmpreset($symb,'',$domain,$name);
&Apache::lonxml::debug("Attempt reset");
}
}
if ($env{'request.state'} eq "construct") {	if ($env{'request.state'} eq "construct") {
if ( -e $file ) {	if ( -e $file ) {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},