projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 81961 Fix POD error
[freeside.git]
/
FS
/
FS
/
export_nas.pm
diff --git
a/FS/FS/export_nas.pm
b/FS/FS/export_nas.pm
index
3829b41
..
3e5b841
100644
(file)
--- a/
FS/FS/export_nas.pm
+++ b/
FS/FS/export_nas.pm
@@
-1,8
+1,10
@@
package FS::export_nas;
package FS::export_nas;
+use base qw( FS::Record );
use strict;
use strict;
-use base qw( FS::Record );
-use FS::Record qw( qsearch qsearchs );
+use vars qw($noexport_hack);
+
+$noexport_hack = '';
=head1 NAME
=head1 NAME
@@
-70,7
+72,11
@@
otherwise returns false.
=cut
=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
=item delete
@@
-78,16
+84,21
@@
Delete this record from the database.
=cut
=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
=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
=cut
-# the replace method can be inherited from FS::Record
+sub replace {
+ die "replace not implemented for export_nas records";
+}
=item check
=item check