version 1.183, 2004/11/13 20:40:32
|
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' && |
|
$ENV{'form.devalidatecourseresdata'} eq 'on') { |
|
my (undef,$courseid) = &Apache::lonxml::whichuser(); |
|
&Apache::lonnet::devalidatecourseresdata($ENV{"course.$courseid.num"}, |
|
$ENV{"course.$courseid.domain"}); |
|
} |
return '' |
return '' |
} |
} |
|
|
Line 519 sub analyze {
|
Line 544 sub analyze {
|
foreach my $part (sort(keys(%allparts))) { |
foreach my $part (sort(keys(%allparts))) { |
if (defined(@{ $overall{$part.'.answer'} })) { |
if (defined(@{ $overall{$part.'.answer'} })) { |
my $num_cols=scalar(@{ $overall{$part.'.answer'}->[0] }); |
my $num_cols=scalar(@{ $overall{$part.'.answer'}->[0] }); |
$request->print('<table><tr><td colspan="'.($num_cols+1).'">'.&mt('Part').' '.$part.'</td></tr>'); |
$request->print('<table><tr><th colspan="'.($num_cols+1).'">'.&mt('Part').' '.$part.'</th></tr>'); |
my %frequency; |
my %frequency; |
foreach my $answer (sort {$a->[0] <=> $b->[0]} (@{ $overall{$part.'.answer'} })) { |
foreach my $answer (sort {$a->[0] <=> $b->[0]} (@{ $overall{$part.'.answer'} })) { |
$frequency{join("\0",@{ $answer })}++; |
$frequency{join("\0",@{ $answer })}++; |
} |
} |
$request->print('<tr><td colspan="'.($num_cols).'">'.&mt('Answer').'</td><td>'.&mt('Frequency').'</td></tr>'); |
$request->print('<tr><th colspan="'.($num_cols).'">'.&mt('Answer').'</th><th>'.&mt('Frequency').'</th></tr>'); |
foreach my $answer (sort {(split("\0",$a))[0] <=> (split("\0",$b))[0]} (keys(%frequency))) { |
foreach my $answer (sort {(split("\0",$a))[0] <=> (split("\0",$b))[0]} (keys(%frequency))) { |
$request->print('<tr><td align="right">'. |
$request->print('<tr><td align="right">'. |
join('</td><td align="right">',split("\0",$answer)). |
join('</td><td align="right">',split("\0",$answer)). |
Line 602 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 714 sub newproblem {
|
Line 742 sub newproblem {
|
$errormsg='<p><font color="red">'.&mt('You did not select a template.').'</font></p>'."\n"; |
$errormsg='<p><font color="red">'.&mt('You did not select a template.').'</font></p>'."\n"; |
} |
} |
my $instructions; |
my $instructions; |
my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1); |
my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef, |
|
($ENV{'environment.remote'} ne 'off')); |
if ($templatelist) { $instructions=&mt(", select a template from the pull-down menu below.").'<br />'.&mt("Then");} |
if ($templatelist) { $instructions=&mt(", select a template from the pull-down menu below.").'<br />'.&mt("Then");} |
my %lt=&Apache::lonlocal::texthash( 'create' => 'Creating a new', |
my %lt=&Apache::lonlocal::texthash( 'create' => 'Creating a new', |
'resource' => 'resource', |
'resource' => 'resource', |
Line 767 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 796 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); |