diff options
author | mark <mark> | 2011-09-15 10:19:03 +0000 |
---|---|---|
committer | mark <mark> | 2011-09-15 10:19:03 +0000 |
commit | 62b12e8b09608b7081ffd596be899fafb5c2403f (patch) | |
tree | ea185e690b709c5e66365f24e039c86b3404b12b /FS/FS/part_export/shellcommands.pm | |
parent | 43af0ec176ff2ad5c4ecd60a58145f8370cc39d7 (diff) |
invoice template and config localization, #12367
Diffstat (limited to 'FS/FS/part_export/shellcommands.pm')
-rw-r--r-- | FS/FS/part_export/shellcommands.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/FS/FS/part_export/shellcommands.pm b/FS/FS/part_export/shellcommands.pm index 7343385..4bf273e 100644 --- a/FS/FS/part_export/shellcommands.pm +++ b/FS/FS/part_export/shellcommands.pm @@ -196,7 +196,7 @@ old_ for replace operations): <LI><code>$pkgnum</code> <LI><code>$custnum</code> <LI>All other fields in <b>svc_acct</b> are also available. - <LI>The following fields from <b>cust_main</b> are also available (except during replace): company, address1, address2, city, state, zip, county, daytime, night, fax, otaker, agent_custid. When used on the command line (rather than STDIN), they will be quoted for the shell already (do not add additional quotes). + <LI>The following fields from <b>cust_main</b> are also available (except during replace): company, address1, address2, city, state, zip, county, daytime, night, fax, otaker, agent_custid, locale. When used on the command line (rather than STDIN), they will be quoted for the shell already (do not add additional quotes). </UL> END ); @@ -266,7 +266,7 @@ sub _export_command { { no strict 'refs'; foreach my $custf (qw( company address1 address2 city state zip country - daytime night fax otaker agent_custid + daytime night fax otaker agent_custid locale )) { ${$custf} = $cust_pkg->cust_main->$custf(); @@ -346,6 +346,7 @@ sub _export_command { $fax = shell_quote $fax; $otaker = shell_quote $otaker; $agent_custid = shell_quote $agent_custid; + $locale = shell_quote $locale; my $command_string = eval(qq("$command")); my @ssh_cmd_args = ( @@ -423,6 +424,7 @@ sub _export_replace { if $error; $new_agent_custid = $new_cust_main ? $new_cust_main->agent_custid : ''; + $new_locale = $new_cust_main ? $new_cust_main->locale : ''; $old_pkgnum = $old_cust_pkg ? $old_cust_pkg->pkgnum : ''; $old_custnum = $old_cust_pkg ? $old_cust_pkg->custnum : ''; $new_pkgnum = $new_cust_pkg ? $new_cust_pkg->pkgnum : ''; @@ -436,6 +438,7 @@ sub _export_replace { $new_crypt_password = shell_quote $new_crypt_password; $new_ldap_password = shell_quote $new_ldap_password; $new_agent_custid = shell_quote $new_agent_custid; + $new_locale = shell_quote $new_locale; my $command_string = eval(qq("$command")); @@ -470,6 +473,7 @@ sub shellcommands_queue { } sub ssh_cmd { #subroutine, not method + # XXX shouldn't this use $opt->{'stdin_string'} at some point? use Net::OpenSSH; my $opt = { @_ }; my $ssh = Net::OpenSSH->new($opt->{'user'}.'@'.$opt->{'host'}); |