freeside/FS/FS/part_export shellcommands.pm,1.30,1.31

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory pouncequick:/tmp/cvs-serv19090

Modified Files:
	shellcommands.pm 
Log Message:
fall back to password changing in the case of blank suspension/unsuspension commands, like some exports

Index: shellcommands.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/shellcommands.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- shellcommands.pm	3 May 2004 14:32:10 -0000	1.30
+++ shellcommands.pm	10 May 2004 13:17:23 -0000	1.31
@@ -176,13 +176,24 @@
 
 sub _export_suspend {
   my($self) = shift;
-  $self->_export_command('suspend', @_);
+  $self->_export_command_or_super('suspend', @_);
 }
 
 sub _export_unsuspend {
   my($self) = shift;
-  $self->_export_command('unsuspend', @_);
+  $self->_export_command_or_super('unsuspend', @_);
 }
+
+sub _export_command_or_super {
+  my($self, $action) = (shift, shift);
+  if ( $self->option($action) =~ /^\s*$/ ) {
+    my $method = "SUPER::_export_$action";
+    $self->$method(@_);
+  } else {
+    $self->_export_command($action, @_);
+  }
+};
+
 
 sub _export_command {
   my ( $self, $action, $svc_acct) = (shift, shift, shift);