michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-06-20 19:30:30 +01:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

Use perl to filter out unwanted tables, as _ is a special character in SQL likes https://sourceforge.net/p/webadmin/bugs/4614/

Browse Source
This commit is contained in:
Jamie Cameron
2015-06-17 19:55:13 -07:00
parent 98c2a76499
commit be4da986ec
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
postgresql/postgresql-lib.pl
View File

@@ -167,12 +167,13 @@ return $t->{'data'}->[0]->[0] ? 1 : 0;
sub list_tables
{
if (&supports_schemas($_[0])) {
local $t = &execute_sql_safe($_[0], 'select schemaname,tablename from pg_tables where tablename not like \'pg_%\' and tablename not like \'sql_%\' order by tablename');
return map { ($_->[0] eq "public" ? "" : $_->[0].".").$_->[1] } @{$t->{'data'}};
local $t = &execute_sql_safe($_[0], 'select schemaname,tablename from pg_tables order by tablename');
return map { ($_->[0] eq "public" ? "" : $_->[0].".").$_->[1] }
grep { $_->[1] !~ /^(pg|sql)_/ } @{$t->{'data'}};
}
else {
local $t = &execute_sql_safe($_[0], 'select tablename from pg_tables where tablename not like \'pg_%\' and tablename not like \'sql_%\' order by tablename');
return map { $_->[0] } @{$t->{'data'}};
local $t = &execute_sql_safe($_[0], 'select tablename from pg_tables order by tablename');
return map { $_->[0] } grep { $_->[0] !~ /^(pg|sql)_/ } @{$t->{'data'}};
}
}