version 1.32, 2005/06/13 20:23:53
|
version 1.34, 2005/10/31 18:52:10
|
Line 38 use Apache::lonnet;
|
Line 38 use Apache::lonnet;
|
|
|
sub qtescape { |
sub qtescape { |
my $str=shift; |
my $str=shift; |
|
$str=~s/\:/\:/g; |
$str=~s/\&\#58\;/\:/g; |
$str=~s/\&\#58\;/\:/g; |
$str=~s/\&\#39\;/\'/g; |
$str=~s/\&\#39\;/\'/g; |
$str=~s/\&\#44\;/\,/g; |
$str=~s/\&\#44\;/\,/g; |
Line 92 sub loadmap {
|
Line 93 sub loadmap {
|
} elsif ($token->[1] eq 'resource') { |
} elsif ($token->[1] eq 'resource') { |
# -------------------------------------------------------------------- Resource |
# -------------------------------------------------------------------- Resource |
$outstr.='<&>objcont'; |
$outstr.='<&>objcont'; |
if ($token->[2]->{'id'}) { |
if (defined($token->[2]->{'id'})) { |
$outstr.='<:>'.$token->[2]->{'id'}; |
$outstr.='<:>'.$token->[2]->{'id'}; |
if ($obj[$token->[2]->{'id'}]==1) { |
if ($obj[$token->[2]->{'id'}]==1) { |
$errtext.='Error: multiple use of ID '. |
$errtext.='Error: multiple use of ID '. |
Line 113 sub loadmap {
|
Line 114 sub loadmap {
|
} else { |
} else { |
$outstr.='false:'; |
$outstr.='false:'; |
} |
} |
if ($token->[2]->{'type'}) { |
if (defined($token->[2]->{'type'})) { |
$outstr.=$token->[2]->{'type'}.':'; |
$outstr.=$token->[2]->{'type'}.':'; |
} else { |
} else { |
$outstr.='normal:'; |
$outstr.='normal:'; |
Line 126 sub loadmap {
|
Line 127 sub loadmap {
|
} elsif ($token->[1] eq 'condition') { |
} elsif ($token->[1] eq 'condition') { |
# ------------------------------------------------------------------- Condition |
# ------------------------------------------------------------------- Condition |
$outstr.='<&>objcont'; |
$outstr.='<&>objcont'; |
if ($token->[2]->{'id'}) { |
if (defined($token->[2]->{'id'})) { |
$outstr.='<:>'.$token->[2]->{'id'}; |
$outstr.='<:>'.$token->[2]->{'id'}; |
if ($obj[$token->[2]->{'id'}]==1) { |
if ($obj[$token->[2]->{'id'}]==1) { |
$errtext.='Error: multiple use of ID '. |
$errtext.='Error: multiple use of ID '. |
Line 141 sub loadmap {
|
Line 142 sub loadmap {
|
} |
} |
$outstr.='<:>'; |
$outstr.='<:>'; |
$outstr.=qtunescape($token->[2]->{'value'}).':'; |
$outstr.=qtunescape($token->[2]->{'value'}).':'; |
if ($token->[2]->{'type'}) { |
if (defined($token->[2]->{'type'})) { |
$outstr.=$token->[2]->{'type'}.':'; |
$outstr.=$token->[2]->{'type'}.':'; |
} else { |
} else { |
$outstr.='normal:'; |
$outstr.='normal:'; |
Line 151 sub loadmap {
|
Line 152 sub loadmap {
|
# ----------------------------------------------------------------------- Links |
# ----------------------------------------------------------------------- Links |
$outstr.='<&>objlinks'; |
$outstr.='<&>objlinks'; |
|
|
if ($token->[2]->{'index'}) { |
if (defined($token->[2]->{'index'})) { |
if ($links[$token->[2]->{'index'}]) { |
if ($links[$token->[2]->{'index'}]) { |
$errtext.='Error: multiple use of link index '. |
$errtext.='Error: multiple use of link index '. |
$token->[2]->{'index'}.'. '; |
$token->[2]->{'index'}.'. '; |
Line 167 sub loadmap {
|
Line 168 sub loadmap {
|
|
|
$outstr.='<:>'.$token->[2]->{'from'}. |
$outstr.='<:>'.$token->[2]->{'from'}. |
':'.$token->[2]->{'to'}; |
':'.$token->[2]->{'to'}; |
if ($token->[2]->{'condition'}) { |
if (defined($token->[2]->{'condition'})) { |
$outstr.=':'.$token->[2]->{'condition'}; |
$outstr.=':'.$token->[2]->{'condition'}; |
} else { |
} else { |
$outstr.=':0'; |
$outstr.=':0'; |