diff options
Diffstat (limited to 'httemplate/view/cust_main/packages/location.html')
| -rw-r--r-- | httemplate/view/cust_main/packages/location.html | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/httemplate/view/cust_main/packages/location.html b/httemplate/view/cust_main/packages/location.html index 0f58b36fc..3c641304a 100644 --- a/httemplate/view/cust_main/packages/location.html +++ b/httemplate/view/cust_main/packages/location.html @@ -19,17 +19,40 @@ </I> +% if ($FS::CurrentUser::CurrentUser->access_right('Change customer package')) { + <FONT SIZE=-1> + ( <%pkg_change_location_link($cust_pkg)%> ) + </FONT> +% } + </TD> <%init> my %opt = @_; +my $conf = new FS::Conf; + my $bgcolor = $opt{'bgcolor'}; my $cust_pkg = $opt{'cust_pkg'}; my $part_pkg = $opt{'part_pkg'}; my $conf = new FS::Conf; my $countrydefault = $conf->config('countrydefault') || 'US'; +my $statedefault = $conf->config('statedefault') + || ($countrydefault eq 'US' ? 'CA' : ''); my $loc = $cust_pkg->cust_location_or_main; +sub pkg_change_location_link { + my $cust_pkg = shift; + my $pkgpart = $cust_pkg->pkgpart; + include( '/elements/popup_link-cust_pkg.html', + 'action' => $p. "misc/change_pkg.cgi?locationnum=-1;pkgpart=$pkgpart;". + "address1=;address2=;city=;county=;state=$statedefault;". + "zip=;country=$countrydefault", + 'label' => 'Change location', + 'actionlabel' => 'Change', + 'cust_pkg' => $cust_pkg, + ); +} + </%init> |