projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch '16824'
[freeside.git]
/
FS
/
FS
/
export_nas.pm
diff --git
a/FS/FS/export_nas.pm
b/FS/FS/export_nas.pm
index
3829b41
..
5282503
100644
(file)
--- a/
FS/FS/export_nas.pm
+++ b/
FS/FS/export_nas.pm
@@
-1,9
+1,12
@@
package FS::export_nas;
use strict;
package FS::export_nas;
use strict;
+use vars qw($noexport_hack);
use base qw( FS::Record );
use FS::Record qw( qsearch qsearchs );
use base qw( FS::Record );
use FS::Record qw( qsearch qsearchs );
+$noexport_hack = '';
+
=head1 NAME
FS::export_nas - Object methods for export_nas records
=head1 NAME
FS::export_nas - Object methods for export_nas records
@@
-70,7
+73,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
+85,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
@@
-113,6
+125,16
@@
sub check {
$self->SUPER::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
=back
=head1 BUGS