use comments and not notes
authorjeff <jeff>
Thu, 5 Apr 2007 14:15:46 +0000 (14:15 +0000)
committerjeff <jeff>
Thu, 5 Apr 2007 14:15:46 +0000 (14:15 +0000)
httemplate/misc/process/cust_main_note-import.cgi

index efc6224..6aa8b1d 100644 (file)
@@ -38,14 +38,26 @@ 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");
+#    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");
+    my $cust_main = qsearchs('cust_main',
+                             { 'custnum' => $param->{"custnum$row"} }
+                            );
+    my $error;
+    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"};
+    }
     my $result = { 'custnum' => $param->{"custnum$row"},
                    'last'    => $param->{"last$row"},
                    'first'   => $param->{"first$row"},