summaryrefslogtreecommitdiff
path: root/helpauthoring
diff options
context:
space:
mode:
authorYousuf Philips <philipz85@hotmail.com>2015-09-13 16:36:49 +0400
committerJan Holesovsky <kendy@collabora.com>2015-09-14 07:18:19 +0000
commit2ddad0eafa26b96fb455eea5245a145e7346ca55 (patch)
treee64e374cc13c454cefe296ee616df3aabce1d605 /helpauthoring
parent84f91a57539f7841cf50c924440f6890341c29c6 (diff)
Dont display unnecessary dialogs
Change-Id: Ica0bc38bd23f298ce3e44e2d1bb8db0acf2c7a62 Reviewed-on: https://gerrit.libreoffice.org/18531 Reviewed-by: Jan Holesovsky <kendy@collabora.com> Tested-by: Jan Holesovsky <kendy@collabora.com>
Diffstat (limited to 'helpauthoring')
-rw-r--r--helpauthoring/HelpAuthoring/OtherElements.xba2
-rw-r--r--helpauthoring/HelpAuthoring/Validate.xba10
2 files changed, 7 insertions, 5 deletions
diff --git a/helpauthoring/HelpAuthoring/OtherElements.xba b/helpauthoring/HelpAuthoring/OtherElements.xba
index e718ac2f..c93bc816 100644
--- a/helpauthoring/HelpAuthoring/OtherElements.xba
+++ b/helpauthoring/HelpAuthoring/OtherElements.xba
@@ -416,7 +416,7 @@ Sub ToggleParaL10NStatus
If (sID = &quot;&quot;) Then
- msgbox &quot;Paragraph has no ID. Assigning ID.&quot;,48,&quot;Info&quot;
+ &apos;msgbox &quot;Paragraph has no ID. Assigning ID.&quot;,48,&quot;Info&quot;
InsertNewParaData
thiscomponent.getcurrentcontroller.select(oSel(0))
arParaData = GetParaData
diff --git a/helpauthoring/HelpAuthoring/Validate.xba b/helpauthoring/HelpAuthoring/Validate.xba
index 70e07a7c..4e24ecd4 100644
--- a/helpauthoring/HelpAuthoring/Validate.xba
+++ b/helpauthoring/HelpAuthoring/Validate.xba
@@ -43,10 +43,10 @@ Dim bWarnParaNoID As Boolean
Sub ValidateXHP
- Validate
+ Validate( &quot;save&quot; )
End Sub
-Sub Validate
+Sub Validate( optional sOrigin as string )
If not IsHelpFile Then
msgbox(strErr_NoHelpFile)
@@ -102,7 +102,9 @@ Sub Validate
Terminate(&quot;Element &quot;+aTagsOpen(ubound(aTagsOpen()))+&quot; not closed&quot;,TextElement)
End If
- msgbox(&quot;Validation finished.&quot;)
+ if IsMissing(sOrigin) then
+ msgbox(&quot;Validation finished.&quot;)
+ end if
End Sub
@@ -207,7 +209,7 @@ Sub CheckParaID(TE As Object)
If posID = 0 Then
If bWarnParaNoID Then
- Warn(&quot;Paragraph has no ID.&quot;,&quot;IDs will be assigned on save. You can also assign an ID using the Assign Paragraph ID menu item&quot;,TPE)
+ &apos;Warn(&quot;Paragraph has no ID.&quot;,&quot;IDs will be assigned on save. You can also assign an ID using the Assign Paragraph ID menu item&quot;,TPE)
bWarnParaNoID = FALSE
End If