From: jeff <jeff>
Date: Fri, 14 Mar 2008 17:30:13 +0000 (+0000)
Subject: insist on Net::Prizm 0.04
X-Git-Tag: freeside_1_7_3rc1~59
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=2f021ca696a8874fa77eaf014d51ad8da2003f7f;p=freeside.git

insist on Net::Prizm 0.04
---

diff --git a/FS/FS/part_export/prizm.pm b/FS/FS/part_export/prizm.pm
index 754d428cd..75b10a763 100644
--- a/FS/FS/part_export/prizm.pm
+++ b/FS/FS/part_export/prizm.pm
@@ -88,7 +88,7 @@ EOT
 sub prizm_command {
   my ($self,$namespace,$method) = (shift,shift,shift);
 
-  eval "use Net::Prizm qw(CustomerInfo PrizmElement);";
+  eval "use Net::Prizm 0.04 qw(CustomerInfo PrizmElement);";
   die $@ if $@;
 
   my $prizm = new Net::Prizm (
@@ -104,7 +104,7 @@ sub prizm_command {
 sub queued_prizm_command {  # subroutine
   my( $url, $user, $password, $namespace, $method, @args ) = @_;
 
-  eval "use Net::Prizm qw(CustomerInfo PrizmElement);";
+  eval "use Net::Prizm 0.04 qw(CustomerInfo PrizmElement);";
   die $@ if $@;
 
   my $prizm = new Net::Prizm (
@@ -500,7 +500,7 @@ sub queue_statuschange {
 sub statuschange {  # subroutine
   my( $url, $user, $password, $method, $mac_addr, @args) = @_;
 
-  eval "use Net::Prizm qw(CustomerInfo PrizmElement);";
+  eval "use Net::Prizm 0.04 qw(CustomerInfo PrizmElement);";
   die $@ if $@;
 
   my $prizm = new Net::Prizm (