This commit was manufactured by cvs2svn to create branch

[freeside.git] / FS / FS / part_export / prizm.pm

diff --git a/FS/FS/part_export/prizm.pm b/FS/FS/part_export/prizm.pm
index 3ba1b27..2d4d858 100644 (file)
--- 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 (
@@ -395,6 +395,15 @@ sub _export_replace {
   return $err_or_som
     unless ref($err_or_som);
 
+  $err_or_som = $self->prizm_command('NetworkIfService', 'setElementConfigSet',
+                                     [ $element ],
+                                     $new->cust_svc->cust_pkg->part_pkg->pkg,
+                                     0,
+                                     1,
+                                    );
+  return $err_or_som
+    unless ref($err_or_som);
+
   '';
 
 }
@@ -463,6 +472,14 @@ sub _export_unsuspend {
   '';
 }
 
+sub export_links {
+  my( $self, $svc, $arrayref ) = ( shift, shift, shift );
+
+  push @$arrayref, '<A HREF="http://'. $svc->ip_addr. '">SM</A>';
+
+  '';
+}
+
 sub queue_statuschange {
   my( $self, $method, $jobs, $svc, @args ) = @_;
 
@@ -492,7 +509,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 (