###################
+use strict;
+
die("This script cannot be run from the command line.") unless ($main::form);
+# import vars from caller
+our ($dbup_locale, $dbup_myconfig, $dbh, $iconv);
+
sub mydberror {
my ($msg) = @_;
die($dbup_locale->text("Database update error:") .
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);
}