version 1.126, 2007/11/30 19:14:14
|
version 1.129, 2008/11/18 19:13:37
|
Line 210 sub loadmap {
|
Line 210 sub loadmap {
|
$hash{'type_'.$from_rid}='finish'; |
$hash{'type_'.$from_rid}='finish'; |
} |
} |
|
|
my $parser = HTML::TokeParser->new(\$instr); |
$parser = HTML::TokeParser->new(\$instr); |
$parser->attr_encoded(1); |
$parser->attr_encoded(1); |
# last parse out the mapalias params so as to ignore anything |
# last parse out the mapalias params so as to ignore anything |
# refering to non-existant resources |
# refering to non-existant resources |
Line 574 sub accinit {
|
Line 574 sub accinit {
|
my $courseuri=$uri; |
my $courseuri=$uri; |
$courseuri=~s/^\/res\///; |
$courseuri=~s/^\/res\///; |
&Apache::lonnet::delenv('(acc\.|httpref\.)'); |
&Apache::lonnet::delenv('(acc\.|httpref\.)'); |
&Apache::lonnet::appenv(%acchash); |
&Apache::lonnet::appenv(\%acchash); |
} |
} |
|
|
# ---------------- Selectively delete from randompick maps and hidden url parms |
# ---------------- Selectively delete from randompick maps and hidden url parms |
Line 630 sub hiddenurls {
|
Line 630 sub hiddenurls {
|
} |
} |
# --------------------------------------- append randomout entry to environment |
# --------------------------------------- append randomout entry to environment |
if ($randomoutentry) { |
if ($randomoutentry) { |
&Apache::lonnet::appenv('acc.randomout' => $randomoutentry); |
&Apache::lonnet::appenv({'acc.randomout' => $randomoutentry}); |
} |
} |
} |
} |
|
|
Line 678 sub readmap {
|
Line 678 sub readmap {
|
$hash{'is_map_0.0'}=1; |
$hash{'is_map_0.0'}=1; |
loadmap($uri,'0.0'); |
loadmap($uri,'0.0'); |
if (defined($hash{'map_start_'.$uri})) { |
if (defined($hash{'map_start_'.$uri})) { |
&Apache::lonnet::appenv("request.course.id" => $short, |
&Apache::lonnet::appenv({"request.course.id" => $short, |
"request.course.fn" => $fn, |
"request.course.fn" => $fn, |
"request.course.uri" => $uri); |
"request.course.uri" => $uri}); |
$env{'request.course.id'}=$short; |
$env{'request.course.id'}=$short; |
&traceroute('0',$hash{'map_start_'.$uri},'&'); |
&traceroute('0',$hash{'map_start_'.$uri},'&'); |
&accinit($uri,$short,$fn); |
&accinit($uri,$short,$fn); |
Line 751 sub readmap {
|
Line 751 sub readmap {
|
(tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640))) { |
(tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640))) { |
if (tie(%parmhash,'GDBM_File',$fn.'_parms.db',&GDBM_READER(),0640)) { |
if (tie(%parmhash,'GDBM_File',$fn.'_parms.db',&GDBM_READER(),0640)) { |
$retfurl='/adm/navmaps'; |
$retfurl='/adm/navmaps'; |
&Apache::lonnet::appenv("request.course.id" => $short, |
&Apache::lonnet::appenv({"request.course.id" => $short, |
"request.course.fn" => $fn, |
"request.course.fn" => $fn, |
"request.course.uri" => $uri); |
"request.course.uri" => $uri}); |
untie(%hash); |
untie(%hash); |
untie(%parmhash); |
untie(%parmhash); |
last; |
last; |
Line 814 sub evalstate {
|
Line 814 sub evalstate {
|
} |
} |
} |
} |
} |
} |
&Apache::lonnet::appenv('user.state.'.$env{'request.course.id'} => $state); |
&Apache::lonnet::appenv({'user.state.'.$env{'request.course.id'} => $state}); |
return $state; |
return $state; |
} |
} |
|
|
Line 877 of course for user.
|
Line 877 of course for user.
|
This is part of the LearningOnline Network with CAPA project |
This is part of the LearningOnline Network with CAPA project |
described at http://www.lon-capa.org. |
described at http://www.lon-capa.org. |
|
|
=head1 HANDLER SUBROUTINE |
=head1 SUBROUTINES |
|
|
There is no handler subroutine. |
=over |
|
|
=head1 OTHER SUBROUTINES |
=item loadmap() |
|
|
=over 4 |
Loads map from disk |
|
|
=item * |
=item simplify() |
|
|
loadmap() : Loads map from disk |
Simplify expression |
|
|
=item * |
=item traceroute() |
|
|
simplify() : Simplify expression |
Build condition hash |
|
|
=item * |
=item accinit() |
|
|
traceroute() : Build condition hash |
Cascading conditions, quick access, parameters |
|
|
=item * |
=item readmap() |
|
|
accinit() : Cascading conditions, quick access, parameters |
Read map and all submaps |
|
|
=item * |
=item evalstate() |
|
|
readmap() : Read map and all submaps |
Evaluate state string |
|
|
=item * |
|
|
|
evalstate() : Evaluate state string |
|
|
|
=back |
=back |
|
|