Changeset 13933


Ignore:
Timestamp:
2007-02-20T16:35:13+13:00 (17 years ago)
Author:
shaoqun
Message:

make it check collection specific super classes first

Location:
trunk/gsdl/perllib
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/perllib/classify.pm

    r13068 r13933  
    7373    my @classify_objects = ();
    7474    my $classify_number  = 1;
     75
     76     my $colclassdir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib/classify");
     77     unshift (@INC, $colclassdir);
    7578   
    7679    foreach $classifyoption (@$classify_list) {

  • trunk/gsdl/perllib/plugin.pm

    r12968 r13933  
    8080    $failhandle = 'STDERR' unless defined $failhandle;
    8181
     82    my $colplugindir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib/plugins");
     83     unshift (@INC, $colplugindir); 
     84
    8285    map { $_ = "\"$_\""; } @$globaloptions;
    8386    my $globals = join (",", @$globaloptions);

  • trunk/gsdl/perllib/plugout.pm

    r12329 r13933  
    4747    my ($plugoutname,$plugout_options) = @_;
    4848
     49    my $colplugdir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib/plugouts");
     50     unshift (@INC, $colplugdir);
     51
    4952    # find the plugout
    5053    my $colplugname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib/plugouts",
Note: See TracChangeset for help on using the changeset viewer.