% GETTABLES get a list of database tables
%
% M Hewitson
%
% $Id: getTables.m,v 1.2 2011/04/08 08:56:36 hewitson Exp $
%
function tables = getTables(mainfig)

  % Get conn
  conn = mainfig.connection;

  if ~isempty(conn)
    % get the databases
    q = 'show tables';
    curs = exec(conn, q);
    curs = fetch(curs);

    tables = curs.Data;
    close(curs);
  else
    tables = {'-'};
  end

end