Changeset 28199 for main

Timestamp:

2013-09-03T11:44:05+12:00 (11 years ago)

Author:

kjdon

Message:

make the doclevel default be section - a sectionlist by default should classify sections. and don't have metaname field, have metadata field.

File:

• main/trunk/greenstone2/perllib/classify/AZCompactSectionList.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/classify/AZCompactSectionList.pm

@@ -18 +18 @@
 
 my $arguments = [
+      { 'name' => "doclevel",
+    'desc' => "{AZCompactList.doclevel}",
+    'type' => "enum",
+    'list' => $AZCompactList::doclevel_list,
+    'deft' => "section",
+    'reqd' => "no" },
          ];
 my $options = 
@@ -109 +115 @@
         my $listclassobj;
         my $doclevel = $self->{'doclevel'};
-        my $metaname  = $self->{'metaname'};
+        my $metaname  = $self->{'metadata'};
         my @metaname_list = split('/',$metaname);
         $metaname = shift(@metaname_list);
@@ -159 +165 @@
         {
         my $formatted_node = $metavalue;
-        if ($self->{'metaname'} =~ m/^Creator(:.*)?$/)
+        if ($self->{'metadata'} =~ m/^Creator(:.*)?$/)
         {
             &sorttools::format_string_name_en(\$formatted_node);