Subversion Repositories ORC

Rev

Rev 16 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16 Rev 22
Line 120... Line 120...
120
120
121 
  while (<$fh>) {
 121 
  while (<$fh>) {
122 
    chomp;
 122 
    chomp;
123 
    my @R = map { s/[^\x00-\x7f]//g; WebDB::trim ($_) } split /,/;
 123 
    my @R = map { s/[^\x00-\x7f]//g; WebDB::trim ($_) } split /,/;
124 
    shift @R if $idtrue;
 124 
    shift @R if $idtrue;
125 
    push @R, "" if eof;
 125 
    push @R, "" if (scalar @R < scalar $fields and eof);
126 
    print "inserting: ", join (" ", @R), $h->br;
 126 
    print "inserting: ", join (" ", @R), $h->br;
127 
    $sth->execute (map { $_ ? $_ : undef } @R) or print $sth->errstr;
 127 
    $sth->execute (map { $_ ? $_ : undef } @R) or print $sth->errstr;
128 
  }
 128 
  }