rat/map.pm - diff

Return to map.pm CVS log

Up to [LON-CAPA] / rat

version 1.4, 2007/01/03 20:46:04	version 1.6, 2007/01/26 23:37:51
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 439 sub qtescape {	Line 440 sub qtescape {
$str=~s/\&\#58\;/\:/g;	$str=~s/\&\#58\;/\:/g;
$str=~s/\&\#39\;/\'/g;	$str=~s/\&\#39\;/\'/g;
$str=~s/\&\#44\;/\,/g;	$str=~s/\&\#44\;/\,/g;
$str=~s/\"/\&\#34\;/g;	$str=~s/\&\#34\;/\"/g;
return $str;	return $str;
}	}

Line 625 sub savemap {	Line 626 sub savemap {
# --------------------------------------------------------------- Logical input	# --------------------------------------------------------------- Logical input
if (($comp[$#comp] eq 'res') \|\| ($comp[$#comp] eq 'zombie')) {	if (($comp[$#comp] eq 'res') \|\| ($comp[$#comp] eq 'zombie')) {
$comp[0]=qtescape($comp[0]);	$comp[0]=qtescape($comp[0]);
	$comp[0] = &HTML::Entities::encode($comp[0],'&<>"');

$comp[1]=qtescape($comp[1]);	$comp[1]=qtescape($comp[1]);
if ($comp[2] eq 'true') {	if ($comp[2] eq 'true') {
if ($comp[1]!~/^http\:\/\//) {	if ($comp[1]!~/^http\:\/\//) {