From b5fa7c0c1953139f1fbe0dabf3930871646016b8 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 23 Feb 2004 08:12:47 +0000
Subject: implement fallback suspension code

---
 FS/FS/part_export.pm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'FS/FS/part_export.pm')

diff --git a/FS/FS/part_export.pm b/FS/FS/part_export.pm
index 0d91961..8423da2 100644
--- a/FS/FS/part_export.pm
+++ b/FS/FS/part_export.pm
@@ -468,18 +468,22 @@ sub _export_delete {
   return "_export_delete: unknown export type ". $self->exporttype;
 }
 
-#fallbacks providing null operations
+#call svcdb-specific fallbacks
 
 sub _export_suspend {
   my $self = shift;
   #warn "warning: _export_suspened unimplemented for". ref($self);
-  '';
+  my $svc_x = shift;
+  my $new = $svc_x->clone_suspended;
+  $self->_export_replace( $new, $svc_x );
 }
 
 sub _export_unsuspend {
   my $self = shift;
   #warn "warning: _export_unsuspend unimplemented for ". ref($self);
-  '';
+  my $svc_x = shift;
+  my $old = $svc_x->clone_kludge_unsuspend;
+  $self->_export_replace( $svc_x, $old );
 }
 
 =back
-- 
cgit v1.1