Changeset 24342
- Timestamp:
- 2011-07-29T13:07:33+12:00 (13 years ago)
- Location:
- main/trunk/greenstone2/perllib
- Files:
-
- 2 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/basebuilder.pm
r24070 r24342 206 206 # if a buildproc class has been created for this collection, use it 207 207 # otherwise, use the default buildproc for the builder we are initialising 208 my ($buildprocdir, $buildproctype); 208 my $buildprocdir = undef; 209 my $buildproctype; 210 209 211 my $collection = $self->{'collection'}; 210 212 if (-e "$ENV{'GSDLCOLLECTDIR'}/custom/${collection}/perllib/custombuildproc.pm") { … … 218 220 $buildproctype = "${collection}buildproc"; 219 221 } else { 220 $buildprocdir = "$ENV{'GSDLHOME'}/perllib";221 222 $buildproctype = $self->default_buildproc(); 222 223 } 223 require "$buildprocdir/$buildproctype.pm"; 224 if (defined $buildprocdir) { 225 require "$buildprocdir/$buildproctype.pm"; 226 } 227 else { 228 require "$buildproctype.pm"; 229 } 224 230 225 231 eval("\$self->{'buildproc'} = new $buildproctype(\$self->{'collection'}, " .
Note:
See TracChangeset
for help on using the changeset viewer.