1 files changed, 0 insertions, 85 deletions
diff --git a/httemplate/edit/cust_main/first_pkg.html b/httemplate/edit/cust_main/first_pkg.html
deleted file mode 100644
index 7c131ea..0000000
--- a/httemplate/edit/cust_main/first_pkg.html
+++ /dev/null
@@ -1,85 +0,0 @@
-% if ( $cgi->param('lock_pkgpart') =~ /^([\d, ]+)$/ ) {
-
-    <INPUT TYPE="hidden" NAME="lock_pkgpart" VALUE="<% $1 %>">
-
-% }
-%
-% if ( @part_pkg ) {
-
-    <BR><BR>
-    <FONT SIZE="+1"><B>First package</B></FONT>
-    <% ntable("#cccccc") %>
-
-      <TR>
-        <TD COLSPAN=2>
-          <% include('first_pkg/select-part_pkg.html',
-                       'part_pkg' => \@part_pkg,
-                       %opt,
-                       # map { $_ => $opt{$_} } qw( pkgpart_svcpart saved_domsvc )
-                    )
-          %>
-
-% } 
-<%init>
-
-my( $cust_main, %opt ) = @_;
-
-# pry the wrong place for this logic.  also pretty expensive
-
-#false laziness, copied from FS::cust_pkg::order
-my $pkgpart;
-my $agentnum = '';
-my @agents = $FS::CurrentUser::CurrentUser->agents;
-if ( scalar(@agents) == 1 ) {
-  # $pkgpart->{PKGPART} is true iff $custnum may purchase PKGPART
-  $pkgpart = $agents[0]->pkgpart_hashref;
-  $agentnum = $agents[0]->agentnum;
-} elsif ( $cgi->param('lock_agentnum') =~ /^(\d+)$/
-            && $FS::CurrentUser::CurrentUser->agentnum($1) ) {
-  $agentnum = $1;
-  my $agent = (grep { $_->agentnum == $agentnum } @agents)[0];
-  $pkgpart = $agent->pkgpart_hashref;
-} else {
-  #can't know (agent not chosen), so, allow all
-  $agentnum = 'all';
-  my %typenum;
-  foreach my $agent ( @agents ) {
-    next if $typenum{$agent->typenum}++;
-    $pkgpart->{$_}++ foreach keys %{ $agent->pkgpart_hashref }
-  }
-}
-#eslaf
-
-my @part_pkg = ();
-if ( $cgi->param('lock_pkgpart') =~ /^([\d, ]+)$/ ) {
-
-  my $lock_pkgpart = $1;
-
-  @part_pkg = qsearch({
-                        'table'     => 'part_pkg',
-                        'hashref'   => { 'disabled' => '' },
-                        'extra_sql' => "AND pkgpart IN ($lock_pkgpart)",
-                        'order_by'  => 'ORDER BY pkg', # case?
-                     });
-
-} else {
-
-  @part_pkg =
-    qsearch( 'part_pkg', { 'disabled' => '' }, '', 'ORDER BY pkg' ); # case?
-
-}
-
-my @first_svc = ( 'svc_acct', 'svc_phone' );
-
-@part_pkg =
-  grep { $_->svcpart(\@first_svc)
-         && ( $pkgpart->{ $_->pkgpart } 
-              || $agentnum eq 'all'
-              || ( $agentnum ne 'all' && $agentnum && $_->agentnum
-                   && $_->agentnum == $agentnum
-                 )
-            )
-       }
-  @part_pkg;
-
-</%init>