Changeset 13019
- Timestamp:
- 2006-10-05T17:24:03+13:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/downloaders/Z3950Download.pm
r13010 r13019 96 96 $self->{'url'} = $self->{'host'}.":".$self->{'port'}; 97 97 98 my $os = $ENV{'GSDLOS'}; 99 100 if ($os !~ /windows/) { 101 $self->{'yaz'} = "$ENV{'GSDLHOME'}/packages/yaz/yaz-2.1.4/client/yaz-client"; 102 } 103 else{ 104 $self->{'yaz'} = "$ENV{'GSDLHOME'}/bin/windows/yaz-client"; 105 } 98 $self->{'yaz'} = &util::filename_cat($ENV{'GSDLHOME'}, "bin", $ENV{'GSDLOS'}, "yaz-client"); 106 99 107 100 return bless $self, $class;
Note:
See TracChangeset
for help on using the changeset viewer.