freeside/FS/FS cust_svc.pm,1.50,1.51

[ivan]

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

Modified Files:
	cust_svc.pm 
Log Message:
key codes are hex!

Index: cust_svc.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_svc.pm,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -d -r1.50 -r1.51
--- cust_svc.pm	31 Dec 2004 07:43:19 -0000	1.50
+++ cust_svc.pm	5 Jan 2005 19:29:11 -0000	1.51
@@ -315,7 +315,7 @@
   } 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('%010d', $svc_x->title);
+      $tag = sprintf('%010d', $svc_x->id). '-'. sprintf('%010x', hex($svc_x->title) );
     } else {
       $tag = $svc_x->id. ': '. $svc_x->title;
     }