projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e438cf1
)
format artera turbo hex keycodes in uppercase
author
ivan
<ivan>
Thu, 6 Jan 2005 19:48:08 +0000
(19:48 +0000)
committer
ivan
<ivan>
Thu, 6 Jan 2005 19:48:08 +0000
(19:48 +0000)
FS/FS/cust_svc.pm
patch
|
blob
|
history
FS/FS/part_export/artera_turbo.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_svc.pm
b/FS/FS/cust_svc.pm
index
9c24b00
..
aa0ac5a
100644
(file)
--- a/
FS/FS/cust_svc.pm
+++ b/
FS/FS/cust_svc.pm
@@
-315,7
+315,8
@@
sub _svc_label {
} elsif ( $svcdb eq 'svc_external' ) {
my $conf = new FS::Conf;
if ( $conf->config('svc_external-display_type') eq 'artera_turbo' ) {
} elsif ( $svcdb eq 'svc_external' ) {
my $conf = new FS::Conf;
if ( $conf->config('svc_external-display_type') eq 'artera_turbo' ) {
- $tag = sprintf('%010d', $svc_x->id). '-'. sprintf('%010x', hex($svc_x->title) );
+ $tag = sprintf('%010d', $svc_x->id). '-'.
+ uc( sprintf('%010x', hex($svc_x->title)) );
} else {
$tag = $svc_x->id. ': '. $svc_x->title;
}
} else {
$tag = $svc_x->id. ': '. $svc_x->title;
}
diff --git
a/FS/FS/part_export/artera_turbo.pm
b/FS/FS/part_export/artera_turbo.pm
index
68910ed
..
2fde0d1
100644
(file)
--- a/
FS/FS/part_export/artera_turbo.pm
+++ b/
FS/FS/part_export/artera_turbo.pm
@@
-104,7
+104,7
@@
sub _export_insert {
if ( $result->{'id'} == 1 ) {
my $new = new FS::svc_external { $svc_external->hash };
$new->id(sprintf('%010d', $result->{'ASN'}));
if ( $result->{'id'} == 1 ) {
my $new = new FS::svc_external { $svc_external->hash };
$new->id(sprintf('%010d', $result->{'ASN'}));
- $new->title(
sprintf('%010x', hex($result->{'AKC'})
));
+ $new->title(
uc(sprintf('%010x', hex($result->{'AKC'}) )
));
$new->replace($svc_external);
} else {
$result->{'message'} || 'No response from Artera';
$new->replace($svc_external);
} else {
$result->{'message'} || 'No response from Artera';