source: main/trunk/greenstone2/perllib/docproc.pm@ 26536

Last change on this file since 26536 was 26536, checked in by davidb, 8 years ago

Introduction of two new OIDtype values (hash_on_full_filename and full_filename) designed to help provide more stable document IDs for collections that are rebuilt over time, including rebuilt after the Greenstone install has been upgraded

  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 2.2 KB
Line 
1###########################################################################
2#
3# docproc.pm --
4# A component of the Greenstone digital library software
5# from the New Zealand Digital Library Project at the
6# University of Waikato, New Zealand.
7#
8# Copyright (C) 1999 New Zealand Digital Library Project
9#
10# This program is free software; you can redistribute it and/or modify
11# it under the terms of the GNU General Public License as published by
12# the Free Software Foundation; either version 2 of the License, or
13# (at your option) any later version.
14#
15# This program is distributed in the hope that it will be useful,
16# but WITHOUT ANY WARRANTY; without even the implied warranty of
17# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18# GNU General Public License for more details.
19#
20# You should have received a copy of the GNU General Public License
21# along with this program; if not, write to the Free Software
22# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
23#
24###########################################################################
25
26# document processors are used by the document reader plugins
27# to do some processing on some documents
28
29package docproc;
30
31use strict;
32
33
34sub new {
35 my ($class) = @_;
36 my $self = {};
37
38 $self->{'OIDtype'} = "hash";
39 $self->{'saveas'} = "GreenstoneXML"; # default
40
41 return bless $self, $class;
42}
43
44sub process {
45 my $self = shift (@_);
46 my ($doc_obj) = @_;
47
48 die "docproc::process function must be implemented in sub classes\n";
49}
50
51# OIDtype may be "hash" or "incremental" or "dirname" or "assigned"
52sub set_OIDtype {
53 my $self = shift (@_);
54 my ($type, $metadata) = @_;
55
56 if ($type =~ /^(hash|hash_on_full_filename|incremental|dirname|full_filename|assigned)$/) {
57 $self->{'OIDtype'} = $type;
58 } else {
59 $self->{'OIDtype'} = "hash";
60 }
61 if ($type =~ /^assigned$/) {
62 if (defined $metadata) {
63 $self->{'OIDmetadata'} = $metadata;
64 } else {
65 $self->{'OIDmetadata'} = "dc.Identifier";
66 }
67 }
68}
69
70sub set_saveas {
71 my $self = shift (@_);
72 my ($saveas) = @_;
73
74 $self->{'saveas'} = $saveas;
75
76}
77
78sub set_saveas_version {
79 my $self = shift (@_);
80 my ($saveas_version) = @_;
81
82 $self->{'saveas_version'} = $saveas_version;
83
84}
85
86
871;
88
89
90
91
92
93
94
Note: See TracBrowser for help on using the repository browser.