Changeset 6111 for trunk/gsdl/perllib/classify/AZList.pm

Timestamp:

2003-12-03T12:02:55+13:00 (20 years ago)

Author:

jmt12

Message:

Changed the description for the -metadata flag to foreshadow the coming enhancement. This commit also happens to include the prototype -ignore_arguments flag to AZList, that will never actually be used because of the aforementioned metadata enhancement.

File:

• trunk/gsdl/perllib/classify/AZList.pm (modified) (2 diffs)

trunk/gsdl/perllib/classify/AZList.pm

@@ -38 +38 @@
 my $arguments =
     [ { 'name' => "metadata",
-    'desc' => "{AZList.metadata}",
+    'desc' => "{List.metadata}",
     'type' => "metadata",
     'reqd' => "yes" } ,
@@ -135 +135 @@
 
     my $doc_OID = $doc_obj->get_OID();
-    my $metavalue = $doc_obj->get_metadata_element ($doc_obj->get_top_section(),
-                            $self->{'metaname'});
+    my $metavalue = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), $self->{'metaname'}, $self->{'ignore_namespace'});
 
     # if this document doesn't contain the metadata element we're