httemplate/misc/cust_main_note-import.cgi

   1 <% include("/elements/header.html", 'Batch Customer Note Import') %>
   2 %
   3
   4 <FORM ACTION="process/cust_main_note-import.cgi" METHOD="POST">
   5
   6
   7 <SCRIPT TYPE="text/javascript">
   8
   9   function clearhint_custnum() {
  10
  11     if ( this.value == 'Not found' ) {
  12       this.value = '';
  13       this.style.color = '#000000';
  14     }
  15
  16   }
  17
  18   function search_custnum() {
  19
  20     this.style.color = '#000000'
  21
  22     var custnum_obj = this;
  23     var searchrow = this.getAttribute('rownum');
  24     var custnum = this.value;
  25     var name_obj = document.getElementById('name'+searchrow);
  26
  27     if ( custnum == 'searching...' || custnum == 'Not found' )
  28       return;
  29
  30     var customer_select = document.getElementById('cust_select'+searchrow);
  31
  32     if ( custnum == '' ) {
  33       customer_select.selectedIndex = 0;
  34       return;
  35     }
  36
  37     custnum_obj.value = 'searching...';
  38     custnum_obj.disabled = true;
  39     custnum_obj.style.backgroundColor = '#dddddd';
  40
  41
  42     //alert('search for custnum ' + custnum + ', row#' + searchrow );
  43
  44     function search_custnum_update(name) {
  45
  46       var name = eval('(' + name + ')' );
  47
  48       custnum_obj.disabled = false;
  49       custnum_obj.style.backgroundColor = '#ffffff';
  50
  51       if ( name.length > 0 ) {
  52         //alert('custnum found: ' + name);
  53         opt(customer_select,custnum,name,'#000000');
  54         customer_select.selectedIndex = customer_select.length - 1;
  55         custnum_obj.value = custnum;
  56         name_obj.value = name;
  57       } else {
  58         custnum_obj.value = 'Not found';
  59         custnum_obj.style.color = '#ff0000';
  60       }
  61
  62     }
  63
  64     custnum_search( custnum, search_custnum_update );
  65
  66   }
  67
  68   function select_customer() {
  69
  70     var custnum = this.options[this.selectedIndex].value;
  71     var name = this.options[this.selectedIndex].text;
  72
  73     var searchrow = this.getAttribute('rownum');
  74     var custnum_obj = document.getElementById('custnum'+searchrow);
  75     var name_obj = document.getElementById('name'+searchrow);
  76
  77     custnum_obj.value = custnum;
  78     custnum_obj.style.color = '#000000';
  79
  80     name_obj.value = name;
  81
  82   }
  83
  84   function opt(what,value,text,color) {
  85     var optionName = new Option(text, value, false, false);
  86     optionName.style.color = color;
  87     var length = what.length;
  88     what.options[length] = optionName;
  89   }
  90
  91   function previewChanged(what) {
  92     var submit_obj = document.getElementById('importsubmit');
  93     if (what.checked) {
  94       submit_obj.value = 'Preview note import';
  95     }else{
  96       submit_obj.value = 'Import notes';
  97     }
  98   }
  99
 100 </SCRIPT>
 101
 102 <% include('/elements/xmlhttp.html',
 103               'url'  => $p. 'misc/xmlhttp-cust_main-search.cgi',
 104               'subs' => [qw( custnum_search )],
 105            )
 106 %>
 107
 108 %  my $fh = $cgi->upload('csvfile');
 109 %  my $csv = new Text::CSV_XS;
 110 %  my $skip_fuzzies = $cgi->param('fuzzies') ? 0 : 1;
 111 %
 112 %  if ( defined($fh) ) {
 113      <TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0>
 114      <TR>
 115        <TH>Cust #</TH>
 116        <TH>Customer</TH>
 117        <TH>Last</TH>
 118        <TH>First</TH>
 119        <TH>Note to be added</TH>
 120      </TR>
 121 %    my $agentnum   => scalar($cgi->param('agentnum')),
 122 %    my $line;
 123 %    my $row = 0;
 124 %    while ( defined($line=<$fh>) ) {
 125 %      $line =~ s/(\S*)\s*$/$1/;
 126 %      $line =~ s/^(.*)(#!).*/$1/;
 127 %
 128 %      $csv->parse($line) or die "can't parse line: " . $csv->error_input();
 129 %      my $custnum = 0;
 130 %      my @values = $csv->fields();
 131 %      my $last  = shift @values;
 132 %      if ($last =~ /^\s*(\d+)\s*$/ ) {
 133 %        $custnum = $1;
 134 %        $last = shift @values;
 135 %      }
 136 %      my $first = shift @values;
 137 %      my $note  = join ' ', @values;
 138 %      next unless ( $last || $first || $note );
 139 %      my @cust_main = ();
 140 %      warn "searching for: $last, $first" if ($first || $last);
 141 %      if ($custnum) {
 142 %        @cust_main = qsearch('cust_main', { 'custnum' => $custnum });
 143 %      } else {
 144 %        @cust_main = FS::cust_main::smart_search(
 145 %                                          'search' => "$last, $first",
 146 %                                          'no_fuzzy_on_exact' => $skip_fuzzies,
 147 %                                                )
 148 %          if ($first || $last);
 149 %      }
 150 %
 151        <TR>
 152          <TD>
 153            <INPUT TYPE="text" NAME="custnum<% $row %>" ID="custnum<% $row %>" SIZE=8 MAXLENGTH=12 VALUE="<% $cust_main[0] ? $cust_main[0]->custnum : '' %>" rownum="<% $row %>">
 154              <SCRIPT TYPE="text/javascript">
 155                var custnum_input<% $row %> = document.getElementById("custnum<% $row %>");
 156                custnum_input<% $row %>.onfocus = clearhint_custnum;
 157                custnum_input<% $row %>.onchange = search_custnum;
 158              </SCRIPT>
 159          </TD>
 160          <TD>
 161            <SELECT NAME="cust_select<% $row %>" ID="cust_select<% $row %>" rownum="<% $row %>">
 162              <OPTION VALUE="">---</OPTION>
 163 %      my $i=0;
 164 %      foreach (@cust_main) {
 165              <OPTION <% $i ? '' : 'SELECTED' %> VALUE="<% $_->custnum %>"><% $_->name %></OPTION>
 166 %        $i++;
 167 %      }
 168            </SELECT>
 169              <SCRIPT TYPE="text/javascript">
 170                var customer_select<% $row %> = document.getElementById("cust_select<% $row %>");
 171                customer_select<% $row %>.onchange = select_customer;
 172              </SCRIPT>
 173            <INPUT TYPE="hidden" NAME="name<% $row %>" ID="name<% $row %>" VALUE="<% $i ? $cust_main[0]->name : '' %>">
 174          </TD>
 175          <TD>
 176            <% $first %>
 177            <INPUT TYPE="hidden" NAME="first<% $row %>" VALUE="<% $first %>">
 178          </TD>
 179          <TD>
 180            <% $last %>
 181            <INPUT TYPE="hidden" NAME="last<% $row %>" VALUE="<% $last %>">
 182          </TD>
 183          <TD>
 184            <% $note %>
 185            <INPUT TYPE="hidden" NAME="note<% $row %>" VALUE="<% $note %>">
 186          </TD>
 187        </TR>
 188 %      $row++;
 189 %    }
 190      </TABLE>
 191      <INPUT TYPE="submit" NAME="submit" ID="importsubmit" VALUE="Import notes">
 192      <INPUT TYPE="checkbox" NAME="preview" onchange="previewChanged(this);">
 193      Preview mode
 194 %  } else {
 195      No file supplied
 196 %  }
 197
 198 </FORM>
 199 </BODY>
 200 </HTML>
 201
 202 <%init>
 203
 204 die "access denied"
 205   unless $FS::CurrentUser::CurrentUser->access_right('Import');
 206
 207 </%init>