Changeset 17480 for gsdl/trunk/perllib/plugins/ProCitePlugin.pm
- Timestamp:
- 2008-10-06T08:43:04+13:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/ProCitePlugin.pm
r17463 r17480 150 150 push(@workform_values, $workform_field); 151 151 } 152 152 153 153 # Remember this workform definition for when we're reading the records 154 154 $workform_definitions{$workform_name} = \@workform_values; … … 197 197 198 198 # Store workform and record number as metadata 199 $doc_obj->add_utf8_metadata($cursection, " pc.Workform", $workform_indicator);200 $doc_obj->add_utf8_metadata($cursection, " pc.RecordNumber", $recordnum);199 $doc_obj->add_utf8_metadata($cursection, "Workform", $workform_indicator); 200 $doc_obj->add_utf8_metadata($cursection, "RecordNumber", $recordnum); 201 201 202 202 # Store FileFormat metadata … … 218 218 my $field_name = $workform_values[$fieldnum]; 219 219 #unless ($field_name eq "---") { 220 # my $meta_name = " pc.Field" . ($fieldnum + 1) . "Name";220 # my $meta_name = "Field" . ($fieldnum + 1) . "Name"; 221 221 # $doc_obj->add_utf8_metadata($cursection, $meta_name, $field_name); 222 222 # } 223 223 if ($field_name eq "---") { 224 $field_name = " pc.Field" . ($fieldnum + 1);224 $field_name = "Field" . ($fieldnum + 1); 225 225 } 226 226 $html_record .= "<tr><td valign=top><b>$field_name: </b></td><td valign=top>"; … … 229 229 #foreach my $field_value (split(/\/\//, $field_value_raw)) { 230 230 foreach my $field_value (split($self->{'entry_separator'}, $field_value_raw)) { 231 #my $meta_name = " pc.Field" . ($fieldnum + 1) . "Value";231 #my $meta_name = "Field" . ($fieldnum + 1) . "Value"; 232 232 #$doc_obj->add_utf8_metadata($cursection, $meta_name, $field_value); 233 233 $doc_obj->add_utf8_metadata($cursection, $field_name, $field_value);
Note:
See TracChangeset
for help on using the changeset viewer.