version 1.3, 2006/12/05 02:55:55
|
version 1.5, 2007/01/16 21:18:08
|
Line 29
|
Line 29
|
package LONCAPA::map; |
package LONCAPA::map; |
|
|
use HTML::TokeParser; |
use HTML::TokeParser; |
|
use HTML::Entities(); |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use File::Copy; |
use File::Copy; |
Line 476 sub loadmap {
|
Line 477 sub loadmap {
|
if ($instr eq -2) { |
if ($instr eq -2) { |
$errtext.='Map not loaded: An error occured while trying to load the map.'; |
$errtext.='Map not loaded: An error occured while trying to load the map.'; |
} elsif ($instr eq '-1') { |
} elsif ($instr eq '-1') { |
$errtext.=&mt('Map not loaded: The file [_1] does not exist.',$fn); |
# Map doesn't exist |
} elsif ($instr) { |
} elsif ($instr) { |
my $parser = HTML::TokeParser->new(\$instr); |
my $parser = HTML::TokeParser->new(\$instr); |
my $token; |
my $token; |
Line 643 sub savemap {
|
Line 644 sub savemap {
|
$outstr.=' type="'.$comp[3].'"'; |
$outstr.=' type="'.$comp[3].'"'; |
} |
} |
if ($comp[0] ne '') { |
if ($comp[0] ne '') { |
$outstr.=' title="'.$comp[0].'"'; |
$outstr.=' title="'.&HTML::Entities::encode($comp[0]).'"'; |
} |
} |
$outstr.=" />\n"; |
$outstr.=" />\n"; |
} elsif ($comp[$#comp] eq 'cond') { |
} elsif ($comp[$#comp] eq 'cond') { |