Changeset 21219
- Timestamp:
- 2009-12-02T14:50:15+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/BasePlugin.pm
r20778 r21219 865 865 $self->add_OID($doc_obj); 866 866 867 $self->post_process_doc_obj($pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli); 867 868 return (1,$doc_obj); 869 } 870 871 sub post_process_doc_obj { 872 my $self = shift (@_); 873 my ($pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli) = @_; 874 875 return 1; 868 876 } 869 877 … … 939 947 940 948 my ($process_status,$doc_obj) = $self->read_into_doc_obj(@_); 941 949 942 950 if ((defined $process_status) && ($process_status == 1)) { 943 951 944 952 # process the document 945 953 $processor->process($doc_obj);
Note:
See TracChangeset
for help on using the changeset viewer.