Changeset 12628 for trunk/gsdl/perllib/plugouts/BasPlugout.pm
- Timestamp:
- 2006-08-31T14:03:55+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugouts/BasPlugout.pm
r12618 r12628 140 140 my $self = shift(@_); 141 141 my $header = shift(@_); 142 my $high_level_information_only = shift(@_); 142 143 143 144 # XML output is always in UTF-8 … … 147 148 &PrintUsage::print_xml_header("plugout"); 148 149 } 149 $self->print_xml( );150 $self->print_xml($high_level_information_only); 150 151 } 151 152 … … 154 155 { 155 156 my $self = shift(@_); 157 my $high_level_information_only = shift(@_); 158 156 159 my $optionlistref = $self->{'option_list'}; 157 160 my @optionlist = @$optionlistref; … … 167 170 gsprintf(STDERR, " <Abstract>$plugoutoptions->{'abstract'}</Abstract>\n"); 168 171 gsprintf(STDERR, " <Inherits>$plugoutoptions->{'inherits'}</Inherits>\n"); 169 gsprintf(STDERR, " <Arguments>\n"); 170 171 if (defined($plugoutoptions->{'args'})) { 172 &PrintUsage::print_options_xml($plugoutoptions->{'args'}); 173 } 174 175 gsprintf(STDERR, " </Arguments>\n"); 176 # Recurse up the plugout hierarchy 177 $self->print_xml(); 172 unless (defined($high_level_information_only)) { 173 gsprintf(STDERR, " <Arguments>\n"); 174 if (defined($plugoutoptions->{'args'})) { 175 &PrintUsage::print_options_xml($plugoutoptions->{'args'}); 176 } 177 gsprintf(STDERR, " </Arguments>\n"); 178 179 # Recurse up the plugout hierarchy 180 $self->print_xml(); 181 } 178 182 gsprintf(STDERR, "</PlugoutInfo>\n"); 179 183 }
Note:
See TracChangeset
for help on using the changeset viewer.