From: ivan <ivan>
Date: Thu, 16 May 2002 14:21:20 +0000 (+0000)
Subject: force all infostreet arguments to be string type, fixes: "0 as first character
X-Git-Tag: freeside_1_4_0_pre13~8
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=6c22d1f804ed99ecae591af6483a326e1c825560;hp=3f9ac2ff50fff9d55ff5976ee1417dc6ba56f39e

force all infostreet arguments to be string type, fixes: "0 as first character
in password" problem.  also see the Frontier::Client manpage
---

diff --git a/FS/FS/part_export/infostreet.pm b/FS/FS/part_export/infostreet.pm
index e86e82a66..2ce556339 100644
--- a/FS/FS/part_export/infostreet.pm
+++ b/FS/FS/part_export/infostreet.pm
@@ -63,7 +63,8 @@ sub infostreet_command { #subroutine, not method
   die $key_result{error} unless $key_result{success};
   my $key = $key_result{data};
 
-  my $result = $conn->call($method, $key, @args);
+  #my $result = $conn->call($method, $key, @args);
+  my $result = $conn->call($method, $key, map { $conn->string($_) } @args);
   my %result = _infostreet_parse($result);
   die $result{error} unless $result{success};