@lloy0076
>> Do you really think the kernel is the problem?
>It could be -- try using the Kernel RPMS created by RedHat and see if
>there are any updates on www.redhat.com.
I use the newest rpm found on the ftp server (as well as on the homepage).
kernel-2.4.9-31
@wim
I just reworte view-table.epl...it isn't faster than before....
Here is the new version (the display of the number of lines isn't workling any
more :(
Maybe you can tell me what i do false:
(See attached file: view-table.epl)
THX Alex
Title: SQL table lister
[-
use nactools;
eval
{
local $SIG{'__DIE__'};
$maxcol = 100;
$maxrow = 10000;
$sort = $fdat{"sort"};
$table = $fdat{"table"};
$sqlcmd = "SELECT * FROM $table ";
if($sort)
{
$sqlcmd .= "ORDER BY $sort ";
}
$dbh = connectdb();
# get column names
$sth = $dbh->prepare($sqlcmd);
$sth->execute;
@colnames = @{$sth->{NAME_uc}};
foreach $index ( 0 .. $#colnames)
{
$colnames[$index] =~ s/ *$//;
if (uc($colnames[$index]) eq uc($fdat{"pkey"}))
{
$pkeycol = $index;
}
}
# get table
# @lines = @{$dbh->selectall_arrayref($sth)};
};
perish($@) if $@;
-]
Table [+ $table +] returned [+ $#lines+1 +] rows
[$ foreach $colname (@colnames) $]
| [+ $colname +] |
[$ endforeach $]
[$ if ($fdat{"pkey"} ne "") $]
|
[$ endif $]
[$ while (@data = "$sth-">fetchrow) $]
[- $bgcolor = ($bgcolor eq "light") ? "dark" : "light" -]
[$ foreach $column (@data) $]
| [+ $column +] |
[$ endforeach $]
[- $record->[$pkeycol] =~ s/ *$//; -]
[$pkeycol] +]&retcmd=[+ $ENV{"REQUEST_URI"} +]">Edit
|
[$ endwhile $]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
