Changeset 13019

Timestamp:

2006-10-05T17:24:03+13:00 (18 years ago)

Author:

mdewsnip

Message:

Now access yaz-client in GSDLHOME/bin/GSDLOS.

File:

• trunk/gsdl/perllib/downloaders/Z3950Download.pm (modified) (1 diff)

trunk/gsdl/perllib/downloaders/Z3950Download.pm

@@ -96 +96 @@
     $self->{'url'} = $self->{'host'}.":".$self->{'port'};
 
-     my $os = $ENV{'GSDLOS'};
-
-    if ($os !~ /windows/) {
-    $self->{'yaz'} = "$ENV{'GSDLHOME'}/packages/yaz/yaz-2.1.4/client/yaz-client"; 
-    }
-    else{
-    $self->{'yaz'} = "$ENV{'GSDLHOME'}/bin/windows/yaz-client"; 
-    }
+    $self->{'yaz'} = &util::filename_cat($ENV{'GSDLHOME'}, "bin", $ENV{'GSDLOS'}, "yaz-client");
     
     return bless $self, $class;