From 8adbeedd98fd44dfa769d04a4279269b8adeccf7 Mon Sep 17 00:00:00 2001
From: Sam Gamgee <smakalist@gmail.com>
Date: Tue, 18 Jun 2019 03:03:42 +1000
Subject: [PATCH] ES analytic was added

---
 docker-compose.yml                        |  1 +
 src/cls/BI/ChampPos.cls                   | 20 ++++++++++++++++++--
 src/cls/BI/Comment.cls                    | 16 ++++++++++++++++
 src/cls/BI/CommentCopy.cls                | 13 +++++++++++++
 src/cls/BI/Member.cls                     | 16 ++++++++++++++++
 src/cls/BI/PC.cls                         | 11 +++++++++++
 src/cls/BI/Post.cls                       | 16 ++++++++++++++++
 src/cls/BI/ViewsHistory.cls               | 19 +++++++++++++++++--
 src/cls/BI/ViewsHistoryCopy.cls           | 15 ++++++++++++++-
 src/cls/Community/Comment.cls             |  9 +++++++++
 src/cls/Community/Member.cls              |  5 +++++
 src/cls/Community/Post.cls                | 13 +++++++++++++
 src/cls/History/ChampionshipPositions.cls |  6 +++---
 src/cls/History/Views.cls                 |  9 +++++++++
 14 files changed, 161 insertions(+), 8 deletions(-)

diff --git a/docker-compose.yml b/docker-compose.yml
index 1480bf4..7ba88bd 100644
--- a/docker-compose.yml
+++ b/docker-compose.yml
@@ -5,5 +5,6 @@ services:
     restart: always
     ports:
       - 52774:52773
+      - 51774:51773
     volumes:
       - ./src:/usr/src
\ No newline at end of file
diff --git a/src/cls/BI/ChampPos.cls b/src/cls/BI/ChampPos.cls
index e1cf4f5..d1c23cb 100644
--- a/src/cls/BI/ChampPos.cls
+++ b/src/cls/BI/ChampPos.cls
@@ -15,7 +15,7 @@ XData Cube [ XMLNamespace = "http://www.intersystems.com/deepsee" ]
       </level>
     </hierarchy>
   </dimension>
-  <dimension name="Group" disabled="false" hasAll="false" allCaption="All Name1" allDisplayName="Name1" type="data" calendar="gregorian" iKnowType="entity" hidden="false" showHierarchies="default">
+  <dimension name="Group" disabled="true" hasAll="false" allCaption="All Name1" allDisplayName="Name1" type="data" calendar="gregorian" iKnowType="entity" hidden="false" showHierarchies="default">
     <additionalDescription>undefined</additionalDescription>
     <hierarchy name="H1" disabled="false" hidden="false">
       <level name="GroupName" disabled="false" sourceProperty="GroupClass.Name" list="false" useDisplayValue="true" useAsFilter="true" hidden="false">
@@ -38,12 +38,18 @@ XData Cube [ XMLNamespace = "http://www.intersystems.com/deepsee" ]
       </level>
     </hierarchy>
   </dimension>
-  <dimension name="Tags" disabled="false" hasAll="false" allCaption="All Tags" allDisplayName="Tags" type="data" hidden="false" showHierarchies="default">
+  <dimension name="Tags" disabled="true" hasAll="false" allCaption="All Tags" allDisplayName="Tags" type="data" calendar="gregorian" iKnowType="entity" hidden="false" showHierarchies="default">
     <hierarchy name="H1" disabled="false" hidden="false">
       <level name="Tags" disabled="false" sourceProperty="GroupClass.Tags" list="true" listDelimiter="," useDisplayValue="true" useAsFilter="true" hidden="false">
       </level>
     </hierarchy>
   </dimension>
