version 1.93, 2005/06/29 11:57:17
|
version 1.94, 2005/07/14 21:30:24
|
Line 128 sub loadmap {
|
Line 128 sub loadmap {
|
# Successfully got file, parse it |
# Successfully got file, parse it |
|
|
my $parser = HTML::TokeParser->new(\$instr); |
my $parser = HTML::TokeParser->new(\$instr); |
|
#$parser->attr_encoded(1); |
my $token; |
my $token; |
|
|
my $linkpc=0; |
my $linkpc=0; |
Line 590 sub readmap {
|
Line 591 sub readmap {
|
} |
} |
# ----------------------------------------------- Close hashes to finally store |
# ----------------------------------------------- Close hashes to finally store |
# --------------------------------- Routine must pass this point, no early outs |
# --------------------------------- Routine must pass this point, no early outs |
|
$hash{'first_url'}=$retfurl; |
unless ((untie(%hash)) && (untie(%parmhash))) { |
unless ((untie(%hash)) && (untie(%parmhash))) { |
&Apache::lonnet::logthis("<font color=blue>WARNING: ". |
&Apache::lonnet::logthis("<font color=blue>WARNING: ". |
"Could not untie coursemap $fn for $uri.</font>"); |
"Could not untie coursemap $fn for $uri.</font>"); |