projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix location selection for prospects, #940
[freeside.git]
/
FS
/
FS
/
part_svc.pm
diff --git
a/FS/FS/part_svc.pm
b/FS/FS/part_svc.pm
index
dea115c
..
dd18e87
100644
(file)
--- a/
FS/FS/part_svc.pm
+++ b/
FS/FS/part_svc.pm
@@
-9,6
+9,7
@@
use FS::part_svc_column;
use FS::part_export;
use FS::export_svc;
use FS::cust_svc;
use FS::part_export;
use FS::export_svc;
use FS::cust_svc;
+use FS::part_svc_class;
@ISA = qw(FS::Record);
@ISA = qw(FS::Record);
@@
-51,6
+52,8
@@
FS::Record. The following fields are currently supported:
=item svcdb - table used for this service. See L<FS::svc_acct>,
L<FS::svc_domain>, and L<FS::svc_forward>, among others.
=item svcdb - table used for this service. See L<FS::svc_acct>,
L<FS::svc_domain>, and L<FS::svc_forward>, among others.
+=item classnum - Optional service class (see L<FS::svc_class>)
+
=item disabled - Disabled flag, empty or `Y'
=item preserve - Preserve after cancellation, empty or 'Y'
=item disabled - Disabled flag, empty or `Y'
=item preserve - Preserve after cancellation, empty or 'Y'
@@
-386,6
+389,8
@@
sub check {
|| $self->ut_alpha('svcdb')
|| $self->ut_enum('disabled', [ '', 'Y' ] )
|| $self->ut_enum('preserve', [ '', 'Y' ] )
|| $self->ut_alpha('svcdb')
|| $self->ut_enum('disabled', [ '', 'Y' ] )
|| $self->ut_enum('preserve', [ '', 'Y' ] )
+ || $self->ut_enum('selfservice_access', [ '', 'hidden', 'readonly' ] )
+ || $self->ut_foreign_keyn('classnum', 'part_svc_class', 'classnum' )
;
return $error if $error;
;
return $error if $error;
@@
-863,7
+868,8
@@
sub _upgrade_data { #class method
'description' => $groupname,
};
$error = $g->insert;
'description' => $groupname,
};
$error = $g->insert;
- die $error if $error;
+ die "Error inserting new radius_group for service definition group \"$groupname\": $error"
+ if $error;
}
push @groupnums, $g->groupnum;
}
}
push @groupnums, $g->groupnum;
}