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\:\/\//) { |