diff options
author | levinse <levinse> | 2011-02-12 04:58:35 +0000 |
---|---|---|
committer | levinse <levinse> | 2011-02-12 04:58:35 +0000 |
commit | 5fa2ec5b24f52ddb14e569970ccb8a24cadbc6b1 (patch) | |
tree | 7a94b354798ec354e239bcbf826b682017161a99 /FS/FS/part_pkg/sql_generic.pm | |
parent | 5d1c873c38990030fc082294ff728518460ccead (diff) |
show package pricing details on customer view, RT11372
Diffstat (limited to 'FS/FS/part_pkg/sql_generic.pm')
-rw-r--r-- | FS/FS/part_pkg/sql_generic.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/FS/FS/part_pkg/sql_generic.pm b/FS/FS/part_pkg/sql_generic.pm index cf38257..e323d8b 100644 --- a/FS/FS/part_pkg/sql_generic.pm +++ b/FS/FS/part_pkg/sql_generic.pm @@ -40,6 +40,13 @@ use FS::part_pkg::flat; 'weight' => '56', ); +sub price_info { + my $self = shift; + my $str = $self->SUPER::price_info; + $str .= " plus per-service charges" if $str; + $str; +} + sub calc_recur { my($self, $cust_pkg ) = @_; |