Subversion Repositories VORC

Rev

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

Rev 56 Rev 113
Line 126... Line 126...
126
126
127 
  while (<$fh>) {
 127 
  while (<$fh>) {
128 
    chomp;
 128 
    chomp;
129 
    my @R = map { s/[^\x00-\x7f]//g; WebDB::trim ($_) } split /,/;
 129 
    my @R = map { s/[^\x00-\x7f]//g; WebDB::trim ($_) } split /,/;
- 
 
 130 
    shift @R if $idtrue;
130 
    shift @R if $idtrue;
 131 
    $R[2] = lc $R[2] if $columnlabels[2] eq "type";
131 
    push @R, "" if (scalar @R < scalar @columnlabels and eof);
 132 
    push @R, "" if (scalar @R < scalar @columnlabels and eof);
132 
    print "inserting: ", join (" ", @R), $h->br;
 133 
    print "inserting: ", join (" ", @R), $h->br;
133 
    $sth->execute (map { defined $_ ? $_ : undef } @R) or print $sth->errstr;
 134 
    $sth->execute (map { defined $_ ? $_ : undef } @R) or print $sth->errstr;
134 
  }
 135 
  }