+  <dimension name="Language" disabled="false" hasAll="false" allCaption="All Lang" allDisplayName="Lang" type="data" calendar="gregorian" iKnowType="entity" hidden="false" showHierarchies="default">
+    <hierarchy name="H1" disabled="false" hidden="false">
+      <level name="Language" disabled="false" sourceProperty="Member.Lang" list="false" useDisplayValue="true" useAsFilter="true" hidden="false">
+      </level>
+    </hierarchy>
+  </dimension>
   <measure name="Overall" disabled="false" sourceProperty="Overall" aggregate="SUM" type="number" hidden="false" searchable="false">
   </measure>
   <measure name="CommentVotes" disabled="false" sourceProperty="CommentVotes" aggregate="SUM" type="number" hidden="false" searchable="false">
@@ -93,5 +99,15 @@ ClassMethod GSContestOrAllDate(date As %Date, groupName As %String) As %String
 
 Parameter DOMAIN;
 
+ClassMethod %OnGetFilterSpec(pFilterSpec As %String) As %String
+{
+	if ($username = "esdevcom") {
+	//if ($username = "UnknownUser") {
+		quit "[Language].[H1].[Language].[es]"
+	} else {
+		quit "[Language].[H1].[Language].[en]"
+	}
+}
+
 }
 
diff --git a/src/cls/BI/Comment.cls b/src/cls/BI/Comment.cls
index 82c2781..602873b 100644
--- a/src/cls/BI/Comment.cls
+++ b/src/cls/BI/Comment.cls
@@ -71,6 +71,12 @@ XData Cube [ XMLNamespace = "http://www.intersystems.com/deepsee" ]
       </level>
     </hierarchy>
   </dimension>
+  <dimension name="Language" disabled="false" hasAll="false" allCaption="All Lang" allDisplayName="Lang" type="data" calendar="gregorian" iKnowType="entity" hidden="false" showHierarchies="default">
+    <hierarchy name="H1" disabled="false" hidden="false">
+      <level name="Language" disabled="false" sourceProperty="Lang" list="false" useDisplayValue="true" useAsFilter="true" hidden="false">
+      </level>
+    </hierarchy>
+  </dimension>
   <measure name="CommentRating" displayName="Comment Rating" disabled="false" sourceProperty="AvgVote" aggregate="SUM" type="number" scale="0" hidden="false" searchable="false">
   </measure>
   <listing name="New_listing1" disabled="false" listingType="table" fieldList="Link,Post-&gt;Name As Post,AvgVote as Rating,Created,&apos;&lt;a href=&quot;&apos;||$Extract(Author-&gt;Link,7,Length(Author-&gt;Link))||&apos;&quot; target=&quot;_blank&quot; onclick=&quot;var e=event||window.event;e.stopPropagation();e.cancelBubble=true;&quot;&gt;&apos;||Author-&gt;Name||&apos;&lt;/a&gt;&apos; As Author">
@@ -154,6 +160,16 @@ ClassMethod GetDaysNumber(date, id)
 	Quit result
 }
 
+ClassMethod %OnGetFilterSpec(pFilterSpec As %String) As %String
+{
+	if ($username = "esdevcom") {
+	//if ($username = "UnknownUser") {
+		quit "[Language].[H1].[Language].[es]"
+	} else {
+		quit "[Language].[H1].[Language].[en]"
+	}
+}
+
 Parameter DOMAIN;
 
 }
diff --git a/src/cls/BI/CommentCopy.cls b/src/cls/BI/CommentCopy.cls
index 7790aed..76baffc 100644
--- a/src/cls/BI/CommentCopy.cls
+++ b/src/cls/BI/CommentCopy.cls
@@ -10,6 +10,8 @@ XData Cube [ XMLNamespace = "http://www.intersystems.com/deepsee" ]
 <cube xmlns="http://www.intersystems.com/deepsee" name="CommentCopy" displayName="CommentCopy" disabled="false" abstract="false" sourceClass="Community.Comment" buildRestriction="Post-&gt;Deleted = 0" countMeasureName="COMCOUNT" bucketSize="8" bitmapChunkInMemory="false" precompute="0" disableListingGroups="false">
   <dimension name="AuthorName" disabled="false" sharesFrom="Post" hasAll="false" allCaption="All AuthorName" allDisplayName="AuthorName" type="data" hidden="false" showHierarchies="default">
   </dimension>
