thinko fix

diff --git a/cgi-bin/pgstatus.pl b/cgi-bin/pgstatus.pl
index df499f5fedb6542b972d34e4568257cc17a273ad..74f6e13bb9884a67afff1dc984575354e769079f 100755 (executable)
--- a/cgi-bin/pgstatus.pl
+++ b/cgi-bin/pgstatus.pl
@@ -238,7 +238,7 @@ my $logst = <<EOSQL;
       (sysname, snapshot,status, stage, log,conf_sum, branch,
        changed_this_run, changed_since_success, 
        log_archive_filenames , log_archive, build_flags, scm, scmurl)
       (sysname, snapshot,status, stage, log,conf_sum, branch,
        changed_this_run, changed_since_success, 
        log_archive_filenames , log_archive, build_flags, scm, scmurl)

-    values(?,?,?,?,?,?,?,?,?,?,?,?,?)
+    values(?,?,?,?,?,?,?,?,?,?,?,?,?,?)

 EOSQL
 ;
 $sth=$db->prepare($logst);
 EOSQL
 ;
 $sth=$db->prepare($logst);


@@ -257,7 +257,7 @@ $sth->bind_param(10,$log_file_names);
 $sth->bind_param(11,undef,{ pg_type => DBD::Pg::PG_BYTEA });
 $sth->bind_param(12,$config_flags);
 $sth->bind_param(13,$scm);
 $sth->bind_param(11,undef,{ pg_type => DBD::Pg::PG_BYTEA });
 $sth->bind_param(12,$config_flags);
 $sth->bind_param(13,$scm);

-$sth->bind_param(13,$scmurl);
+$sth->bind_param(14,$scmurl);

 
 $sth->execute;
 $sth->finish;
 
 $sth->execute;
 $sth->finish;