', $thead;
-
Enter the quantity of each service this package includes.
-END
+)) %>
+
+<% #), ' onLoad="visualize()"'); %>
+
+<% if ( $cgi->param('error') ) { %>
+ Error: <%= $cgi->param('error') %>
+<% } %>
+
+ |
+
+Tax information
+<%= ntable("#cccccc", 2) %>
+ |
+ | Setup fee tax exempt |
+
+ {setuptax} eq 'Y' ? ' CHECKED' : '' %>>
+ |
+
+
+ | Recurring fee tax exempt |
+
+ {recurtax} eq 'Y' ? ' CHECKED' : '' %>>
+ |
+
+
+<% my $conf = new FS::Conf; %>
+<% if ( $conf->exists('enable_taxclasses') ) { %>
+
+
+ | Tax class |
+
+ <%= include('/elements/select-taxclass.html', $hashref->{taxclass} ) %>
+ |
+
+
+<% } else { %>
+
+ <%= include('/elements/select-taxclass.html', $hashref->{taxclass} ) %>
+
+<% } %>
+
+
+
+
+
+<%
+
+my $thead = "\n\n". ntable('#cccccc', 2).
+ '| Quan. | ';
+$thead .= 'Primary | '
+ if dbdef->table('pkg_svc')->column('primary_svc');
+$thead .= 'Service |
|---|
';
+
+%>
+
+<%= itable('', 4, 1) %>
+
Services included
+<%= $thead %>
+
+<%
+
+my $where = "WHERE disabled IS NULL OR disabled = ''";
+if ( $pkgpart ) {
+ $where .= " OR 0 < ( SELECT quantity FROM pkg_svc
+ WHERE pkg_svc.svcpart = part_svc.svcpart
+ AND pkgpart = $pkgpart
+ )";
}
+my @part_svc = qsearch('part_svc', {}, '', $where);
+my $q_part_pkg = $clone_part_pkg || $part_pkg;
+my %pkg_svc = map { $_->svcpart => $_ } $q_part_pkg->pkg_svc;
my @fixups = ();
my $count = 0;
my $columns = 3;
-my @part_svc = qsearch( 'part_svc', {} );
foreach my $part_svc ( @part_svc ) {
my $svcpart = $part_svc->svcpart;
- my $pkg_svc = qsearchs( 'pkg_svc', {
- 'pkgpart' => $cgi->param('clone') || $part_pkg->pkgpart,
- 'svcpart' => $svcpart,
- } ) || new FS::pkg_svc ( {
- 'pkgpart' => $cgi->param('clone') || $part_pkg->pkgpart,
- 'svcpart' => $svcpart,
- 'quantity' => 0,
- });
- #? #next unless $pkg_svc;
+ my $pkg_svc = $pkg_svc{$svcpart}
+ || new FS::pkg_svc ( {
+ 'pkgpart' => $pkgpart,
+ 'svcpart' => $svcpart,
+ 'quantity' => 0,
+ 'primary_svc' => '',
+ } );
push @fixups, "pkg_svc$svcpart";
- unless ( defined ($cgi->param('clone')) && $cgi->param('clone') ) {
- print ' |
'; # if $count == 0 ;
- print qq!| quantity || 0,
- qq!"> | !, $part_svc->getfield('svc'), " |
";
-# print "$thead" if ++$count == int(scalar(@part_svc) / 2);
- $count+=1;
- foreach ( 1 .. $columns-1 ) {
- print " | $thead"
- if $count == int( $_ * scalar(@part_svc) / $columns );
- }
- } else {
- print qq!quantity || 0, qq!">\n!;
- }
-}
-
-unless ( $cgi->param('clone') ) {
- print " | ";
- #print "";
-}
-
-# prolly should be in database
-my %plans = (
-
- 'flat' => {
- 'name' => 'Flat rate',
- 'fields' => {
- 'setup_fee' => { 'name' => 'Setup fee for this package',
- 'default' => 0,
- },
- 'recur_fee' => { 'name' => 'Recurring fee for this package',
- 'default' => 0,
- },
- },
- 'setup' => 'what.setup_fee.value',
- 'recur' => 'what.recur_fee.value',
- },
+%>
- 'flat_comission' => {
- 'name' => 'Flat rate with recurring referral comission as credit',
- 'fields' => {
- 'setup_fee' => { 'name' => 'Setup fee for this package',
- 'default' => 0,
- },
- 'recur_fee' => { 'name' => 'Recurring fee for this package',
- 'default' => 0,
- },
- 'comission_amount' => { 'name' => 'Comission amount',
- 'default' => 0,
- },
- 'comission_depth' => { 'name' => 'Number of layers',
- 'default' => 1,
- },
- },
- 'setup' => 'what.setup_fee.value',
- 'recur' => '\'my $error = $cust_pkg->cust_main->credit( \' + what.comission_amount.value + \' * scalar($cust_pkg->cust_main->referral_cust_pkg(\' + what.comission_depth.value+ \')), "commission" ); die $error if $error; \' + what.recur_fee.value + \';\'',
- },
+
+ |
+ quantity || 0 %>">
+ |
+
+
+ primary_svc =~ /^Y/i ? ' CHECKED' : '' %>>
+ |
+
+
+ <%= $part_svc->svc %> <%= $part_svc->disabled =~ /^Y/i ? ' (DISABLED' : '' %>
+ |
+
+
+ <% $count++;
+ foreach ( 1 .. $columns-1 ) {
+ if ( $count == int( $_ * scalar(@part_svc) / $columns ) ) {
+ %>
+ <%= $thead %>
+
+ <% }
+ }
+ %>
-);
+<% } %>
-%>
+ |
-
-
-Price plan