Changeset 3144 for trunk/gsdl
- Timestamp:
- 2002-06-11T16:26:04+12:00 (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/mgppbuilder.pm
r3115 r3144 814 814 815 815 } 816 817 #add the indexfieldmap macros to [collection] 818 # eg <TI>Title 819 # <SU>Subject 820 # these may be overidden for other langs if add to macro files 821 $field_entry=""; 822 foreach $longfield (keys %{$self->{'buildproc'}->{'indexfieldmap'}}){ 823 $shortfield = $self->{'buildproc'}->{'indexfieldmap'}->{$longfield}; 824 next if $shortfield eq 1; 825 $field_entry .= "<$shortfield>$longfield\n"; 826 } 827 print $handle $field_entry; 816 828 817 829 print $handle "\n" . ('-' x 70) . "\n";
Note:
See TracChangeset
for help on using the changeset viewer.