From: Torbjorn T. <et...@us...> - 2005-07-25 18:55:03
|
Update of /cvsroot/jungerl/jungerl/lib/ysql/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2861/src Modified Files: ysql.erl Log Message: Added general SQL Query page. Index: ysql.erl =================================================================== RCS file: /cvsroot/jungerl/jungerl/lib/ysql/src/ysql.erl,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- ysql.erl 25 Jul 2005 07:54:18 -0000 1.1 +++ ysql.erl 25 Jul 2005 18:54:39 -0000 1.2 @@ -259,13 +259,23 @@ describe_table(Y, Table) -> case odbc:describe_table(Y#ysql.odbc, Table) of {ok, L} -> - mk_sql_tab(Table, t2l(L)); + mk_sql_tab(Y, Table, t2l(L)); Else -> ?elog("describe_table: cmd failed: ~p~n", [Else]), {html, []} end. -mk_sql_tab(Table, Rows) -> +show_create_table(Y, Table) -> + case odbc:sql_query(Y#ysql.odbc, "SHOW CREATE TABLE "++Table++";") of + {selected, _, [{_,Cmd}]} -> + Cmd; + Else -> + ?elog("show_create_table: cmd failed: ~p~n", [Else]), + [] + end. + +mk_sql_tab(Y, Table, Rows) -> + Cmd = show_create_table(Y, Table), Headers = ["Name", "Type"], {ehtml, [{form, [{method, post}, @@ -299,7 +309,14 @@ {type, radio}, {value, "o_"++hd(Row)}]}}] } - end, Rows)]}]}]}]}. + end, Rows)]}]}, + {'div', [{class, "table_create_cmd"}], + {pre_html, nl2br(Cmd)}} + ]}]}. + +nl2br([$\n|T]) -> [$<,$b,$r,$>|nl2br(T)]; +nl2br([H|T]) -> [H|nl2br(T)]; +nl2br([]) -> []. cond_select(Field) -> [{td, [], |