rat/map.pm - diff

Return to map.pm CVS log

Up to [LON-CAPA] / rat

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') {