oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

better debug

Browse source
This commit is contained in:
JT Smith 2004-08-10 22:53:08 +00:00
parent d341a9506a
commit 5a182e5971
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
docs/upgrades/upgrade_5.9.9-6.0.0.pl
View file

@ -842,7 +842,7 @@ $replace{'t'} = {
my ($sth, $data, $code, $table, $column, %identifier); my ($sth, $data, $code, $table, $column, %identifier);
foreach $table (keys %dbFields){ foreach $table (keys %dbFields){
$sth = WebGUI::SQL->read("SELECT * FROM $table "); $sth = WebGUI::SQL->read("SELECT * FROM $table ");
die "Cannot read from table $table " if ($!); die "Cannot read from table $table ".$! if ($!);
while ($data = $sth->hashRef){ while ($data = $sth->hashRef){
foreach $column (@{$dbFields{$table}{fields}}){ foreach $column (@{$dbFields{$table}{fields}}){
$code = $data->{$column}; $code = $data->{$column};