From 0c35edbe49a9ad1ede91306e20e5464d690ace8d Mon Sep 17 00:00:00 2001
From: Andreas Brachold <vdr07@deltab.de>
Date: Tue, 23 Oct 2007 17:30:19 +0000
Subject: * SHARE: Missing version number inside useragent message

---
 lib/XXV/MODULES/SHARE.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/XXV/MODULES/SHARE.pm b/lib/XXV/MODULES/SHARE.pm
index 3d3d9f3..8d5cf04 100644
--- a/lib/XXV/MODULES/SHARE.pm
+++ b/lib/XXV/MODULES/SHARE.pm
@@ -219,10 +219,10 @@ sub ConnectToService {
     return undef
         if($obj->{active} ne 'y');
 
-    my $version = main::getVersion;
+    my $version = main::getVersion();
 
     my $client = SOAP::Lite->new;
-    $client->schema->useragent->agent(sprintf("xxv %s"),$version);
+    $client->schema->useragent->agent(sprintf("xxv %s",$version));
     my $webservice = $client->service($service);
       
     my $usrkey;
-- 
cgit v1.2.3