sub _export_insert {
my($self, $svc_something) = (shift, shift);
- $err_or_queue = $self->myexport_queue( $svc_acct->svcnum, 'insert',
+ $err_or_queue = $self->myexport_queue( $svc_something->svcnum, 'insert',
$svc_something->username, $svc_something->_password );
ref($err_or_queue) ? '' : $err_or_queue;
}
sub _export_delete {
my( $self, $svc_something ) = (shift, shift);
- $err_or_queue = $self->myexport_queue( $svc_acct->svcnum,
+ $err_or_queue = $self->myexport_queue( $svc_something->svcnum,
'delete', $svc_something->username );
ref($err_or_queue) ? '' : $err_or_queue;
}
}
sub myexport_insert { #subroutine, not method
+ my( $username, $password ) = @_;
+ #do things with $username and $password
}
+
sub myexport_replace { #subroutine, not method
}
+
sub myexport_delete { #subroutine, not method
+ my( $username ) = @_;
+ #do things with $username
}