-sub set_svc_status_hash {
- my $p = shift;
-
- my($context, $session, $custnum) = _custoragent_session_custnum($p);
- return { 'error' => $session } if $context eq 'error';
-
- #XXX only svc_acct for now
- my $svc_x = _customer_svc_x( $custnum, $p->{'svcnum'}, 'svc_acct')
- or return { 'error' => "Service not found" };
-
- warn "set_svc_status_hash ". join(' / ', map "$_=>".$p->{$_}, keys %$p )
- if $DEBUG;
- my $error = $svc_x->export_setstatus($p); #$p? returns error?
- return { 'error' => $error } if $error;
-
- return {}; #? { 'error' => '' }
-
-}
-
-sub set_svc_status_listadd {
- my $p = shift;
-
- my($context, $session, $custnum) = _custoragent_session_custnum($p);
- return { 'error' => $session } if $context eq 'error';
-
- #XXX only svc_acct for now
- my $svc_x = _customer_svc_x( $custnum, $p->{'svcnum'}, 'svc_acct')
- or return { 'error' => "Service not found" };
-
- warn "set_svc_status_listadd ". join(' / ', map "$_=>".$p->{$_}, keys %$p )
- if $DEBUG;
- my $error = $svc_x->export_setstatus_listadd($p); #$p? returns error?
- return { 'error' => $error } if $error;
-
- return {}; #? { 'error' => '' }
-
-}
+sub set_svc_status_hash { _svc_method_X(shift, 'export_setstatus') }
+sub set_svc_status_listadd { _svc_method_X(shift, 'export_setstatus_listadd') }
+sub set_svc_status_listdel { _svc_method_X(shift, 'export_setstatus_listdel') }
+sub set_svc_status_vacationadd { _svc_method_X(shift, 'export_setstatus_vacationadd') }
+sub set_svc_status_vacationdel { _svc_method_X(shift, 'export_setstatus_vacationdel') }