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

[ivan]

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

Modified Files:
	cust_svc.pm 
Log Message:
format artera turbo hex keycodes in uppercase

Index: cust_svc.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_svc.pm,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -d -r1.51 -r1.52
--- cust_svc.pm	5 Jan 2005 19:29:11 -0000	1.51
+++ cust_svc.pm	6 Jan 2005 19:48:08 -0000	1.52
@@ -315,7 +315,8 @@
   } 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;
     }