diff options
author | mark <mark> | 2011-10-31 19:20:16 +0000 |
---|---|---|
committer | mark <mark> | 2011-10-31 19:20:16 +0000 |
commit | 2ad6569982365759d7baaf5a97bc836770a54291 (patch) | |
tree | 81c72ce1e7687e27ea1f727643f659fdb6335793 /FS/FS/export_nas.pm | |
parent | 588ac92d054671aa13cb61f76b5da472661cb1ac (diff) |
export NAS table to sqlradius, #14697
Diffstat (limited to 'FS/FS/export_nas.pm')
-rw-r--r-- | FS/FS/export_nas.pm | 32 |
1 files changed, 27 insertions, 5 deletions
diff --git a/FS/FS/export_nas.pm b/FS/FS/export_nas.pm index 3829b41..5282503 100644 --- a/FS/FS/export_nas.pm +++ b/FS/FS/export_nas.pm @@ -1,9 +1,12 @@ package FS::export_nas; use strict; +use vars qw($noexport_hack); use base qw( FS::Record ); use FS::Record qw( qsearch qsearchs ); +$noexport_hack = ''; + =head1 NAME FS::export_nas - Object methods for export_nas records @@ -70,7 +73,11 @@ otherwise returns false. =cut -# the insert method can be inherited from FS::Record +sub insert { + my $self = shift; + $self->SUPER::insert || + ($noexport_hack ? '' : $self->part_export->export_nas_insert($self->nas)); +} =item delete @@ -78,16 +85,21 @@ Delete this record from the database. =cut -# the delete method can be inherited from FS::Record +sub delete { + my $self = shift; + ($noexport_hack ? '' : $self->part_export->export_nas_delete($self->nas)) + || $self->SUPER::delete; +} =item replace OLD_RECORD -Replaces the OLD_RECORD with this one in the database. If there is an error, -returns the error, otherwise returns false. +Unavailable. Delete the record and create a new one. =cut -# the replace method can be inherited from FS::Record +sub replace { + die "replace not implemented for export_nas records"; +} =item check @@ -113,6 +125,16 @@ sub check { $self->SUPER::check; } +sub part_export { + my $self = shift; + qsearchs('part_export', { 'exportnum' => $self->exportnum }); +} + +sub nas { + my $self = shift; + qsearchs('nas', { 'nasnum' => $self->nasnum }); +} + =back =head1 BUGS |