hamradio/cqrlog
1
0
Fork 0
mirror of https://github.com/ok2cqr/cqrlog.git synced 2024-09-22 02:47:19 +00:00
Code Issues Packages Projects Releases Wiki Activity

upload_status table was not inicialized when create new log database - fixed

Browse Source
This commit is contained in:
Petr Hlozek 2013-12-29 14:09:39 +01:00
parent f99804668d
commit 84893c090d
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/dData.pas
View File

@ -456,6 +456,25 @@ begin
if fDebugLevel>=1 then Writeln(mQ.SQL.Text);
mQ.ExecSQL;
trmQ.Commit;
trmQ.StartTransaction;
mQ.SQL.Text := 'insert into log_changes (id,cmd) values(1,'+QuotedStr(C_ALLDONE)+')';
if fDebugLevel>=1 then Writeln(mQ.SQL.Text);
mQ.ExecSQL;
mQ.SQL.Text := 'insert into upload_status (logname, id_log_changes) values ('+QuotedStr(C_HAMQTH)+',1)';
if fDebugLevel>=1 then Writeln(mQ.SQL.Text);
mQ.ExecSQL;
mQ.SQL.Text := 'insert into upload_status (logname, id_log_changes) values ('+QuotedStr(C_CLUBLOG)+',1)';
if fDebugLevel>=1 then Writeln(mQ.SQL.Text);
mQ.ExecSQL;
mQ.SQL.Text := 'insert into upload_status (logname, id_log_changes) values ('+QuotedStr(C_HRDLOG)+',1)';
if fDebugLevel>=1 then Writeln(mQ.SQL.Text);
mQ.ExecSQL;
trmQ.Commit;
RefreshLogList(nr)
end;