+  <dimension name="Language" disabled="false" sharesFrom="Post" hasAll="false" allCaption="All Language" allDisplayName="Language" type="data" hidden="false" showHierarchies="default">
+  </dimension>
   <measure name="Comments" disabled="false" sourceProperty="Id" aggregate="COUNT" type="number" scale="0" hidden="false" searchable="false">
   </measure>
   <measure name="Comment points" disabled="false" sourceExpression="((%source.AvgVote)*(%source.VotesAmount))" aggregate="AVG" type="integer" hidden="false" searchable="false">
@@ -62,6 +64,17 @@ ClassMethod GetGroupName(postId, prop As %String) As %String
 	Quit result
 }
 
+/*
+ClassMethod %OnGetFilterSpec(pFilterSpec As %String) As %String
+{
+	if ($username = "esdevcom") {
+	//if ($username = "UnknownUser") {
+		quit "[Language].[H1].[Language].[es]"
+	} else {
+		quit "[Language].[H1].[Language].[en]"
+	}
+}
+*/
 Parameter DOMAIN;
 
 }
diff --git a/src/cls/BI/Member.cls b/src/cls/BI/Member.cls
index 6a77a15..664b591 100644
--- a/src/cls/BI/Member.cls
+++ b/src/cls/BI/Member.cls
@@ -37,6 +37,12 @@ XData Cube [ XMLNamespace = "http://www.intersystems.com/deepsee" ]
       </level>
     </hierarchy>
   </dimension>
+  <dimension name="Language" disabled="false" hasAll="false" allCaption="All Lang" allDisplayName="Lang" type="data" calendar="gregorian" iKnowType="entity" hidden="false" showHierarchies="default">
+    <hierarchy name="H1" disabled="false" hidden="false">
+      <level name="Language" disabled="false" sourceProperty="Lang" list="false" useDisplayValue="true" useAsFilter="true" hidden="false">
+      </level>
+    </hierarchy>
+  </dimension>
   <measure name="MembersAmountBeforeDate" disabled="true" sourceExpression="%cube.GetMembersAmountBeforeDate(%source.Created)" aggregate="MAX" type="integer" hidden="false" searchable="false">
   </measure>
   <measure name="Views" disabled="true" sourceExpression="%cube.GetViewsOfAuthor(%source.%ID)" aggregate="SUM" type="number" hidden="false" searchable="false">
@@ -116,6 +122,16 @@ ClassMethod GetViewsOfAuthor(authorId) As %Integer
 	Quit result
 }
 
+ClassMethod %OnGetFilterSpec(pFilterSpec As %String) As %String
+{
+	if ($username = "esdevcom") {
+	//if ($username = "UnknownUser") {
+		quit "[Language].[H1].[Language].[es]"
+	} else {
+		quit "[Language].[H1].[Language].[en]"
+	}
+}
+
 Parameter DOMAIN;
 
 }
diff --git a/src/cls/BI/PC.cls b/src/cls/BI/PC.cls
index f13c5c7..6dfb19b 100644
--- a/src/cls/BI/PC.cls
+++ b/src/cls/BI/PC.cls
@@ -9,6 +9,17 @@ XData SubjectArea [ XMLNamespace = "http://www.intersystems.com/deepsee/subjecta
 </subjectArea>
 }
 
+/*
+ClassMethod %OnGetFilterSpec(pFilterSpec As %String) As %String
+{
+	if ($username = "esdevcom") {
+	//if ($username = "UnknownUser") {
+		quit "[Language].[H1].[Language].[es]"
+	} else {
+		quit "[Language].[H1].[Language].[en]"
+	}
+}
+*/
 Parameter DOMAIN;
 
 }
