package FS::export_nas;
+use base qw( FS::Record );
use strict;
-use base qw( FS::Record );
-use FS::Record qw( qsearch qsearchs );
+use vars qw($noexport_hack);
+
+$noexport_hack = '';
=head1 NAME
=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
=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