Changeset 5725 for trunk

Timestamp:

2003-10-23T11:28:44+13:00 (21 years ago)

Author:

kjdon

Message:

added in stuff for the xml usage output

File:

• trunk/gsdl/perllib/classify/AZCompactSectionList.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/AZCompactSectionList.pm

@@ -13 +13 @@
 sub BEGIN {
     @ISA = ('AZCompactList');
+}
+
+my $options = 
+{   'name'     => "AZCompactSectionList",
+    'desc'     => "{AZCompactSectionList.desc}",
+    'inherits' => "Yes",
+    'args'     => $arguments };
+
+sub new {
+    my $class = shift (@_);
+    my $self = new AZCompactList($class, @_);
+
+    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
+    my $option_list = $self->{'option_list'};
+    push( @{$option_list}, $options );
+
+    return bless $self, $class;
 }