Changeset 10113

Timestamp:

2005-06-15T15:11:25+12:00 (19 years ago)

Author:

davidb

Message:

'removesuffix' and 'removeprefix' modified so also passed down recursive call
to AZCompactList/AZList ...

File:

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

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -454 +454 @@
         push @args, ("-buttonname", "$metavalue");
         push @args, ("-sort", $self->{'sortname'});
+
+        if (defined $self->{'removeprefix'}) {
+            push @args, ("-removeprefix", $self->{'removeprefix'});
+        }
+        if (defined $self->{'removesuffix'}) {
+            push @args, ("-removesuffix", $self->{'removesuffix'});
+        }
+        
         push @args, ("-doclevel", "$doclevel");
         push @args, ("-mingroup", $mingroup);