projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
268594d
)
forward_shellcommands update: might work now
author
ivan
<ivan>
Wed, 25 Jun 2003 00:57:16 +0000
(
00:57
+0000)
committer
ivan
<ivan>
Wed, 25 Jun 2003 00:57:16 +0000
(
00:57
+0000)
FS/FS/part_export/forward_shellcommands.pm
patch
|
blob
|
history
diff --git
a/FS/FS/part_export/forward_shellcommands.pm
b/FS/FS/part_export/forward_shellcommands.pm
index
a53628a
..
f6fcb60
100644
(file)
--- a/
FS/FS/part_export/forward_shellcommands.pm
+++ b/
FS/FS/part_export/forward_shellcommands.pm
@@
-2,9
+2,7
@@
package FS::part_export::forward_shellcommands;
use strict;
use vars qw(@ISA);
use strict;
use vars qw(@ISA);
-use FS::Record qw(qsearchs);
use FS::part_export;
use FS::part_export;
-use FS::svc_acct;
@ISA = qw(FS::part_export);
@ISA = qw(FS::part_export);
@@
-31,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
@@
-61,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