[LON-CAPA-cvs] cvs: loncom /homework lonhomework.pm

[albertel]

albertel		Wed Jan 28 10:45:44 2004 EDT

  Modified files:              
    /loncom/homework	lonhomework.pm 
  Log:
  - BUG#2490, CC/IN should be allowed to see problems from anywhere even if acc is set
  
  
Index: loncom/homework/lonhomework.pm
diff -u loncom/homework/lonhomework.pm:1.160 loncom/homework/lonhomework.pm:1.161
--- loncom/homework/lonhomework.pm:1.160	Wed Jan 14 22:44:01 2004
+++ loncom/homework/lonhomework.pm	Wed Jan 28 10:45:44 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.160 2004/01/15 03:44:01 www Exp $
+# $Id: lonhomework.pm,v 1.161 2004/01/28 15:45:44 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -211,7 +211,7 @@
     &Apache::lonxml::debug("time:".time);
     
     my $allowed=&check_ip_acc(&Apache::lonnet::EXT("resource.$id.acc"));
-    if (!$allowed) {
+    if (!$allowed && ($Apache::lonhomework::browse ne 'F')) {
 	$status='INVALID_ACCESS';
 	$date=&mt("can not be accessed from your location.");
 	return($status,$date);
@@ -557,6 +557,7 @@
     my ($request,$file) = @_;
 
     my (@targets) = &get_target();
+    &Apache::lonhomework::showhashsubset(\%ENV,'form.');
     &Apache::lonxml::debug("Running targets ".join(':',@targets));
     foreach my $target (@targets) {
 	#my $t0 = [&gettimeofday()];
@@ -705,7 +706,6 @@
     my $request=$_[0];
     
     $Apache::lonxml::debug=$ENV{'user.debug'};
-
     if (&setupheader($request)) { return OK; }
     $ENV{'request.uri'}=$request->uri;