version 1.11, 2001/06/25 21:43:49
|
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 Gerd Kortemeyer |
# 5/3,06/25,07/03 Gerd Kortemeyer |
|
|
package Apache::lonratsrv; |
package Apache::lonratsrv; |
|
|
Line 147 sub loadmap {
|
Line 147 sub loadmap {
|
# ------------------------------------------------------------------- Parameter |
# ------------------------------------------------------------------- Parameter |
} elsif ($token->[1] eq 'param') { |
} elsif ($token->[1] eq 'param') { |
$outstr.='<&>objparms<:>'.$token->[2]->{'to'}.'<:>'. |
$outstr.='<&>objparms<:>'.$token->[2]->{'to'}.'<:>'. |
$token->[2]->{'type'}.'___'.$token->[2]->{'name'} |
$token->[2]->{'type'}.'___'.$token->[2]->{'name'} |
.'___'.$token->[2]->{'value'}; |
.'___'.$token->[2]->{'value'}; |
} elsif ($graphmode) { |
} elsif ($graphmode) { |
# --------------------------------------------- All other tags (graphical only) |
# --------------------------------------------- All other tags (graphical only) |
Line 174 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 233 sub savemap {
|
Line 235 sub savemap {
|
$outstr.=' index="'.$parts[1].'"'; |
$outstr.=' index="'.$parts[1].'"'; |
$outstr.="></link>\n"; |
$outstr.="></link>\n"; |
} elsif ($parts[0] eq 'objparms') { |
} elsif ($parts[0] eq 'objparms') { |
|
undef %alltypes; |
|
undef %allvalues; |
map { |
map { |
my ($type,$name,$value)=split(/\_\_\_/,$_); |
my ($type,$name,$value)=split(/\_\_\_/,$_); |
$outstr.='<param to="'.$parts[1].'" type="'.$type.'"' |
$alltypes{$name}=$type; |
.' name="'.$name.'" value="'.$value.'">'."\n"; |
$allvalues{$name}=$value; |
} split(/:/,$parts[$#parts]); |
} 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]; |