version 1.54, 2003/10/21 20:40:10
|
version 1.57, 2004/08/29 18:34:36
|
Line 45 use Apache::Constants qw(:common :http);
|
Line 45 use Apache::Constants qw(:common :http);
|
use Apache::lonnet(); |
use Apache::lonnet(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonxml(); |
use Apache::lonxml(); |
|
use Apache::lonlocal; |
use Apache::lonmenu; |
use Apache::lonmenu; |
use HTML::TokeParser; |
use HTML::TokeParser; |
use GDBM_File; |
use GDBM_File; |
Line 72 sub euclid {
|
Line 73 sub euclid {
|
sub tracetable { |
sub tracetable { |
my ($sofar,$rid,$beenhere)=@_; |
my ($sofar,$rid,$beenhere)=@_; |
my $further=$sofar; |
my $further=$sofar; |
|
my $randomout=0; |
|
if ($ENV{'request.role'} =~ /^st/) { |
|
$randomout = $hash{'randomout_'.$rid}; |
|
} |
unless ($beenhere=~/\&$rid\&/) { |
unless ($beenhere=~/\&$rid\&/) { |
$beenhere.=$rid.'&'; |
$beenhere.=$rid.'&'; |
|
unless ($randomout) { |
if (defined($hash{'is_map_'.$rid})) { |
if (defined($hash{'is_map_'.$rid})) { |
if ((defined($hash{'map_start_'.$hash{'src_'.$rid}})) && |
if ((defined($hash{'map_start_'.$hash{'src_'.$rid}})) && |
(defined($hash{'map_finish_'.$hash{'src_'.$rid}}))) { |
(defined($hash{'map_finish_'.$hash{'src_'.$rid}}))) { |
my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}}; |
my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}}; |
$sofar= |
$sofar= |
&tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}}, |
&tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}}, |
'&'.$frid.'&'); |
'&'.$frid.'&'); |
$sofar++; |
$sofar++; |
if ($hash{'src_'.$frid}) { |
if ($hash{'src_'.$frid}) { |
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$frid}); |
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$frid}); |
if (($brepriv eq '2') || ($brepriv eq 'F')) { |
if (($brepriv eq '2') || ($brepriv eq 'F')) { |
if (defined($rows[$sofar])) { |
if (defined($rows[$sofar])) { |
$rows[$sofar].='&'.$frid; |
$rows[$sofar].='&'.$frid; |
} else { |
} else { |
$rows[$sofar]=$frid; |
$rows[$sofar]=$frid; |
} |
} |
} |
} |
} |
} |
} |
} |
} else { |
} else { |
$sofar++; |
$sofar++; |
if ($hash{'src_'.$rid}) { |
if ($hash{'src_'.$rid}) { |
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$rid}); |
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$rid}); |
if (($brepriv eq '2') || ($brepriv eq 'F')) { |
if (($brepriv eq '2') || ($brepriv eq 'F')) { |
if (defined($rows[$sofar])) { |
if (defined($rows[$sofar])) { |
$rows[$sofar].='&'.$rid; |
$rows[$sofar].='&'.$rid; |
} else { |
} else { |
$rows[$sofar]=$rid; |
$rows[$sofar]=$rid; |
} |
} |
} |
} |
} |
} |
} |
} |
|
} |
if (defined($hash{'to_'.$rid})) { |
|
my $mincond=1; |
if (defined($hash{'to_'.$rid})) { |
my $next=''; |
my $mincond=1; |
foreach (split(/\,/,$hash{'to_'.$rid})) { |
my $next=''; |
my $thiscond= |
foreach (split(/\,/,$hash{'to_'.$rid})) { |
|
my $thiscond= |
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}}); |
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}}); |
if ($thiscond>=$mincond) { |
if ($thiscond>=$mincond) { |
if ($next) { |
if ($next) { |
$next.=','.$_.':'.$thiscond; |
$next.=','.$_.':'.$thiscond; |
} else { |
} else { |
$next=$_.':'.$thiscond; |
$next=$_.':'.$thiscond; |
} |
} |
if ($thiscond>$mincond) { $mincond=$thiscond; } |
if ($thiscond>$mincond) { $mincond=$thiscond; } |
} |
} |
} |
} |
foreach (split(/\,/,$next)) { |
foreach (split(/\,/,$next)) { |
my ($linkid,$condval)=split(/\:/,$_); |
my ($linkid,$condval)=split(/\:/,$_); |
if ($condval>=$mincond) { |
if ($condval>=$mincond) { |
my $now=&tracetable($sofar,$hash{'goesto_'.$linkid},$beenhere); |
my $now=&tracetable($sofar,$hash{'goesto_'.$linkid},$beenhere); |
if ($now>$further) { $further=$now; } |
if ($now>$further) { $further=$now; } |
} |
} |
} |
} |
|
} |
} |
|
} |
} |
return $further; |
return $further; |
} |
} |
Line 158 sub handler {
|
Line 163 sub handler {
|
my $number_of_columns = 1; |
my $number_of_columns = 1; |
my $requrl=$r->uri; |
my $requrl=$r->uri; |
my $target = $ENV{'form.grade_target'}; |
my $target = $ENV{'form.grade_target'}; |
&Apache::lonnet::logthis("Got a target of $target"); |
# &Apache::lonnet::logthis("Got a target of $target"); |
if ($target eq 'meta') { |
if ($target eq 'meta') { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
Line 234 sub handler {
|
Line 239 sub handler {
|
# --------------------------------------------------------- This is an SSI cell |
# --------------------------------------------------------- This is an SSI cell |
my $prefix=$_.'_'; |
my $prefix=$_.'_'; |
my %posthash=('request.prefix' => $prefix); |
my %posthash=('request.prefix' => $prefix); |
|
if ($ENV{'form.grade_target'} eq 'tex') { |
|
$posthash{'grade_target'}=$ENV{'form.grade_target'}; |
|
$posthash{'textwidth'}=$ENV{'form.textwidth'}; |
|
$posthash{'problem_split'}=$ENV{'form.problem_split'}; |
|
$posthash{'latex_type'}=$ENV{'form.latex_type'}; |
|
$posthash{'rndseed'}=$ENV{'form.rndseed'}; |
|
} |
if (($ENV{'form.'.$prefix.'submit'}) |
if (($ENV{'form.'.$prefix.'submit'}) |
|| ($ENV{'form.all_submit'})) { |
|| ($ENV{'form.all_submit'})) { |
foreach (keys %ENV) { |
foreach (keys %ENV) { |
Line 377 sub handler {
|
Line 389 sub handler {
|
$r->print('<form method="post" action="'. |
$r->print('<form method="post" action="'. |
$requrl.'">'); |
$requrl.'">'); |
} |
} |
} else { |
} elsif ($target eq 'tex') { |
$r->print('\documentclass{article} |
$r->print('\documentclass{article} |
\newcommand{\keephidden}[1]{} |
\newcommand{\keephidden}[1]{} |
\usepackage[dvips]{graphicx} |
\usepackage[dvips]{graphicx} |
Line 402 sub handler {
|
Line 414 sub handler {
|
my $avespan=$lcm/($#colcont+1); |
my $avespan=$lcm/($#colcont+1); |
for ($j=0;$j<=$#colcont;$j++) { |
for ($j=0;$j<=$#colcont;$j++) { |
my $rid=$colcont[$j]; |
my $rid=$colcont[$j]; |
my $metainfo='<a href="'. |
my $metainfo='<a name="'. |
|
&Apache::lonnet::escape(&Apache::lonnet::declutter($hash{'src_'.$rid})).'" />'. |
|
'<a href="'. |
$metalink{$rid}.'" target="LONcatInfo">'. |
$metalink{$rid}.'" target="LONcatInfo">'. |
'<img src="/adm/lonMisc/cat_button.gif" border=0>'. |
'<img src="/adm/lonMisc/cat_button.gif" border=0>'. |
'</img></a><a href="/adm/evaluate?postdata='. |
'</img></a><a href="/adm/evaluate?postdata='. |