source: trunk/bbc/collect/bbc/perllib/bbcotherbuildproc.pm@ 4647

Last change on this file since 4647 was 4647, checked in by sjboddie, 19 years ago

Initial revision

  • Property svn:keywords set to Author Date Id Revision
File size: 1.8 KB
Line 
1###########################################################################
2#
3# bbcbuildproc.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# mgbuildproc for bbc collections. this file (and package name too) should
27# be renamed to the name of the collection currently being built (e.g.
28# bbc1buildproc)
29
30package bbcotherbuildproc;
31
32use mgbuildproc;
33
34BEGIN {
35 @ISA = ('mgbuildproc');
36}
37
38
39sub new {
40 my ($class, $collection, $source_dir, $build_dir,
41 $verbosity, $outhandle) = @_;
42 my $self = new mgbuildproc ();
43
44 return bless $self, $class;
45}
46
47
48# we want to filter ProgNumbers to remove all whitespace and other
49# non-alphanumeric characters when creating the index
50# $_[0] == field
51# $_[1] == text
52sub filter_text {
53 my $self = shift (@_);
54
55 if ($self->{'indexing_text'} && ($_[0] eq "ProgNumber" || $_[0] eq "zzabn" )) {
56 $_[1] =~ s/[^\w]//g;
57 }
58}
59
601;
Note: See TracBrowser for help on using the repository browser.