version 1.128.2.3, 2009/11/16 20:26:04
|
version 1.133, 2009/11/15 21:31:23
|
Line 688 sub readmap {
|
Line 688 sub readmap {
|
'Could not untie coursemap hash '.$fn.' for '.$uri.'.</font>'); |
'Could not untie coursemap hash '.$fn.' for '.$uri.'.</font>'); |
} |
} |
} |
} |
flock(LOCKFILE,LOCK_UN); |
flock(LOCKFILE,LOCK_UN); |
} |
} |
unless ($lock && $tiedhash && $tiedparmhash) { |
unless ($lock && $tiedhash && $tiedparmhash) { |
# if we are here it is likely because we are already trying to |
# if we are here it is likely because we are already trying to |
# initialize the course in another child, busy wait trying to |
# initialize the course in another child, busy wait trying to |
# tie the hashes for the next 90 seconds, if we succeed forward |
# tie the hashes for the next 90 seconds, if we succeed forward |
Line 703 sub readmap {
|
Line 703 sub readmap {
|
} |
} |
if ($tiedhash) { |
if ($tiedhash) { |
unless($untiedhash) { |
unless($untiedhash) { |
untie(%hash); |
untie(%hash); |
} |
} |
} |
} |
if ($tiedparmhash) { |
if ($tiedparmhash) { |
Line 711 sub readmap {
|
Line 711 sub readmap {
|
untie(%parmhash); |
untie(%parmhash); |
} |
} |
} |
} |
&Apache::lonnet::logthis('<font color="blue">WARNING: '. |
&Apache::lonnet::logthis('<font color="blue">WARNING: '. |
"Could not tie coursemap $fn for $uri.</font>"); |
"Could not tie coursemap $fn for $uri.</font>"); |
$tiedhash = ''; |
$tiedhash = ''; |
$tiedparmhash = ''; |
$tiedparmhash = ''; |
my $i=0; |
my $i=0; |
Line 728 sub readmap {
|
Line 728 sub readmap {
|
if (-e "$fn.state") { |
if (-e "$fn.state") { |
$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}); |
$untiedhash = untie(%hash); |
$untiedhash = untie(%hash); |
$untiedparmhash = untie(%parmhash); |
$untiedparmhash = untie(%parmhash); |
$gotstate = 1; |
$gotstate = 1; |
last; |
last; |
} |
} |
$untiedparmhash = untie(%parmhash); |
$untiedparmhash = untie(%parmhash); |
} |
} |
$untiedhash = untie(%hash); |
$untiedhash = untie(%hash); |
} |
} |
} |
} |
} |
} |
if ($lock) { |
if ($lock) { |
flock(LOCKFILE,LOCK_UN); |
flock(LOCKFILE,LOCK_UN); |
Line 1002 of course for user.
|
Line 1002 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. |
|
|
|
=head1 OTHER SUBROUTINES |
|
|
|
=over 4 |
=over |
|
|
=item * |
=item loadmap() |
|
|
loadmap() : Loads map from disk |
Loads map from disk |
|
|
=item * |
=item simplify() |
|
|
simplify() : Simplify expression |
Simplify expression |
|
|
=item * |
=item traceroute() |
|
|
traceroute() : Build condition hash |
Build condition hash |
|
|
=item * |
=item accinit() |
|
|
accinit() : Cascading conditions, quick access, parameters |
Cascading conditions, quick access, parameters |
|
|
=item * |
=item readmap() |
|
|
readmap() : Read map and all submaps |
Read map and all submaps |
|
|
=item * |
=item evalstate() |
|
|
evalstate() : Evaluate state string |
Evaluate state string |
|
|
=back |
=back |
|
|