Version 2.1: Now counting the instances of a project language variant specific.

Author: sbuchali

README.md

@@ -1,5 +1,5 @@
 # TemplateDependenceChecker
-_Version 2.0_
+_Version 2.1_
 
 "TemplateDependenceChecker" is a SmartTree enhancement for the Opentext Website Management Server allowing to check the assignment of every template of a content class within all connected projects.
 
@@ -13,7 +13,8 @@ This is third party software. The author is not affiliated in any manner with Op
 
 Copy the folder "TemplateDependenceChecker" into the folder "plugins" of your CMS installation.  
 Switch to Server Manager and import the plugin via "Administer Plug-Ins" - "Plug-Ins", action menu "Import Plug-In".  
-Assign it to all your desired projects and set the appropriate user rights there if necessary.
+Assign it to all your desired projects and set the appropriate user rights there if necessary.  
+Activate it.
 
 The plugin then appears in the action menu of every content class node within these projects.
 
@@ -27,8 +28,9 @@ This file contains the dialog box the plugin will start with. Translate the germ
 
 This file contains the plugin script itself. Translate the german variables (lines 21-32) if necessary.
 
-The plugin must be run under an administrator account. Please enter the corresponding login data. This user must have the role "Administrator" and "Template 
-Editor" in all projects, and the number of allowed sessions should be set to at least 2.
+The plugin must be run under an administrator account. Please enter the corresponding login data in lines 18+19.  
+This user must have the role "Administrator" and "Template Editor" in all projects, and the number of allowed sessions should be set to at least 2.  
+The user also must have access to all language variants in every project. If a language variant is denied for him, it will not occur in the report, and there will be no error message regarding this.
 
 ## How to use
 
@@ -45,14 +47,16 @@ Finally it will show a report that lists:
   - Which one is not assigned at all.
   - The number of active instances of the content class
 
-The report looks like the following:
+The report looks like the following block. This block repeats for each project:
 
 ```
 Project: <Name of the connected project>
 
 <Name of the 1st template>: -  
-<Name of the 2nd template >: Assigned to <Number> project variants  
-<Number> Instances
+<Name of the 2nd template >: Assigned to <Number> project variants
+
+<Name of language variant 1>: <Number> Instances
+<Name of language variant 2>: <Number> Instances
 ```
 
 (The "-" after the first template means that it is not assigned).
@@ -68,6 +72,28 @@ The following error messages can occur:
 - "Content class not found" (Variable `dlgContentClassNotFound`):  
   The content class cannot be accessed (e.g. due to authorization packets).
 
