version 1.17, 2002/04/03 15:30:13
|
version 1.18, 2002/06/24 14:05:51
|
Line 262 sub savemap {
|
Line 262 sub savemap {
|
} elsif ($parts[0] eq 'objparms') { |
} elsif ($parts[0] eq 'objparms') { |
undef %alltypes; |
undef %alltypes; |
undef %allvalues; |
undef %allvalues; |
map { |
foreach (split(/:/,$parts[$#parts])) { |
my ($type,$name,$value)=split(/\_\_\_/,$_); |
my ($type,$name,$value)=split(/\_\_\_/,$_); |
$alltypes{$name}=$type; |
$alltypes{$name}=$type; |
$allvalues{$name}=$value; |
$allvalues{$name}=$value; |
} split(/:/,$parts[$#parts]); |
} |
map { |
foreach (keys %allvalues) { |
|
if ($allvalues{$_} ne '') { |
$outstr.='<param to="'.$parts[1].'" type="' |
$outstr.='<param to="'.$parts[1].'" type="' |
.$alltypes{$_}.'" name="'.$_ |
.$alltypes{$_}.'" name="'.$_ |
.'" value="'.$allvalues{$_}.'">' |
.'" value="'.$allvalues{$_}.'">' |
."</param>\n"; |
."</param>\n"; |
} keys %allvalues; |
} |
|
} |
} elsif (($parts[0] ne '') && ($graphdef)) { |
} elsif (($parts[0] ne '') && ($graphdef)) { |
# ------------------------------------------------------------- Graphical input |
# ------------------------------------------------------------- Graphical input |
$outstr.='<'.$parts[0]; |
$outstr.='<'.$parts[0]; |