diff --git a/src/cls/BI/Post.cls b/src/cls/BI/Post.cls
index 0183fc4..ff2d2d4 100644
--- a/src/cls/BI/Post.cls
+++ b/src/cls/BI/Post.cls
@@ -133,6 +133,12 @@ XData Cube [ XMLNamespace = "http://www.intersystems.com/deepsee" ]
       </level>
     </hierarchy>
   </dimension>
+  <dimension name="Language" disabled="false" hasAll="false" allCaption="All Lang" allDisplayName="Lang" type="data" calendar="gregorian" iKnowType="entity" hidden="false" showHierarchies="default">
+    <hierarchy name="H1" disabled="false" hidden="false">
+      <level name="Language" disabled="false" sourceProperty="Lang" list="false" useDisplayValue="true" useAsFilter="true" hidden="false">
+      </level>
+    </hierarchy>
+  </dimension>
   <measure name="CommentsAmount" disabled="false" sourceProperty="CommentsAmount" aggregate="SUM" type="number" hidden="false" searchable="false">
   </measure>
   <measure name="Posts" disabled="false" sourceProperty="%ID" aggregate="COUNT" type="number" hidden="false" searchable="false" formatString="#">
@@ -243,6 +249,16 @@ ClassMethod GetDaysNumber(date, id)
 	Quit result
 }
 
+ClassMethod %OnGetFilterSpec(pFilterSpec As %String) As %String
+{
+	if ($username = "esdevcom") {
+	//if ($username = "UnknownUser") {
+		quit "[Language].[H1].[Language].[es]"
+	} else {
+		quit "[Language].[H1].[Language].[en]"
+	}
+}
+
 Parameter DOMAIN;
 
 }
diff --git a/src/cls/BI/ViewsHistory.cls b/src/cls/BI/ViewsHistory.cls
index e1b9c2d..990f2a5 100644
--- a/src/cls/BI/ViewsHistory.cls
+++ b/src/cls/BI/ViewsHistory.cls
@@ -62,6 +62,12 @@ XData Cube [ XMLNamespace = "http://www.intersystems.com/deepsee" ]
       </level>
     </hierarchy>
   </dimension>
+  <dimension name="Language" disabled="false" hasAll="false" allCaption="All Lang" allDisplayName="Lang" type="data" calendar="gregorian" iKnowType="entity" hidden="false" showHierarchies="default">
+    <hierarchy name="H1" disabled="false" hidden="false">
+      <level name="Language" disabled="false" sourceProperty="Lang" list="false" useDisplayValue="true" useAsFilter="true" hidden="false">
+      </level>
+    </hierarchy>
+  </dimension>
   <measure name="ViewsH" disabled="false" sourceProperty="Views" aggregate="SUM" type="number" hidden="false" searchable="false" formatString="#">
   </measure>
   <measure name="Delta" disabled="false" sourceProperty="Delta" aggregate="SUM" type="number" hidden="false" searchable="false" formatString="#,#">
@@ -70,8 +76,7 @@ XData Cube [ XMLNamespace = "http://www.intersystems.com/deepsee" ]
   </measure>
   <calculatedMember name="ViewsAVG" disabled="false" dimension="Measures" valueExpression="Measures.VIewsH/Measures.%Count" hidden="false">
   </calculatedMember>
-  <calculatedMember name="ViewsMonthlyAVGRT" disabled="false" dimension="Measures" valueExpression="AGGREGATE([DateDimension].[H2].[MonthYear].CurrentMember.LASTCHILD,MEASURES.ViewsAVG)
-" formatString="#" hidden="false">
+  <calculatedMember name="ViewsMonthlyAVGRT" disabled="false" dimension="Measures" valueExpression="AGGREGATE([DateDimension].[H2].[MonthYear].CurrentMember.LASTCHILD,MEASURES.ViewsAVG) " formatString="#" hidden="false">
   </calculatedMember>
   <listing name="New_listing1" disabled="false" listingType="table" fieldList="Post-&gt;Link,Post-&gt;Name,Post-&gt;Created,Post-&gt;Views">
     <additionalDescription>undefined</additionalDescription>
