From: mark <mark>
Date: Tue, 14 Dec 2010 08:21:17 +0000 (+0000)
Subject: fix location display boundary case
X-Git-Tag: TORRUS_1_0_9~20
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=88be1de5a77b567c1f610bc510ca386738538488;p=freeside.git

fix location display boundary case
---

diff --git a/httemplate/view/cust_main/locations.html b/httemplate/view/cust_main/locations.html
index 319a92747..ea6216ea9 100755
--- a/httemplate/view/cust_main/locations.html
+++ b/httemplate/view/cust_main/locations.html
@@ -29,7 +29,7 @@ Default service location:
 % if ( $locationnum and !$loc->disabled ) {
 <% edit_location_link($locationnum) %>
 % }
-% if ( !$loc->disabled and !$active{$locationnum} ) {
+% if ( $locationnum and !$loc->disabled and !$active{$locationnum} ) {
 &nbsp;<% disable_location_link($locationnum) %>
 % }
 </SPAN></TH></TR>
@@ -50,7 +50,7 @@ my %locations = map { $_->locationnum => $_ } qsearch({
   });
 my @sections = keys %locations;
 $locations{''} = $cust_main;
-my %packages_in = map { $_ => [] } @sections;
+my %packages_in = map { $_ => [] } ('', @sections);
 
 my %active = (); # groups with non-canceled packages
 foreach my $cust_pkg ( @$all_packages ) {