version 1.88, 2003/11/03 21:47:21
|
version 1.89, 2003/11/21 19:54:42
|
Line 111 sub meta_parameter_write {
|
Line 111 sub meta_parameter_write {
|
} |
} |
$result.= ' name="'.$name.'"'. |
$result.= ' name="'.$name.'"'. |
' type="'.$type.'"'. |
' type="'.$type.'"'. |
($default?' default="'.$default.'"':''). |
(defined($default)?' default="'.$default.'"':''). |
($display?' display="'.$display.' [Part: '.$partref.']"':'') |
(defined($display)?' display="'.$display.' [Part: '.$partref.']"':'') |
.'></parameter>' |
.'></parameter>' |
."\n"; |
."\n"; |
return $result; |
return $result; |
Line 555 sub whichorder {
|
Line 555 sub whichorder {
|
for (my $i=0;$i<=$#bottomlist;$i++) { |
for (my $i=0;$i<=$#bottomlist;$i++) { |
if ($bottomlist[$i]) { push(@whichopt,$bottomlist[$i]) } |
if ($bottomlist[$i]) { push(@whichopt,$bottomlist[$i]) } |
} |
} |
|
|
return @whichopt; |
return @whichopt; |
} |
} |
|
|