--- loncom/homework/lonhomework.pm 2005/12/21 19:05:05 1.231
+++ loncom/homework/lonhomework.pm 2006/02/10 23:44:53 1.234
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Homework handler
#
-# $Id: lonhomework.pm,v 1.231 2005/12/21 19:05:05 albertel Exp $
+# $Id: lonhomework.pm,v 1.234 2006/02/10 23:44:53 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -198,6 +198,8 @@ sub check_ip_acc {
my $ip=$ENV{'REMOTE_ADDR'};
my $name;
foreach my $pattern (split(',',$acc)) {
+ $pattern =~ s/^\s*//;
+ $pattern =~ s/\s*$//;
if ($pattern =~ /\*$/) {
#35.8.*
$pattern=~s/\*//;
@@ -765,7 +767,7 @@ sub editxmlmode {
&Apache::structuretags::remember_problem_state().'
-
+
@@ -988,15 +990,6 @@ sub handler {
&Apache::lonxml::debug("Problem Mode ".$env{'form.problemmode'});
my ($symb) = &Apache::lonxml::whichuser();
&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 ( -e $file ) {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},