freeside/FS/FS cust_svc.pm,1.52,1.53

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv10918

Modified Files:
	cust_svc.pm 
Log Message:
just 0-pad the key codes, don't try fancy things with hex and sprintf

Index: cust_svc.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_svc.pm,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -d -r1.52 -r1.53
--- cust_svc.pm	6 Jan 2005 19:48:08 -0000	1.52
+++ cust_svc.pm	6 Jan 2005 20:20:24 -0000	1.53
@@ -316,7 +316,7 @@
     my $conf = new FS::Conf;
     if ( $conf->config('svc_external-display_type') eq 'artera_turbo' ) {
       $tag = sprintf('%010d', $svc_x->id). '-'.
-             uc( sprintf('%010x', hex($svc_x->title)) );
+             substr('0000000000'.uc($svc_x->title), -10);
     } else {
       $tag = $svc_x->id. ': '. $svc_x->title;
     }