version 1.186, 2004/12/03 21:47:38
|
version 1.189, 2004/12/20 17:24:10
|
Line 53 use HTML::Entities();
|
Line 53 use HTML::Entities();
|
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Time::HiRes qw( gettimeofday tv_interval ); |
use Time::HiRes qw( gettimeofday tv_interval ); |
|
use Apache::lonnet(); |
|
|
|
# FIXME - improve commenting |
|
|
|
|
BEGIN { |
BEGIN { |
&Apache::lonxml::register_insert(); |
&Apache::lonxml::register_insert(); |
} |
} |
|
|
|
|
|
# |
|
# Decides what targets to render for. |
|
# Implicit inputs: |
|
# Various session environment variables: |
|
# request.state - published - is a /res/ resource |
|
# uploaded - is a /uploaded/ resource |
|
# contruct - is a /priv/ resource |
|
# form.grade_target - a form parameter requesting a specific target |
sub get_target { |
sub get_target { |
|
&Apache::lonxml::debug("request.state = $ENV{'request.state'}"); |
|
if( defined($ENV{'form.grade_target'})) { |
|
&Apache::lonxml::debug("form.grade_target= $ENV{'form.grade_target'}"); |
|
} else { |
|
&Apache::lonxml::debug("form.grade_target <undefined>"); |
|
} |
if (($ENV{'request.state'} eq "published") || |
if (($ENV{'request.state'} eq "published") || |
($ENV{'request.state'} eq "uploaded")) { |
($ENV{'request.state'} eq "uploaded")) { |
if ( defined($ENV{'form.grade_target'} ) |
if ( defined($ENV{'form.grade_target'} ) |
Line 384 sub setuppermissions {
|
Line 403 sub setuppermissions {
|
$viewgrades = &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}. |
$viewgrades = &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}. |
'/'.$ENV{'request.course.sec'}); |
'/'.$ENV{'request.course.sec'}); |
} |
} |
$Apache::lonhomework::viewgrades = $viewgrades; |
$Apache::lonhomework::viewgrades = $viewgrades; # File global variable...dirt. |
if ($Apache::lonhomework::browse eq 'F' && |
if ($Apache::lonhomework::browse eq 'F' && |
$ENV{'form.devalidatecourseresdata'} eq 'on') { |
$ENV{'form.devalidatecourseresdata'} eq 'on') { |
my (undef,$courseid) = &Apache::lonxml::whichuser(); |
my (undef,$courseid) = &Apache::lonxml::whichuser(); |
Line 608 sub editxmlmode {
|
Line 627 sub editxmlmode {
|
return ''; |
return ''; |
} |
} |
|
|
|
# |
|
# Render the page in whatever target desired. |
|
# |
sub renderpage { |
sub renderpage { |
my ($request,$file) = @_; |
my ($request,$file) = @_; |
|
|
Line 774 sub handler {
|
Line 796 sub handler {
|
my $request=$_[0]; |
my $request=$_[0]; |
|
|
$Apache::lonxml::debug=$ENV{'user.debug'}; |
$Apache::lonxml::debug=$ENV{'user.debug'}; |
if (&setupheader($request)) { return OK; } |
|
$ENV{'request.uri'}=$request->uri; |
$ENV{'request.uri'}=$request->uri; |
&setuppermissions(); |
&setuppermissions(); |
&Apache::lonxml::debug("Permissions:$Apache::lonhomework::browse:$Apache::lonhomework::viewgrades:"); |
&Apache::lonxml::debug("Permissions:$Apache::lonhomework::browse:$Apache::lonhomework::viewgrades:"); |
Line 803 sub handler {
|
Line 824 sub handler {
|
$request->internal_redirect('/adm/ambiguous'); return; |
$request->internal_redirect('/adm/ambiguous'); return; |
} |
} |
} |
} |
|
if (&setupheader($request)) { return OK; } |
|
|
my ($symb) = &Apache::lonxml::whichuser(); |
my ($symb) = &Apache::lonxml::whichuser(); |
&Apache::lonxml::debug('symb is '.$symb); |
&Apache::lonxml::debug('symb is '.$symb); |