X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fmisc%2Fprocess%2Fcust_main_note-import.cgi;h=6625e00296f1a7901a1518ffdc4079994d103bad;hb=0b07c1da9b37ce82bf505f0a860bb0693cedb264;hp=efc6224d08f08cd4fbcd93682c10dfb63a0c0d87;hpb=9f4b217a918ce2fd00138fb91f50ee21a2a77bae;p=freeside.git

diff --git a/httemplate/misc/process/cust_main_note-import.cgi b/httemplate/misc/process/cust_main_note-import.cgi
index efc6224d0..6625e0029 100644
--- a/httemplate/misc/process/cust_main_note-import.cgi
+++ b/httemplate/misc/process/cust_main_note-import.cgi
@@ -26,6 +26,7 @@ The following items <% $op eq 'Preview' ? 'would be' : 'were' %> imported.  (See
 die "access denied"
   unless $FS::CurrentUser::CurrentUser->access_right('Import');
 
+$FS::cust_main::import=1;  # the customer records are already in the database
 my $date = time;
 my $otaker = $FS::CurrentUser::CurrentUser->username;
 my $csv = new Text::CSV_XS;
@@ -38,14 +39,28 @@ my @inserted = ();
 my @uninserted = ();
 for ( my $row = 0; exists($param->{"custnum$row"}); $row++ ) {
   if ( $param->{"custnum$row"} ) {
-    my $cust_main_note = new FS::cust_main_note {
-                                          'custnum'  => $param->{"custnum$row"},
-                                          '_date'    => $date,
-                                          'otaker'   => $otaker,
-                                          'comments' => $param->{"note$row"},
-                                                };
     my $error = '';
-    $error = $cust_main_note->insert unless ($op eq "Preview");
+    if ( $param->{use_comments} ) { # why? notes are sexier
+      my $cust_main = qsearchs('cust_main',
+                               { 'custnum' => $param->{"custnum$row"} }
+                              );
+      if ($cust_main) {
+        $cust_main->comments
+          ? $cust_main->comments($cust_main->comments. " ". $param->{"note$row"})
+          : $cust_main->comments($param->{"note$row"});
+        $error = $cust_main->replace;
+      }else{
+        $error = "Can't find customer " . $param->{"custnum$row"};
+      }
+    } else {
+      my $cust_main_note = new FS::cust_main_note {
+                                            'custnum'  => $param->{"custnum$row"},
+                                            '_date'    => $date,
+                                            'otaker'   => $otaker,
+                                            'comments' => $param->{"note$row"},
+                                                  };
+      $error = $cust_main_note->insert unless ($op eq "Preview");
+    }
     my $result = { 'custnum' => $param->{"custnum$row"},
                    'last'    => $param->{"last$row"},
                    'first'   => $param->{"first$row"},