Fixed Bug #198

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 9d75971..d0e813f 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -1552,9 +1552,10 @@ sub ship_to {
 
   map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
     qw(exchangerate creditlimit creditremaining);
 
   map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
     qw(exchangerate creditlimit creditremaining);

-
+  $form_id = $form->{id};

   # get details for name
   &{"$form->{vc}_details"};
   # get details for name
   &{"$form->{vc}_details"};

+  $form->{id} = $form_id;

 
   $number =
     ($form->{vc} eq 'customer')
 
   $number =
     ($form->{vc} eq 'customer')