projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add suspend and unsuspend hooks, don't try and set '*SUSPENDED*' passwords
[freeside.git]
/
FS
/
FS
/
part_export
/
forward_shellcommands.pm
diff --git
a/FS/FS/part_export/forward_shellcommands.pm
b/FS/FS/part_export/forward_shellcommands.pm
index
43d558a
..
f6fcb60
100644
(file)
--- a/
FS/FS/part_export/forward_shellcommands.pm
+++ b/
FS/FS/part_export/forward_shellcommands.pm
@@
-29,13
+29,13
@@
sub _export_command {
${$_} = $svc_forward->getfield($_) foreach $svc_forward->fields;
}
${$_} = $svc_forward->getfield($_) foreach $svc_forward->fields;
}
- my $svc_acct =
qsearchs( 'svc_acct', { 'svcnum' => $self->srcsvc } )
;
+ my $svc_acct =
$svc_forward->srcsvc_acct
;
$username = $svc_acct->username;
$domain = $svc_acct->domain;
$username = $svc_acct->username;
$domain = $svc_acct->domain;
- if ($s
elf->dstsvc
) {
- $destination = $s
elf
->dstsvc_acct->email;
+ if ($s
vc_forward->dstsvc_acct
) {
+ $destination = $s
vc_forward
->dstsvc_acct->email;
} else {
} else {
- $destination = $s
elf
->dst;
+ $destination = $s
vc_forward
->dst;
}
#done setting variables for the command
}
#done setting variables for the command
@@
-59,22
+59,22
@@
sub _export_replace {
${"new_$_"} = $new->getfield($_) foreach $new->fields;
}
${"new_$_"} = $new->getfield($_) foreach $new->fields;
}
- my $old_svc_acct =
qsearchs( 'svc_acct', { 'svcnum' => $self->srcsvc } )
;
+ my $old_svc_acct =
$old->srcsvc_acct
;
$old_username = $old_svc_acct->username;
$old_domain = $old_svc_acct->domain;
$old_username = $old_svc_acct->username;
$old_domain = $old_svc_acct->domain;
- if ($
self->dstsvc
) {
- $old_destination = $
self
->dstsvc_acct->email;
+ if ($
old->dstsvc_acct
) {
+ $old_destination = $
old
->dstsvc_acct->email;
} else {
} else {
- $old_destination = $
self
->dst;
+ $old_destination = $
old
->dst;
}
}
- my $new_svc_acct =
qsearchs( 'svc_acct', { 'svcnum' => $self->srcsvc } )
;
+ my $new_svc_acct =
$new->srcsvc_acct
;
$new_username = $new_svc_acct->username;
$new_domain = $new_svc_acct->domain;
$new_username = $new_svc_acct->username;
$new_domain = $new_svc_acct->domain;
- if ($
self
->dstsvc) {
- $new_destination = $
self
->dstsvc_acct->email;
+ if ($
new
->dstsvc) {
+ $new_destination = $
new
->dstsvc_acct->email;
} else {
} else {
- $new_destination = $
self
->dst;
+ $new_destination = $
new
->dst;
}
#done setting variables for the command
}
#done setting variables for the command