diff options
author | ivan <ivan> | 2005-10-03 01:42:22 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-10-03 01:42:22 +0000 |
commit | a5bbbed61e09dffffc5d7022cddb3f9ff62a955a (patch) | |
tree | f0e0a5d47a996f624da9d602e7022b0acd45d4ec /FS/FS/part_svc.pm | |
parent | 90cdac3ff61ad57b42d2fc4743ad53f7c537e6fe (diff) |
update account view and edit: convert to proper templates, make sure usage information displays for any usage-capable export, add ability to edit uid/gid
Diffstat (limited to 'FS/FS/part_svc.pm')
-rw-r--r-- | FS/FS/part_svc.pm | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm index 2bb8ab5..0ece185 100644 --- a/FS/FS/part_svc.pm +++ b/FS/FS/part_svc.pm @@ -393,8 +393,8 @@ sub all_part_svc_column { =item part_export [ EXPORTTYPE ] -Returns all exports (see L<FS::part_export>) for this service, or, if an -export type is specified, only returns exports of the given type. +Returns a list of all exports (see L<FS::part_export>) for this service, or, +if an export type is specified, only returns exports of the given type. =cut @@ -406,6 +406,18 @@ sub part_export { qsearch('export_svc', { 'svcpart' => $self->svcpart } ); } +=item part_export_usage + +Returns a list of any exports (see L<FS::part_export>) for this service that +are capable of reporting usage information. + +=cut + +sub part_export_usage { + my $self = shift; + grep $_->can('usage_sessions'), $self->part_export; +} + =item cust_svc Returns a list of associated FS::cust_svc records. |