--- loncom/homework/lonhomework.pm 2001/02/19 14:53:54 1.38 +++ loncom/homework/lonhomework.pm 2001/02/19 20:35:21 1.39 @@ -146,7 +146,6 @@ sub handler { #setup permissions $Apache::lonhomework::browse= &Apache::lonnet::allowed('bre',$ENV{'request.filename'}); $Apache::lonhomework::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}); - &Apache::lonxml::debug("Permissions:$Apache::lonhomework::browse:$Apache::lonhomework::viewgrades:"); #check if we know where we are if ($ENV{'request.course.fn'} && !&Apache::lonnet::symbread()) { @@ -158,6 +157,7 @@ sub handler { } &Apache::lonhomework::send_header($request); + &Apache::lonxml::debug("Permissions:$Apache::lonhomework::browse:$Apache::lonhomework::viewgrades:"); foreach my $target (@targets) { my $file=&Apache::lonnet::filelocation("",$request->uri); @@ -178,9 +178,9 @@ sub handler { if ($target eq 'web') { if (&Apache::lonnet::symbread() eq '') { if ($ENV{'request.state'} eq "construct") { - $request->print("In construction space, submissions ignored
"); + $request->print("In construction space, submissions ignored
"); } else { - $request->print("Browsing or ambiguous reference, submissions ignored
"); + $request->print("Browsing or ambiguous reference, submissions ignored
"); } } if ($Apache::lonhomework::viewgrades eq 'F') {&createmenu('grade',$request); } @@ -190,7 +190,7 @@ sub handler { foreach $resultkey (sort keys %Apache::lonhomework::history) { &Apache::lonxml::debug("$resultkey ---- $Apache::lonhomework::history{$resultkey}"); } - &Apache::lonxml::debug("\n
restored values^
\n"); + &Apache::lonxml::debug("\n
restored values^
\n"); } my $default=&Apache::lonnet::getfile('/home/httpd/html/res/adm/includes/default_homework.lcpm'); if ($default == -1) { @@ -209,7 +209,7 @@ sub handler { foreach $resultkey (sort keys %Apache::lonhomework::results) { &Apache::lonxml::debug("$resultkey ---- $Apache::lonhomework::results{$resultkey}"); } - &Apache::lonxml::debug("\n
storing values^
\n"); + &Apache::lonxml::debug("\n
storing values^
\n"); } my ($temp) = keys %Apache::lonhomework::results;