paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 12:56:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed AV when parsing empty messages in SVN log xml

Browse Source 
added asking for confirmation on empty message

r17175
initialized author to '(no author)' (used in anonymous repositories)
fixed commit messages (writing them to a temp file and using --file switch)
fixed some AVs in parsing SVN log XML
fixed saving of checked status in SVNSettingsForm

git-svn-id: trunk@17176 -
This commit is contained in:
darius 2008-11-01 18:10:22 +00:00
parent 362311dc41
commit 9d2926b3f7
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazsvnpkg/svnlogform.pas
View File

@ -396,11 +396,12 @@ begin
//message
if NodeName = 'msg' then
LogItem.Msg:=ReplaceLineEndings(tmpNode.FirstChild.NodeValue, LineEnding);
if Assigned(tmpNode.FirstChild) then
LogItem.Msg:=ReplaceLineEndings(tmpNode.FirstChild.NodeValue, LineEnding);
end;
ActionNode := tmpNode.FirstChild;
if Assigned(ActionNode.Attributes) then
if Assigned(ActionNode) and Assigned(ActionNode.Attributes) then
repeat
//attributes

5
components/lazsvnpkg/svnstatusform.pas
View File

@ -106,6 +106,11 @@ var
StatusItem : PSVNStatusItem;
FileName: string;
begin
if SVNCommitMsgMemo.Text = '' then
if MessageDlg ('No message set.', 'Do you wish to continue?', mtConfirmation,
[mbYes, mbNo],0) <> mrYes then
exit;
//commit the checked files
CmdLine := SVNExecutable + ' commit --force-log ';