diff options
author | ivan <ivan> | 2002-04-11 22:05:31 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-04-11 22:05:31 +0000 |
commit | a7c1b602f88c177db34477ed4cdc1f72603f8995 (patch) | |
tree | 116d090127ee48b041eeb9ff21a0d62c0c768250 /FS/FS/part_svc.pm | |
parent | 52a07a405e197fda1654fc61eefa538450f269e8 (diff) |
(almost) everything for bug#375 - create export_svc table - part_svc to
part_export is now properly many-to-many, not one-to-many
still need to finish service editing (choosing exports) in
httemplate/edit/part_svc.cgi and httemplate/edti/process/part_svc.cgi
and do somethinga about that manual $svcdb = 'svc_acct' in
httemplate/edit/part_export.cgi (do part_export records need a svcdb?
probably not... should be able to just pass an svcdb on creation of new
exports, move the big %exports hash into part_export.pm and allow
httemplate/edit/part_svc.cgi to query it for exports that can apply to a given
svcdb....
Diffstat (limited to 'FS/FS/part_svc.pm')
-rw-r--r-- | FS/FS/part_svc.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm index 7ef996f5f..959a3f887 100644 --- a/FS/FS/part_svc.pm +++ b/FS/FS/part_svc.pm @@ -5,6 +5,7 @@ use vars qw( @ISA ); use FS::Record qw( qsearch qsearchs fields dbh ); use FS::part_svc_column; use FS::part_export; +use FS::export_svc; @ISA = qw(FS::Record); @@ -316,15 +317,15 @@ sub all_part_svc_column { sub part_export { my $self = shift; - my %search = ( 'svcpart' => $self->svcpart ); - qsearch('part_export', \%search); + map { qsearchs('part_export', { 'exportnum' => $_->exportnum } ) } + qsearch('export_svc', { 'svcpart' => $self->svcpart } ); } =back =head1 VERSION -$Id: part_svc.pm,v 1.12 2002-03-26 13:58:29 ivan Exp $ +$Id: part_svc.pm,v 1.13 2002-04-11 22:05:31 ivan Exp $ =head1 BUGS @@ -333,6 +334,8 @@ Delete is unimplemented. The list of svc_* tables is hardcoded. When svc_acct_pop is renamed, this should be fixed. +all_part_svc_column and part_export methods should be documented + =head1 SEE ALSO L<FS::Record>, L<FS::part_svc_column>, L<FS::part_pkg>, L<FS::pkg_svc>, |