Subversion Repositories VORC

Rev

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

Rev 128 Rev 133
Line 129... Line 129...
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 
    $R[2] = lc $R[2] if $columnlabels[2] eq "type";
132 
    push @R, "" if (scalar @R < scalar @columnlabels and eof);
 132 
    push @R, "" if (scalar @R < scalar @columnlabels and eof);
133 
    print "inserting: ", join (" ", @R), $h->br;
 133 
    print "inserting: ", join (" ", @R), $h->br;
134 
    $sth->execute (map { $_ eq '' and $_ = undef } map { defined $_ ? $_ : undef } @R) or print $sth->errstr;
 134 
    $sth->execute (map { $_ eq '' ? undef : $_ } map { defined $_ ? $_ : undef } @R) or print $sth->errstr;
135 
  }
 135 
  }
136 
  print "DONE!", $h->br, $h->br;
 136 
  print "DONE!", $h->br, $h->br;
Line 137... Line 137...
137
137