-% my %opt = ( 'label' => $pkglist->{$pkgpart},
-% 'pkgpart' => $pkgpart,
-% 'locationnum' => $locationnum, );
-% if ( $export->exporttype eq 'ikano' ) {
-% my $pkg_svc = qsearchs('pkg_svc', { 'pkgpart' => $pkgpart,
-% 'primary_svc' => 'Y',
-% } );
-% $opt{'svcpart'} = $pkg_svc->svcpart if $pkg_svc;
+ <LI>
+
+% if($cust_or_prospect->custnum) {
+
+% my %opt = ( 'label' => $pkglist->{$pkgpart},
+% 'lock_pkgpart' => $pkgpart,
+% 'lock_locationnum' => $location{'locationnum'},
+% 'qualnum' => $qual->qualnum,
+% );
+% if ( $export->exporttype eq 'ikano' ) {
+% my $pkg_svc = qsearchs('pkg_svc', { 'pkgpart' => $pkgpart,
+% 'primary_svc' => 'Y',
+% }
+% );
+% $opt{'svcpart'} = $pkg_svc->svcpart if $pkg_svc;
+% }
+
+ <% include('/view/cust_main/order_pkg_link.html',
+ $cust_or_prospect, %opt) %>
+
+% } elsif ($cust_or_prospect->prospectnum) {
+
+% my $link = "${p}edit/cust_main.cgi?qualnum=". $qual->qualnum.
+% ";lock_pkgpart=$pkgpart";
+ <A HREF="<% $link %>"><% $pkglist->{$pkgpart} |h %></A>
+