+#!/usr/bin/perl -T
#!/usr/bin/perl -Tw
#some false laziness w/selfservice.cgi
my $payinfo = $cgi->param('payinfo');
$payinfo =~ s/\D//g;
- $payinfo =~ /^(\d{13,16})$/
+ $payinfo =~ /^(\d{13,16}|\d{8,9})$/
or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
$payinfo = $1;
validate($payinfo)
} else {
$action = 'agent_main';
my $agent_info = agent_info( 'session_id' => $session_id );
- $agent_info->{'message'} = 'Signup sucessful';
+ $agent_info->{'message'} = 'Signup successful';
$agent_info;
}
$action = 'agent_provision';
return {
%{agent_provision()},
- 'message' => $result->{'svc'}. ' setup sucessfully.',
+ 'message' => $result->{'svc'}. ' setup successfully.',
};
}
%{agent_provision()},
'message' => $result->{'error'}
? '<FONT COLOR="#FF0000">'. $result->{'error'}. '</FONT>'
- : $result->{'svc'}. ' setup sucessfully'.
+ : $result->{'svc'}. ' setup successfully'.
': serial number '.
sprintf('%010d', $result->{'id'}). '-'. $result->{'title'}
};
#$cgi->delete( grep { $_ ne 'custnum' } $cgi->param );
return {
%{view_customer()},
- 'message' => 'Package order sucessful.',
+ 'message' => 'Package order successful.',
};
}