From eb061f5119325e666f0dff40d4089e5c1df58e17 Mon Sep 17 00:00:00 2001
From: cvs2git <cvs2git>
Date: Sun, 16 Mar 2008 19:58:34 +0000
Subject: This commit was manufactured by cvs2svn to create tag 'TRIXBOX_2_6'.

---
 httemplate/misc/process/cust_main_note-import.cgi | 82 -----------------------
 1 file changed, 82 deletions(-)
 delete mode 100644 httemplate/misc/process/cust_main_note-import.cgi

(limited to 'httemplate/misc/process/cust_main_note-import.cgi')

diff --git a/httemplate/misc/process/cust_main_note-import.cgi b/httemplate/misc/process/cust_main_note-import.cgi
deleted file mode 100644
index 6aa8b1d37..000000000
--- a/httemplate/misc/process/cust_main_note-import.cgi
+++ /dev/null
@@ -1,82 +0,0 @@
-<% include("/elements/header.html", "Batch Customer Note Import $op") %>
-
-The following items <% $op eq 'Preview' ? 'would not be' : 'were not' %> imported.  (See below for imported items)
-<PRE>
-%  foreach my $row (@uninserted) {
-%    $csv->combine( (map{ $row->{$_} } qw(last first note) ),
-%                   $row->{error} ? ('#!', $row->{error}) : (),
-%                 );
-<% $csv->string %>
-%  }
-</PRE>
-
-The following items <% $op eq 'Preview' ? 'would be' : 'were' %> imported.  (See above for unimported items)
-
-<PRE>
-%  foreach my $row (@inserted) {
-%    $csv->combine( (map{ $row->{$_} } qw(custnum last first note) ),
-%                   ('#!', $row->{name}),
-%                 );
-<% $csv->string %>
-%  }
-</PRE>
-  
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Import');
-
-my $date = time;
-my $otaker = $FS::CurrentUser::CurrentUser->username;
-my $csv = new Text::CSV_XS;
-
-my $param = $cgi->Vars;
-
-my $op = $param->{preview} ? "Preview" : "Results";
-
-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 = 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"},
-                   'note'    => $param->{"note$row"},
-                   'name'    => $param->{"name$row"},
-                   'error'   => $error,
-                 };
-    if ($error) {
-      push @uninserted, $result;
-    }else{
-      push @inserted, $result;
-    }
-  }else{
-    push @uninserted, { 'custnum' => '',
-                        'last'    => $param->{"last$row"},
-                        'first'   => $param->{"first$row"},
-                        'note'    => $param->{"note$row"},
-                        'error'   => '',
-                      };
-  }
-}
-</%init>
-- 
cgit v1.2.1