version 1.8, 2001/04/30 15:44:44
|
version 1.13, 2001/07/03 22:37:37
|
Line 8
|
Line 8
|
# 7/1 Gerd Kortemeyer) |
# 7/1 Gerd Kortemeyer) |
# 7/1,7/3,7/4,7/7,7/8,7/10,7/26,10/2 Gerd Kortemeyer |
# 7/1,7/3,7/4,7/7,7/8,7/10,7/26,10/2 Gerd Kortemeyer |
# 4/30/2001 Scott Harrison |
# 4/30/2001 Scott Harrison |
|
# 5/3,06/25,07/03 Gerd Kortemeyer |
|
|
package Apache::lonratsrv; |
package Apache::lonratsrv; |
|
|
Line 143 sub loadmap {
|
Line 144 sub loadmap {
|
} else { |
} else { |
$outstr.=':0'; |
$outstr.=':0'; |
} |
} |
|
# ------------------------------------------------------------------- Parameter |
|
} elsif ($token->[1] eq 'param') { |
|
$outstr.='<&>objparms<:>'.$token->[2]->{'to'}.'<:>'. |
|
$token->[2]->{'type'}.'___'.$token->[2]->{'name'} |
|
.'___'.$token->[2]->{'value'}; |
} elsif ($graphmode) { |
} elsif ($graphmode) { |
# --------------------------------------------- All other tags (graphical only) |
# --------------------------------------------- All other tags (graphical only) |
$outstr.='<&>'.$token->[1]; |
$outstr.='<&>'.$token->[1]; |
Line 168 sub loadmap {
|
Line 174 sub loadmap {
|
|
|
sub savemap { |
sub savemap { |
my ($fn,$errtext)=@_; |
my ($fn,$errtext)=@_; |
|
my %alltypes; |
|
my %allvalues; |
if (($fn=~/\.sequence$/) || |
if (($fn=~/\.sequence$/) || |
($fn=~/\.page$/)) { |
($fn=~/\.page$/)) { |
|
|
Line 226 sub savemap {
|
Line 234 sub savemap {
|
} |
} |
$outstr.=' index="'.$parts[1].'"'; |
$outstr.=' index="'.$parts[1].'"'; |
$outstr.="></link>\n"; |
$outstr.="></link>\n"; |
|
} elsif ($parts[0] eq 'objparms') { |
|
undef %alltypes; |
|
undef %allvalues; |
|
map { |
|
my ($type,$name,$value)=split(/\_\_\_/,$_); |
|
$alltypes{$name}=$type; |
|
$allvalues{$name}=$value; |
|
} split(/:/,$parts[$#parts]); |
|
map { |
|
$outstr.='<param to="'.$parts[1].'" type="' |
|
.$alltypes{$_}.'" name="'.$_ |
|
.'" value="'.$allvalues{$_}.'">' |
|
."</param>\n"; |
|
} keys %allvalues; |
} elsif (($parts[0] ne '') && ($graphdef)) { |
} elsif (($parts[0] ne '') && ($graphdef)) { |
# ------------------------------------------------------------- Graphical input |
# ------------------------------------------------------------- Graphical input |
$outstr.='<'.$parts[0]; |
$outstr.='<'.$parts[0]; |
Line 271 sub handler {
|
Line 293 sub handler {
|
my $fn=$r->filename; |
my $fn=$r->filename; |
my $errtext=''; |
my $errtext=''; |
my $outtext=''; |
my $outtext=''; |
my $onload=''; |
|
|
|
if ($mode ne 'loadonly') { |
if ($mode ne 'loadonly') { |
$errtext=&savemap($fn,$errtext); |
$errtext=&savemap($fn,$errtext); |
# $onload='onLoad="parent.code.srvloaded();"'; |
|
} |
} |
($outtext,$errtext)=&loadmap($fn,$errtext); |
($outtext,$errtext)=&loadmap($fn,$errtext); |
|
|
Line 286 sub handler {
|
Line 306 sub handler {
|
<input type=hidden name=output value="$outtext"> |
<input type=hidden name=output value="$outtext"> |
</form> |
</form> |
<script> |
<script> |
parent.code.srvloaded(); |
parent.flag=1; |
</script> |
</script> |
ENDDOCUMENT |
ENDDOCUMENT |
if ($errtext ne '') { |
if ($errtext ne '') { |
Line 303 ENDSCRIPT
|
Line 323 ENDSCRIPT
|
|
|
1; |
1; |
__END__ |
__END__ |
|
|
|
|
|
|
|
|
|
|
|
|
|
|