###################
+use strict;
+
die("This script cannot be run from the command line.") unless ($main::form);
sub mydberror {
my $query = $iconv->convert($copy_statements[$statement]);
my $sth = $dbh->prepare($query) || mydberror($query);
- for my $copy_line ( 1 .. $#{$copy_data[$statement]} ) {
+ for my $copy_line ( 0 .. $#{$copy_data[$statement]} ) {
#print $copy_data[$statement][$copy_line] . "<br />"
$sth->execute(split m/;/, $iconv->convert($copy_data[$statement][$copy_line]), -1) || mydberror($query);
}