@@ -79,6 +84,16 @@ XData Cube [ XMLNamespace = "http://www.intersystems.com/deepsee" ]
 </cube>
 }
 
+ClassMethod %OnGetFilterSpec(pFilterSpec As %String) As %String
+{
+	if ($username = "esdevcom") {
+	//if ($username = "UnknownUser") {
+		quit "[Language].[H1].[Language].[es]"
+	} else {
+		quit "[Language].[H1].[Language].[en]"
+	}
+}
+
 Parameter DOMAIN;
 
 }
diff --git a/src/cls/BI/ViewsHistoryCopy.cls b/src/cls/BI/ViewsHistoryCopy.cls
index 4ef667b..d0b8a8d 100644
--- a/src/cls/BI/ViewsHistoryCopy.cls
+++ b/src/cls/BI/ViewsHistoryCopy.cls
@@ -1,16 +1,29 @@
 /// 
-Class BI.ViewsHistoryCopy Extends %DeepSee.CubeDefinition [ DependsOn = History.Views, ProcedureBlock ]
+Class BI.ViewsHistoryCopy Extends %DeepSee.CubeDefinition [ DependsOn = (History.Views, BI.Post), ProcedureBlock ]
 {
 
 /// Cube definition from Architect.
 XData Cube [ XMLNamespace = "http://www.intersystems.com/deepsee" ]
 {
 <cube xmlns="http://www.intersystems.com/deepsee" name="ViewsHistoryCopy" displayName="ViewsHistoryCopy" disabled="false" abstract="false" sourceClass="History.Views" countMeasureName="ViewsCount" bucketSize="8" bitmapChunkInMemory="false" precompute="0" disableListingGroups="false">
+  <dimension name="Language" disabled="false" sharesFrom="Post" hasAll="false" allCaption="All Language" allDisplayName="Language" type="data" hidden="false" showHierarchies="default">
+  </dimension>
   <measure name="ViewsH" disabled="false" sourceProperty="Views" aggregate="SUM" type="number" hidden="false" searchable="false">
   </measure>
 </cube>
 }
 
+/*
+ClassMethod %OnGetFilterSpec(pFilterSpec As %String) As %String
+{
+	if ($username = "esdevcom") {
+	//if ($username = "UnknownUser") {
+		quit "[Language].[H1].[Language].[es]"
+	} else {
+		quit "[Language].[H1].[Language].[en]"
+	}
+}
+*/
 Parameter DOMAIN;
 
 }
diff --git a/src/cls/Community/Comment.cls b/src/cls/Community/Comment.cls
index 33798f1..8c0b7d4 100644
--- a/src/cls/Community/Comment.cls
+++ b/src/cls/Community/Comment.cls
@@ -44,6 +44,9 @@ Index TextHashIndex On TextHash;
 
 Property AcceptedAnswerTS As %TimeStamp;
 
