Changeset 3144 for trunk/gsdl/perllib/mgppbuilder.pm

Timestamp:

2002-06-11T16:26:04+12:00 (22 years ago)

Author:

kjdon

Message:

added mgpp's metadata field map to the gdbm file
For metadata, it uses two letter codes, eg TI for TItle, SU for Subject
In the queryaction, for the field list in the queryform, the display uses _TI_
and _SU_.
now, the default expansions are added to the gdbm file
<TI>Title
<SU>Subject
these get turned into macros later
they can be overridden for other langs by eg
_TI_ [l=fr] {Titre} in the appropriate lang.dm

File:

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

trunk/gsdl/perllib/mgppbuilder.pm

@@ -814 +814 @@
         
     }
+
+    #add the indexfieldmap macros to [collection]
+    # eg <TI>Title
+    #    <SU>Subject
+    # these may be overidden for other langs if add to macro files
+    $field_entry="";
+    foreach $longfield (keys %{$self->{'buildproc'}->{'indexfieldmap'}}){
+        $shortfield = $self->{'buildproc'}->{'indexfieldmap'}->{$longfield};
+        next if $shortfield eq 1;
+        $field_entry .= "<$shortfield>$longfield\n";
+    }
+    print $handle $field_entry;
     
     print $handle "\n" . ('-' x 70) . "\n";