sub rate_prefix {
my $self = shift;
+ map { $_ } #return $self->num_rate_prefix unless wantarray;
sort { $a->countrycode cmp $b->countrycode
or $a->npa cmp $b->npa
or $a->nxx cmp $b->nxx
sub dest_detail {
my $self = shift;
- qsearch( 'rate_detail', { 'dest_regionnum' => $self->regionnum, } );
+ qsearch( 'rate_detail', { 'dest_regionnum' => $self->regionnum } );
}
=item prefixes_short
</%once>
<%init>
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
my $html_bottom_sub = sub {
my $access_group = shift;
my $num = $1;
if ( grep $cgi->param("ruleconditionnum$num$_"), @gfields ) {
my $x = new FS::cgp_rule_condition {
- 'ruleconditionnum' => $cgi->param("ruleconditionnum$num"),
+ 'ruleconditionnum' => scalar($cgi->param("ruleconditionnum$num")),
map { $_ => scalar($cgi->param("ruleconditionnum${num}_$_")) } @fields,
};
$x;
my $num = $1;
if ( grep $cgi->param("ruleactionnum$num$_"), @gfields ) {
my $x = new FS::cgp_rule_action {
- 'ruleactionnum' => $cgi->param("ruleactionnum$num"),
+ 'ruleactionnum' => scalar($cgi->param("ruleactionnum$num")),
map { $_ => scalar($cgi->param("ruleactionnum${num}_$_")) } @fields,
};
$x;
'fields' => $fields,
'field_callback' => $field_callback,
'labels' => {
- 'gatewaynum' => 'Gateway #',
+ 'gatewaynum' => 'Gateway',
'gateway_module' => 'Gateway',
'gateway_username' => 'Username',
'gateway_password' => 'Password',
$error = 'Enter a new reason (or select an existing one)'
unless $cgi->param('newreasonnum') !~ /^\s*$/;
- my $reason = new FS::reason({ 'reason_type' => $cgi->param('newreasonnumT'),
- 'reason' => $cgi->param('newreasonnum'),
- });
+ my $reason = new FS::reason {
+ 'reason_type' => scalar($cgi->param('newreasonnumT')),
+ 'reason' => scalar($cgi->param('newreasonnum')),
+ };
$error ||= $reason->insert;
$cgi->param('reasonnum', $reason->reasonnum)
unless $error;
unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
my $tax_class = new FS::tax_class {
- 'taxclass' => $cgi->param('taxclass'),
- 'description' => $cgi->param('description'),
+ 'taxclass' => scalar($cgi->param('taxclass')),
+ 'description' => scalar($cgi->param('description')),
};
#maybe this whole thing should be in a transaction. at some point, no biggie
],
'new_hashref_callback' => sub {
- { ratenum => $cgi->param('ratenum'),
- dest_regionnum => $cgi->param('dest_regionnum'),
- ratetimenum => $cgi->param('ratetimenum'),
- cdrtypenum => $cgi->param('cdrtypenum'),
+ { ratenum => scalar($cgi->param('ratenum')),
+ dest_regionnum => scalar($cgi->param('dest_regionnum')),
+ ratetimenum => scalar($cgi->param('ratetimenum')),
+ cdrtypenum => scalar($cgi->param('cdrtypenum')),
min_included => 0,
conn_charge => 0,
}