+/// This is fake property, please don't use it in DeepSee
+Property Lang As %String [ Calculated, SqlComputeCode = {set {*} = ##class(Community.Post).%OpenId({Post}).Lang}, SqlComputed ];
+
 Storage Default
 {
 <Data name="CommentDefaultData">
@@ -89,6 +92,12 @@ Storage Default
 <Value name="14">
 <Value>AcceptedAnswerTS</Value>
 </Value>
+<Value name="15">
+<Value>Language</Value>
+</Value>
+<Value name="16">
+<Value>Lang</Value>
+</Value>
 </Data>
 <DataLocation>^Community.CommentD</DataLocation>
 <DefaultData>CommentDefaultData</DefaultData>
diff --git a/src/cls/Community/Member.cls b/src/cls/Community/Member.cls
index 024c031..25d3bf8 100644
--- a/src/cls/Community/Member.cls
+++ b/src/cls/Community/Member.cls
@@ -27,6 +27,8 @@ Index Link On Link [ Unique ];
 
 Property Hash As %String;
 
+Property Lang As %String;
+
 Relationship Posts As Community.Post [ Cardinality = many, Inverse = Author ];
 
 Relationship Comments As Community.Comment [ Cardinality = many, Inverse = Author ];
@@ -69,6 +71,9 @@ Storage Default
 <Value name="11">
 <Value>Hash</Value>
 </Value>
+<Value name="12">
+<Value>Lang</Value>
+</Value>
 </Data>
 <DataLocation>^Community.Public.MemberD</DataLocation>
 <DefaultData>MemberDefaultData</DefaultData>
diff --git a/src/cls/Community/Post.cls b/src/cls/Community/Post.cls
index f97ca8b..21dbb76 100644
--- a/src/cls/Community/Post.cls
+++ b/src/cls/Community/Post.cls
@@ -54,8 +54,12 @@ Property SubsCount As %Integer;
 
 Property HasCorrectAnswer As %Boolean;
 
+Property FavsCount As %Integer;
+
 Property AcceptedAnswerTS As %TimeStamp;
 
+Property Lang As %String;
+
 ClassMethod GetCommentsAmount(id) As %Integer
 {
 	set result = 0
@@ -131,6 +135,15 @@ Storage Default
 <Value name="21">
 <Value>AcceptedAnswerTS</Value>
 </Value>
+<Value name="22">
+<Value>FavsCount</Value>
+</Value>
+<Value name="23">
+<Value>Language</Value>
+</Value>
+<Value name="24">
+<Value>Lang</Value>
+</Value>
 </Data>
 <DataLocation>^Community.PostD</DataLocation>
 <DefaultData>PostDefaultData</DefaultData>
diff --git a/src/cls/History/ChampionshipPositions.cls b/src/cls/History/ChampionshipPositions.cls
index 6b5e74a..c959801 100644
--- a/src/cls/History/ChampionshipPositions.cls
+++ b/src/cls/History/ChampionshipPositions.cls
@@ -7,9 +7,9 @@ Relationship Member As Community.Member [ Cardinality = one, Inverse = Positions
 
 Index Member On Member;
 
-Relationship GroupClass As Community.Group [ Cardinality = one, Inverse = Positions, OnDelete = cascade ];
+// Relationship GroupClass As Community.Group [ Cardinality = one, Inverse = Positions, OnDelete = cascade ];
 
-Index GroupClass On GroupClass;
+// Index GroupClass On GroupClass;
 
 Property CommentVotes As %Integer;
 
@@ -31,7 +31,7 @@ Property Overall As %Integer [ Calculated, SqlComputeCode = { set {*} = {Comment
 
 Property Added As %Date;
 
-Index MemberAndAddedAndGroup On (Member, Added, GroupClass);
+Index MemberAndAdded On (Member, Added);
 
 Storage Default
 {
diff --git a/src/cls/History/Views.cls b/src/cls/History/Views.cls
index 672a3c4..fa0938a 100644
--- a/src/cls/History/Views.cls
+++ b/src/cls/History/Views.cls
@@ -13,6 +13,9 @@ Property Delta As %Integer;
 
 Index DateOfDataAndPost On (DateOfData, Post) [ Unique ];
 
+/// This is fake property, please don't use it in DeepSee
+Property Lang As %String [ Calculated, SqlComputeCode = {set {*} = ##class(Community.Post).%OpenId({Post}).Lang}, SqlComputed ];
+
 ClassMethod InsertHistoryViews() As %Status
 {
 	set sc = $$$OK
@@ -113,6 +116,12 @@ Storage Default
 <Value name="5">
 <Value>Delta</Value>
 </Value>
+<Value name="6">
+<Value>Language</Value>
+</Value>
+<Value name="7">
+<Value>Lang</Value>
+</Value>
 </Data>
 <DataLocation>^History.ViewsD</DataLocation>
 <DefaultData>ViewsDefaultData</DefaultData>