X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fbrowse%2Fpart_pkg.cgi;h=e20ba24048b2239eb361490cfedee878b5e33e95;hp=1538a7127cae1fb4745cee4a65af2b73ce444f88;hb=a6d3e4dc73803cffad96fd4b6270b2fb5f4b0568;hpb=87b5424ee8f16f824865cd7dbf1efde8da3bd429
diff --git a/httemplate/browse/part_pkg.cgi b/httemplate/browse/part_pkg.cgi
index 1538a7127..e20ba2404 100755
--- a/httemplate/browse/part_pkg.cgi
+++ b/httemplate/browse/part_pkg.cgi
@@ -1,5 +1,5 @@
<%
-#
+#
use strict;
use vars qw( $cgi $p $part_pkg );
@@ -27,9 +27,9 @@ print $cgi->header( '-expires' => 'now' ), header("Package Definition Listing",m
Package |
Comment |
- Setup Fee |
Freq. |
- Recur. Fee |
+ Plan |
+ Data |
Service |
Quan. |
@@ -42,6 +42,16 @@ foreach $part_pkg ( sort {
my(@pkg_svc)=grep $_->getfield('quantity'),
qsearch('pkg_svc',{'pkgpart'=> $hashref->{pkgpart} });
my($rowspan)=scalar(@pkg_svc);
+ my $plandata;
+ if ( $hashref->{plan} ) {
+ $plandata = $hashref->{plandata};
+ $plandata =~ s/^(\w+)=/$1 /mg;
+ $plandata =~ s/\n/
/g;
+ } else {
+ $hashref->{plan} = "(legacy)";
+ $plandata = "Setup ". $hashref->{setup}.
+ "
Recur ". $hashref->{recur};
+ }
print <
@@ -49,9 +59,9 @@ foreach $part_pkg ( sort {
|
$hashref->{pkg} |
$hashref->{comment} |
- $hashref->{setup} |
$hashref->{freq} |
- $hashref->{recur} |
+ $hashref->{plan} |
+ $plandata |
END
my($pkg_svc);