Code cleaning

Redaction/Clean.xba

@@ -102,7 +102,7 @@ End Sub
 
 Private Sub quietCleaning
 	Dim description As String
-	Dim statusIndicator as Object
+	Dim statusIndicator As Object
 	statusIndicator = ThisComponent.getCurrentController.statusIndicator
 	description = "Вы уверены, что хотите выполнить чистку документа?"
 	If NOT confirm(description) Then
@@ -442,7 +442,6 @@ Private Function getTemplatePath() as String
     params(0).Name = "nodepath"
     params(0).Value = "/org.openoffice.Office.Paths/Paths"
     settings = configProvider.createInstanceWithArguments("com.sun.star.configuration.ConfigurationAccess", params() )
-
     path = settings.Template.WritePath
     convService = CreateUnoService("com.sun.star.util.PathSubstitution")
     path = convService.substituteVariables(path, true)

Redaction/Configuration.xba

@@ -14,7 +14,7 @@ Function initRedactionConfiguration()
 
    	redactionProps = reg.openPropertySet(redactionExtensionName, TRUE)
    	redactionProps.addProperty("complexity", 128, "user")
-	initConfigureation = redactionProps
+	initRedactionConfiguration = redactionProps
 	exceptionHandler:
     Resume Next
 	initRedactionConfiguration = redactionProps

Redaction/Validation.xba

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markval1
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markval2
 
 End Sub
 
@@ -84,8 +84,7 @@ Private Function checkGraphics() As String
 	Dim drawingN As Long
 	drawingN = 0
 	drawPages = ThisComponent.DrawPage
-&apos;	Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
+	Dim i As Integer
-&apos;	MRI ThisComponent
 	count = drawPages.getCount()
 	For i = 0 to count-1
 		draw = drawPages.getByIndex(i)
@@ -94,10 +93,7 @@ Private Function checkGraphics() As String
 			drawingN = drawingN + 1 
 		EndIf	
 		If InStr(shapeType,&quot;FrameShape&quot;) = 1 Then
-&apos;		  		Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
-&apos;			MRI draw
 			If draw.supportsService(&quot;com.sun.star.text.TextEmbeddedObject&quot;) Then
-
 				embeededObject = draw.getEmbeddedObject()
 				If IsNull(embeededObject) Then
 					badFrame = badFrame + 1 
@@ -137,9 +133,10 @@ Private Function checkAllFootnotes() As String
 	result = &quot;&quot;
 	footnotes = ThisComponent.Footnotes
 	count = footnotes.getCount
+	Dim i As Integer
+	Dim j As Integer
 	For i = 0 to count-1
 		footnote = footnotes.getByIndex(i)
-&apos;		Mri footnote
 		label = footnote.Label
 		charNum = Len(label)
 		For j = 1 to charNum
@@ -165,8 +162,10 @@ Private Sub printNumberingSymbols(needExtendedInfo)
 	Dim fontName As String
 	Dim result As String  
 	Dim resultBad As String
-    dim excerpt As String
+    Dim excerpt As String
-    dim exLength As Integer
+    Dim exLength As Integer
+   	Dim report As String
+    Dim k As Integer
 	families = ThisComponent.StyleFamilies
 	numStyles = families.getByName(&quot;NumberingStyles&quot;)
 	result = &quot;&quot;
@@ -213,7 +212,7 @@ Private Sub printNumberingSymbols(needExtendedInfo)
 		  EndIf
 		EndIf
 	Loop
-	dim report as String
+
 	report = &quot;&quot;
 	If result = &quot;&quot; AND resultBad = &quot;&quot; Then
 		Exit sub
@@ -242,6 +241,8 @@ Private Sub showTrackedChanges
 end Sub
 
 Private Sub StartTracking
+	Dim dispatcher As Object
+	Dim document As Object
 	dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;)
 	document   = ThisComponent.CurrentController.Frame
 	dim trackProperties(0) as new com.sun.star.beans.PropertyValue
@@ -255,13 +256,15 @@ Private Sub StartTracking
 End Sub
 
 Private Sub StopTracking
+	Dim dispatcher As Object
+	Dim document As Object
 	dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;)
 	document   = ThisComponent.CurrentController.Frame
-	dim trackProperties(0) as new com.sun.star.beans.PropertyValue
+	Dim trackProperties(0) as new com.sun.star.beans.PropertyValue
 	trackProperties(0).Name = &quot;TrackChanges&quot;
 	trackProperties(0).Value = false
 	dispatcher.executeDispatch(document, &quot;.uno:TrackChanges&quot;, &quot;&quot;, 0, trackProperties())
-	dim args1(0) as new com.sun.star.beans.PropertyValue
+	Dim args1(0) as new com.sun.star.beans.PropertyValue
 	args1(0).Name = &quot;ShowTrackedChanges&quot;
 	args1(0).Value = true
 	dispatcher.executeDispatch(document, &quot;.uno:ShowTrackedChanges&quot;, &quot;&quot;, 0, args1())

description.xml

@@ -3,7 +3,7 @@
              xmlns:dep="http://openoffice.org/extensions/description/2006"
              xmlns:xlink="http://www.w3.org/1999/xlink">
   <identifier value="pro.litvinovg.Redaction" />
-  <version value="0.5.9" />
+  <version value="0.5.10" />
   <platform value="all" />
   <display-name>
     <name lang="en">Cleaning and validation documents for publishing in html and epub with pagination</name>