Changeset 26850
- Timestamp:
- 2013-02-09T16:20:40+13:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/doc.pm
r26540 r26850 1085 1085 1086 1086 #If the metadata value is either a latitude or a longitude value then we want to save a shortened version for spacial searching purposes 1087 if ($field eq "Latitude" || $field eq "Longitude")1087 if ($field =~ m/^(.+\.)?Latitude$/ || $field =~ m/^(.+\.)?Longitude$/) 1088 1088 { 1089 my ($mdprefix,$metaname) = ($field =~ m/(.+)\.(.+)$/); 1090 if (defined $mdprefix) { 1091 # Add in a version of Latitude/Longitude without the metadata namespace prefix to keep Runtime happy 1092 push (@{$section_ptr->{'metadata'}}, [$metaname, $value]); 1093 } 1094 1089 1095 my $direction; 1090 1096 if($value =~ m/^-/)
Note:
See TracChangeset
for help on using the changeset viewer.