version 1.11, 2001/06/25 21:43:49
|
version 1.12, 2001/06/26 20:42:17
|
Line 236 sub savemap {
|
Line 236 sub savemap {
|
map { |
map { |
my ($type,$name,$value)=split(/\_\_\_/,$_); |
my ($type,$name,$value)=split(/\_\_\_/,$_); |
$outstr.='<param to="'.$parts[1].'" type="'.$type.'"' |
$outstr.='<param to="'.$parts[1].'" type="'.$type.'"' |
.' name="'.$name.'" value="'.$value.'">'."\n"; |
.' name="'.$name.'" value="'.$value.'">' |
|
."</param>\n"; |
} split(/:/,$parts[$#parts]); |
} split(/:/,$parts[$#parts]); |
} elsif (($parts[0] ne '') && ($graphdef)) { |
} elsif (($parts[0] ne '') && ($graphdef)) { |
# ------------------------------------------------------------- Graphical input |
# ------------------------------------------------------------- Graphical input |