version 1.32, 2005/06/13 20:23:53
|
version 1.35, 2006/04/04 15:32:12
|
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'; |
Line 345 sub handler {
|
Line 346 sub handler {
|
} |
} |
($outtext,$errtext,$infotext)=&loadmap($fn,$errtext,$infotext); |
($outtext,$errtext,$infotext)=&loadmap($fn,$errtext,$infotext); |
|
|
|
my $start_page = |
|
&Apache::loncommon::start_page('Alert',undef, |
|
{'only_body' => 1, |
|
'bgcolor' => '#FFFFFF',}); |
|
my $end_page = |
|
&Apache::loncommon::end_page(); |
|
|
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
$start_page |
<body bgcolor="#FFFFFF"> |
<form name="storage" method="post" action="$url"> |
<form name=storage method=post action="$url"> |
<input type="hidden" name="output" value="$outtext" /> |
<input type=hidden name=output value="$outtext"> |
|
</form> |
</form> |
<script> |
<script type ="text/javascript"> |
parent.flag=1; |
parent.flag=1; |
</script> |
</script> |
ENDDOCUMENT |
ENDDOCUMENT |
if (($errtext ne '') || ($infotext ne '')) { |
if (($errtext ne '') || ($infotext ne '')) { |
$r->print(<<ENDSCRIPT); |
$r->print(<<ENDSCRIPT); |
<script> |
<script type="text/javascript"> |
alert("$infotext $errtext"); |
alert("$infotext $errtext"); |
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |
} |
} |
$r->print("</body>\n</html>\n"); |
$r->print($end_page); |
|
|
return OK; |
return OK; |
} |
} |