+## Changelog
+
+**Version 2.1**  
+May 31, 2017  
+Language specific counting of instances
+
+**Version 2.0**  
+September 10, 2014  
+Add counting instances
+
+**Version 1.2**  
+October 25, 2013  
+Adaption for version 11 (ENU instead of ENG in plugin XML file)
+
+**Version 1.1**  
+April 28, 2011  
+Adaption for version 10 (ASP object changed)
+
+**Version 1.0**  
+May 6, 2009  
+Plugin created
+
 ## License and exclusion of liability
 
 This software is licensed under a [Creative Commons GNU General Public License](http://creativecommons.org/licenses/GPL/2.0/). Some rights reserved.
@@ -91,22 +117,4 @@ You may exercise the freedoms specified here provided that you comply with the e
 - If you modify your copy or copies of the program or any portion of it, or develop a program based upon it, you may distribute the resulting work provided you do so under the GNU General Public License. Any translation of the GNU General Public License must be accompanied by the GNU General Public License.
 - If you copy or distribute the program, you must accompany it with the complete corresponding machine-readable source code or with a written offer, valid for at least three years, to furnish the complete corresponding machine-readable source code.
 
-Any of the above conditions can be waived if you get permission from the copyright holder.
-
-## Changelog
-
-**Version 2.0**  
-September 10, 2014  
-Add counting instances
-
-**Version 1.2**  
-October 25, 2013  
-Adaption for version 11 (ENU instead of ENG in plugin XML file)
-
-**Version 1.1**  
-April 28, 2011  
-Adaption for version 10 (ASP object changed)
-
-**Version 1.0**  
-May 6, 2009  
-Plugin created
+Any of the above conditions can be waived if you get permission from the copyright holder.

TemplateDependenceChecker.xml

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <PLUGINS>
-	<PLUGIN name="SF Tools: TemplateDependenceChecker" url="TemplateDependenceChecker/TemplateDependenceChecker_dlg.asp" compatibility="7.5" company="SF eBusiness GmbH" contact="Stefan Buchali" email="stefan.buchali@sfe.de" telefon="07032/932-303" website="www.sfe.de">
+	<PLUGIN name="SF Tools: TemplateDependenceChecker" url="TemplateDependenceChecker/TemplateDependenceChecker_dlg.asp" compatibility="7.5" company="UDG United Digital Group" contact="Stefan Buchali" email="stefan.buchali@udg.de" telefon="+49 7032 932 303" website="www.udg.de">
 		<DESCRIPTIONS>
 			<DEU name="Template-Verwendung in Tochterprojekten anzeigen"/>
 			<ENG name="Show template usage in child projects"/>

TemplateDependenceChecker_do.asp

@@ -60,6 +60,10 @@ set XMLTemplatesDoc = Server.CreateObject("MSXML2.DOMDocument")
 XMLTemplatesDoc.async = false
 XMLTemplatesDoc.validateOnParse = false
 	
+set XMLLanguagesDoc = Server.CreateObject("MSXML2.DOMDocument")
+XMLLanguagesDoc.async = false
+XMLLanguagesDoc.validateOnParse = false
+	
 ' RedDot Object fuer RQL-Zugriffe anlegen
 set objIO = Server.CreateObject("OTWSMS.AspLayer.PageData")
 
@@ -188,13 +192,46 @@ if InStr(ServerAnswer,"guid")>0 then
 
 					Set TemplateVariantList = nothing
 					
-					'Instanzen zählen
+					'Verfügbare Sprachen auslesen
 					xmlSendDoc=	"<IODATA loginguid=""" & RqlAdmLoginGUID & """ sessionkey=""" & RqlAdmSessionKey & """>"&_
-									"<PAGE action=""search"" templateguid=""" & TemplateToCheckGUID & """ flags=""0"" maxrecords=""999999""/>"&_
+									"<PROJECT>"&_
+										"<LANGUAGEVARIANTS action=""list""/>"&_
+									"</PROJECT>"&_
 								"</IODATA>"
 					ServerAnswer = objIO.ServerExecuteXml (xmlSendDoc, sError)
-					XMLDoc.loadXML(ServerAnswer)
-					resultStr = resultStr & "<p>" & XMLDoc.SelectNodes("//PAGE").length & " " & dlgInstances & "</p>"
+					XMLLanguagesDoc.loadXML(ServerAnswer)
+
+					CurrentLangGuid = XMLLanguagesDoc.selectSingleNode("//LANGUAGEVARIANT[@checked='1']").getAttribute("guid")
+
+					resultStr = resultStr & "<p>"
+					Set IterateLanguages = XMLLanguagesDoc.selectNodes("//LANGUAGEVARIANT")
+					for each IterateLanguage in IterateLanguages
+						'Umschalten zur Sprache
+						xmlSendDoc=	"<IODATA loginguid=""" & RqlAdmLoginGUID & """ sessionkey=""" & RqlAdmSessionKey & """>"&_
+														"<PROJECT>"&_
+															"<LANGUAGEVARIANT action=""setactive"" guid="""&IterateLanguage.getAttribute("guid")&"""/>"&_
+														"</PROJECT>"&_
+													"</IODATA>"
+						ServerAnswer = objIO.ServerExecuteXml (xmlSendDoc, sError)
+
+						'Instanzen zählen
+						xmlSendDoc=	"<IODATA loginguid=""" & RqlAdmLoginGUID & """ sessionkey=""" & RqlAdmSessionKey & """>"&_
+										"<PAGE action=""search"" templateguid=""" & TemplateToCheckGUID & """ flags=""0"" maxrecords=""999999""/>"&_
+									"</IODATA>"
+						ServerAnswer = objIO.ServerExecuteXml (xmlSendDoc, sError)
+						XMLDoc.loadXML(ServerAnswer)
+						resultStr = resultStr & IterateLanguage.getAttribute("name") & " (" & IterateLanguage.getAttribute("language") & "): " & XMLDoc.SelectNodes("//PAGE").length & " " & dlgInstances & "<br />"
+					next
+					Set IterateLanguages = nothing
+					resultStr = resultStr & "</p>"
+
+					'Zurückschalten zur Anfangsprache
+					xmlSendDoc=	"<IODATA loginguid=""" & RqlAdmLoginGUID & """ sessionkey=""" & RqlAdmSessionKey & """>"&_
+													"<PROJECT>"&_
+														"<LANGUAGEVARIANT action=""setactive"" guid=""" & CurrentLangGuid & """/>"&_
+													"</PROJECT>"&_
+												"</IODATA>"
+					ServerAnswer = objIO.ServerExecuteXml (xmlSendDoc, sError)
 					
 				else
 					resultStr = resultStr & "<p><b>" & dlgError & ": " & dlgContentClassNotFound & "!</b></p>"
@@ -229,6 +266,7 @@ set XMLDoc = nothing
 set XMLFoldersDoc = nothing
 set XMLProjDoc = nothing
 set XMLTemplatesDoc = nothing
+set XMLLanguagesDoc = nothing
 set objIO = nothing
 %>
 <html>