-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' => emt('Change location'),
- 'actionlabel' => emt('Change'),
- 'cust_pkg' => $cust_pkg,
- );
-}
-
-sub edit_location_link {
- my $locationnum = shift;
- include( '/elements/popup_link.html',
- 'action' => $p. "edit/cust_location.cgi?locationnum=$locationnum",
- 'label' => emt('Edit location'),
- 'actionlabel' => emt('Edit'),
- );
-}
+my $loc = $cust_pkg->cust_location_or_main('_cache'=>$opt{cust_location_cache});
+# dubious--they should all have a location now
+my $default = $cust_pkg->locationnum == $opt{'cust_main'}->ship_locationnum;