X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fhuawei_hlr.pm;h=9b405d5b617ad511a6093cb5119b81dc53e9349a;hp=00798188053736805a23353528ddbf3d4df1814b;hb=5372897f367498972c96f5494e142e6e11b29eb8;hpb=ded0ab5cac02f099b387de360fb6dd6bd8cbb6b4

diff --git a/FS/FS/part_export/huawei_hlr.pm b/FS/FS/part_export/huawei_hlr.pm
index 007981880..9b405d5b6 100644
--- a/FS/FS/part_export/huawei_hlr.pm
+++ b/FS/FS/part_export/huawei_hlr.pm
@@ -9,8 +9,6 @@ use FS::inventory_class;
 use FS::inventory_item;
 use IO::Socket::INET;
 use Data::Dumper;
-use MIME::Base64 qw(decode_base64);
-use Storable qw(thaw);
 
 use strict;
 
@@ -18,16 +16,16 @@ $DEBUG = 0;
 @ISA = qw(FS::part_export);
 
 tie my %options, 'Tie::IxHash',
-  'opname'    => { label=>'Operator login' },
-  'pwd'       => { label=>'Operator password' },
+  'opname'    => { label=>'Operator login (required)' },
+  'pwd'       => { label=>'Operator password (required)' },
   'tplid'     => { label=>'Template number' },
   'hlrsn'     => { label=>'HLR serial number' },
   'k4sno'     => { label=>'K4 serial number' },
-  'cardtype'  => { label  => 'Card type',
+  'cardtype'  => { label  => 'Card type (required)',
                    type   => 'select', 
                    options=> ['SIM', 'USIM']
                  },
-  'alg'       => { label  => 'Authentication algorithm',
+  'alg'       => { label  => 'Authentication algorithm (required)',
                    type   => 'select',
                    options=> ['COMP128_1',
                               'COMP128_2',
@@ -251,7 +249,7 @@ sub command {
 
 sub process_import_sim {
   my $job = shift;
-  my $param = thaw(decode_base64(shift));
+  my $param = shift;
   $param->{'job'} = $job;
   my $exportnum = delete $param->{'exportnum'};
   my $export = __PACKAGE__->by_key($exportnum);
@@ -314,8 +312,8 @@ sub import_sim {
     # push IMSI/KI to the HLR
     my $return = $self->command($socket,
       @command,
-      'IMSI', $imsi,
-      'KIVALUE', $ki,
+      'IMSI', qq{"$imsi"},
+      'KIVALUE', qq{"$ki"},
       @args
     );
     if ( $return->{success} ) {