- Timestamp:
- 2010-06-23T14:48:46+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/doc.pm
r21862 r22294 729 729 $data_name =~ s/^\w*\.//; 730 730 } 731 731 $data_name =~ s/^ex\.//; # we always remove ex. - it maybe there in doc_obj, but we will never ask for it. 732 732 return $data->[1] if (scalar(@$data) >= 2 && $data_name eq $field); 733 733 } … … 764 764 $data_name =~ s/^\w*\.//; 765 765 } 766 766 $data_name =~ s/^ex\.//; # we always remove ex. - it maybe there in doc_obj, but we will never ask for it. 767 767 push (@metadata, $data->[1]) if ($data_name eq $field); 768 768 }
Note:
See TracChangeset
for help on using the changeset viewer.