version 1.10, 2001/05/03 13:18:49
|
version 1.12, 2001/06/26 20:42:17
|
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 Gerd Kortemeyer |
# 5/3,06/25 Gerd Kortemeyer |
|
|
package Apache::lonratsrv; |
package Apache::lonratsrv; |
|
|
Line 144 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 227 sub savemap {
|
Line 232 sub savemap {
|
} |
} |
$outstr.=' index="'.$parts[1].'"'; |
$outstr.=' index="'.$parts[1].'"'; |
$outstr.="></link>\n"; |
$outstr.="></link>\n"; |
|
} elsif ($parts[0] eq 'objparms') { |
|
map { |
|
my ($type,$name,$value)=split(/\_\_\_/,$_); |
|
$outstr.='<param to="'.$parts[1].'" type="'.$type.'"' |
|
.' name="'.$name.'" value="'.$value.'">' |
|
."</param>\n"; |
|
} split(/:/,$parts[$#parts]); |
} elsif (($parts[0] ne '') && ($graphdef)) { |
} elsif (($parts[0] ne '') && ($graphdef)) { |
# ------------------------------------------------------------- Graphical input |
# ------------------------------------------------------------- Graphical input |
$outstr.='<'.$parts[0]; |
$outstr.='<'.$parts[0]; |
Line 302 ENDSCRIPT
|
Line 314 ENDSCRIPT
|
|
|
1; |
1; |
__END__ |
__END__ |
|
|
|
|
|
|
|
|
|
|
|
|
|
|