Groups were moved to tags

MakarovS96 · MakarovS96 · commit 3a256495b013 · 2019-01-22T11:34:33.000+10:00
diff --git a/src/cls/BI/Comment.cls b/src/cls/BI/Comment.cls
@@ -1,11 +1,13 @@
+Include Community
+
 /// 
 Class BI.Comment Extends %DeepSee.CubeDefinition [ DependsOn = Community.Comment, ProcedureBlock ]
 {
 
 /// Cube definition from Architect.
 XData Cube [ XMLNamespace = "http://www.intersystems.com/deepsee" ]
 {
-<cube xmlns="http://www.intersystems.com/deepsee" name="Comment" displayName="Comment" disabled="false" abstract="false" sourceClass="Community.Comment" countMeasureName="%COUNT" bucketSize="8" bitmapChunkInMemory="false" precompute="0" disableListingGroups="false">
+<cube xmlns="http://www.intersystems.com/deepsee" name="Comment" displayName="Comment" disabled="false" abstract="false" sourceClass="Community.Comment" buildRestriction="Post-&gt;Deleted = 0 and Post-&gt;Published = 1 " countMeasureName="%COUNT" bucketSize="8" bitmapChunkInMemory="false" precompute="0" disableListingGroups="false">
   <dimension name="Post" disabled="false" hasAll="false" allCaption="All Post" allDisplayName="Post" type="data" hidden="false" showHierarchies="default">
     <hierarchy name="H1" disabled="false" hidden="false">
       <level name="AuthorName" disabled="false" sourceProperty="Post.Author.Name" list="false" useDisplayValue="true" useAsFilter="true" hidden="false">
@@ -22,9 +24,9 @@ XData Cube [ XMLNamespace = "http://www.intersystems.com/deepsee" ]
   </dimension>
   <dimension name="Group" disabled="false" hasAll="false" allCaption="All %ID" allDisplayName="%ID" type="data" calendar="gregorian" iKnowType="entity" hidden="false" showHierarchies="default">
     <hierarchy name="H1" disabled="false" hidden="false">
-      <level name="GroupName" disabled="false" sourceExpression="%cube.GetGroupName(%source.Post.%ID,&quot;Name&quot;)" list="false" useDisplayValue="true" useAsFilter="true" hidden="false">
+      <level name="GroupName" disabled="false" sourceExpression="%cube.GetGroupName(%source.Post.%ID,&quot;Name&quot;)" list="true" listDelimiter="," useDisplayValue="true" useAsFilter="true" hidden="false">
       </level>
-      <level name="PostName" disabled="false" sourceProperty="Post.Name" list="false" useDisplayValue="true" useAsFilter="true" hidden="false">
+      <level name="PostName" disabled="true" sourceProperty="Post.Name" list="false" useDisplayValue="true" useAsFilter="true" hidden="false">
       </level>
     </hierarchy>
   </dimension>
@@ -113,12 +115,21 @@ ClassMethod GetAddedPercent(date)
 ClassMethod GetGroupName(postId, prop As %String) As %String
 {
 	set result = ""
-	set sql = "Select GroupClass->"_prop_" As GroupProp From Community.GroupPost Where Post = ?"
+	/*set sql = "Select GroupClass->"_prop_" As GroupProp From Community.GroupPost Where Post = ?"
 	set rs = ##class(%SQL.Statement).%ExecDirect(,sql, postId)
 	while rs.%Next(){
 		if result = "" {set result = rs.GroupProp}
 		else{set result = result_","_rs.GroupProp}
-	}
+	}*/
+	for i=1:1:$l($$$MainTags,",") set intag($p($$$MainTags,",",i))=""
+	&sql(select tags into :tags from Community.Post where id = :postId)
+	for i=1:1:$l(tags, ",") {
+		set tag = $p(tags, ",", i)
+		if $d(intag(tag)) {
+			if result = "" {set result = tag}
+			else{set result = result_","_tag}
+		}
+	}	
 	Quit result
 }
 
diff --git a/src/cls/BI/CommentCopy.cls b/src/cls/BI/CommentCopy.cls
@@ -1,11 +1,13 @@
+Include Community
+
 /// 
 Class BI.CommentCopy Extends %DeepSee.CubeDefinition [ DependsOn = (Community.Comment, Community.Post), ProcedureBlock ]
 {
 
 /// Cube definition from Architect.
 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" countMeasureName="COMCOUNT" bucketSize="8" bitmapChunkInMemory="false" precompute="0" disableListingGroups="false">
+<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>
   <measure name="Comments" disabled="false" sourceProperty="Id" aggregate="COUNT" type="number" scale="0" hidden="false" searchable="false">
@@ -42,12 +44,21 @@ ClassMethod IsNonOwnPostComment(commentLink)
 ClassMethod GetGroupName(postId, prop As %String) As %String
 {
 	set result = ""
-	set sql = "Select GroupClass->"_prop_" As GroupProp From Community.GroupPost Where Post = ?"
+	/*set sql = "Select GroupClass->"_prop_" As GroupProp From Community.GroupPost Where Post = ?"
 	set rs = ##class(%SQL.Statement).%ExecDirect(,sql, postId)
 	while rs.%Next(){
 		if result = "" {set result = rs.GroupProp}
 		else{set result = result_","_rs.GroupProp}
-	}
+	}*/
+	for i=1:1:$l($$$MainTags,",") set intag($p($$$MainTags,",",i))=""
+	&sql(select tags into :tags from Community.Post where id = :postId)
+	for i=1:1:$l(tags, ",") {
+		set tag = $p(tags, ",", i)
+		if $d(intag(tag)) {
+			if result = "" {set result = tag}
+			else{set result = result_","_tag}
+		}
+	}	
 	Quit result
 }
 
diff --git a/src/cls/BI/PC.cls b/src/cls/BI/PC.cls
@@ -1,5 +1,5 @@
 /// 
-Class BI.PC Extends %DeepSee.SubjectArea [ CompileAfter = (BI.Post, BI.CommentCopy, BI.ViewsHistoryCopy), DependsOn = (BI.Post, BI.CommentCopy, BI.ViewsHistoryCopy), ProcedureBlock ]
+Class BI.PC Extends %DeepSee.SubjectArea [ DependsOn = (BI.Post, BI.CommentCopy, BI.ViewsHistoryCopy), ProcedureBlock ]
 {
 
 /// SubjectArea definition from Architect.
diff --git a/src/cls/BI/Post.cls b/src/cls/BI/Post.cls
@@ -1,3 +1,5 @@
+Include Community
+
 /// 
 Class BI.Post Extends %DeepSee.CubeDefinition [ DependsOn = Community.Post, ProcedureBlock ]
 {
@@ -125,6 +127,12 @@ XData Cube [ XMLNamespace = "http://www.intersystems.com/deepsee" ]
       </level>
     </hierarchy>
   </dimension>
+  <dimension name="Author" disabled="false" hasAll="false" allCaption="All Author1" allDisplayName="Author1" type="data" calendar="gregorian" iKnowType="entity" hidden="false" showHierarchies="default">
+    <hierarchy name="H1" disabled="false" hidden="false">
+      <level name="Author" disabled="false" sourceProperty="Author.Name" 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="#">
@@ -179,12 +187,21 @@ ClassMethod GetAddedPercent(date)
 ClassMethod GetGroupName(postId, prop As %String) As %String
 {
 	set result = ""
-	set sql = "Select GroupClass->"_prop_" As GroupProp From Community.GroupPost Where Post = ?"
+	/*set sql = "Select GroupClass->"_prop_" As GroupProp From Community.GroupPost Where Post = ?"
 	set rs = ##class(%SQL.Statement).%ExecDirect(,sql, postId)
 	while rs.%Next(){
 		if result = "" {set result = rs.GroupProp}
 		else{set result = result_","_rs.GroupProp}
-	}
+	}*/
+	for i=1:1:$l($$$MainTags,",") set intag($p($$$MainTags,",",i))=""
+	&sql(select tags into :tags from Community.Post where id = :postId)
+	for i=1:1:$l(tags, ",") {
+		set tag = $p(tags, ",", i)
+		if $d(intag(tag)) {
+			if result = "" {set result = tag}
+			else{set result = result_","_tag}
+		}
+	}	
 	Quit result
 }
 
diff --git a/src/cls/Community/Comment.cls b/src/cls/Community/Comment.cls
@@ -1,3 +1,5 @@
+Include Community
+
 Class Community.Comment Extends %Persistent [ DependsOn = (Community.Member, Community.Post) ]
 {
 
@@ -19,7 +21,7 @@ Relationship Author As Community.Member [ Cardinality = one, Inverse = Comments,
 
 Index AuthorIndex On Author;
 
-Property Link As %String(MAXLEN = 250) [ SqlComputeCode = {set {*} = "https://community.intersystems.com/" _ $case({Type}, "comment":"comment/", :"node/") _ {Id}}, SqlComputed, SqlComputeOnChange = %%INSERT ];
+Property Link As %String(MAXLEN = 250) [ SqlComputeCode = {set {*} = $$$Server _ $case({Type}, "comment":"comment/", :"node/") _ {Id}}, SqlComputed, SqlComputeOnChange = "%%INSERT" ];
 
 Index Link On Link [ Unique ];
 
@@ -93,7 +95,7 @@ Storage Default
 <IdLocation>^Community.CommentD</IdLocation>
 <IndexLocation>^Community.CommentI</IndexLocation>
 <StreamLocation>^Community.CommentS</StreamLocation>
-<Type>%Library.CacheStorage</Type>
+<Type>%Storage.Persistent</Type>
 }
 
 }
diff --git a/src/cls/Community/Group.cls b/src/cls/Community/Group.cls
@@ -1,3 +1,5 @@
+Include Community
+
 Class Community.Group Extends %Persistent [ SqlTableName = GroupClass ]
 {
 
@@ -11,7 +13,7 @@ Relationship Posts As Community.GroupPost [ Cardinality = many, Inverse = GroupC
 
 Property Name As %String(MAXLEN = 150);
 
-Property Link As %String(MAXLEN = 250) [ SqlComputeCode = {set {*} = "https://community.intersystems.com/" _ "node/" _ {Nid}}, SqlComputed, SqlComputeOnChange = %%INSERT ];
+Property Link As %String(MAXLEN = 250) [ SqlComputeCode = {set {*} = $$$Server _ "node/" _ {Nid}}, SqlComputed, SqlComputeOnChange = "%%INSERT" ];
 
 Index Link On Link [ Unique ];
 
@@ -66,7 +68,7 @@ Storage Default
 <IdLocation>^Community.GroupD</IdLocation>
 <IndexLocation>^Community.GroupI</IndexLocation>
 <StreamLocation>^Community.GroupS</StreamLocation>
-<Type>%Library.CacheStorage</Type>
+<Type>%Storage.Persistent</Type>
 }
 
 }
diff --git a/src/cls/Community/GroupPost.cls b/src/cls/Community/GroupPost.cls
@@ -3,9 +3,9 @@ Class Community.GroupPost Extends %Persistent [ DependsOn = (Community.Group, Co
 
 Relationship GroupClass As Community.Group [ Cardinality = one, Inverse = Posts, OnDelete = cascade, Required ];
 
-Relationship Post As Community.Post [ Cardinality = one, Inverse = GroupsClass, OnDelete = cascade, Required ];
+// Relationship Post As Community.Post [ Cardinality = one, Inverse = GroupsClass, OnDelete = cascade, Required ];
 
-Index GroupPost On (GroupClass, Post) [ Unique ];
+// Index GroupPost On (GroupClass, Post) [ Unique ];
 
 Storage Default
 {
@@ -25,7 +25,7 @@ Storage Default
 <IdLocation>^Community.GroupPostD</IdLocation>
 <IndexLocation>^Community.GroupPostI</IndexLocation>
 <StreamLocation>^Community.GroupPostS</StreamLocation>
-<Type>%Library.CacheStorage</Type>
+<Type>%Storage.Persistent</Type>
 }
 
 }
diff --git a/src/cls/Community/Member.cls b/src/cls/Community/Member.cls
@@ -1,3 +1,5 @@
+Include Community
+
 Class Community.Member Extends %Persistent
 {
 
@@ -19,7 +21,7 @@ Property LastName As %String(MAXLEN = 255);
 
 Property Created As %TimeStamp;
 
-Property Link As %String(MAXLEN = 150) [ SqlComputeCode = {set {*} = "https://community.intersystems.com/" _ "user/" _ {Uid}}, SqlComputed, SqlComputeOnChange = %%INSERT ];
+Property Link As %String(MAXLEN = 150) [ SqlComputeCode = {set {*} = $$$Server _ "user/" _ {Uid}}, SqlComputed, SqlComputeOnChange = "%%INSERT" ];
 
 Index Link On Link [ Unique ];
 
@@ -73,7 +75,7 @@ Storage Default
 <IdLocation>^Community.Public.MemberD</IdLocation>
 <IndexLocation>^Community.Public.MemberI</IndexLocation>
 <StreamLocation>^Community.Public.MemberS</StreamLocation>
-<Type>%Library.CacheStorage</Type>
+<Type>%Storage.Persistent</Type>
 }
 
 }
diff --git a/src/cls/Community/Post.cls b/src/cls/Community/Post.cls
@@ -1,3 +1,5 @@
+Include Community
+
 Class Community.Post Extends %Persistent [ DependsOn = Community.Member ]
 {
 
@@ -29,7 +31,7 @@ Property Deleted As %Boolean;
 
 Property Text As %String(MAXLEN = "");
 
-Property Link As %String(MAXLEN = 150) [ SqlComputeCode = {set {*} = "https://community.intersystems.com/" _ "node/" _ {Nid}}, SqlComputed, SqlComputeOnChange = %%INSERT ];
+Property Link As %String(MAXLEN = 150) [ SqlComputeCode = {set {*} = $$$Server _ "node/" _ {Nid}}, SqlComputed, SqlComputeOnChange = "%%INSERT" ];
 
 Index Link On Link [ Unique ];
 
@@ -39,7 +41,7 @@ Relationship Author As Community.Member [ Cardinality = one, Inverse = Posts, On
 
 Index AuthorIndex On Author;
 
-Relationship GroupsClass As Community.GroupPost [ Cardinality = many, Inverse = Post ];
+// Relationship GroupsClass As Community.GroupPost [ Cardinality = many, Inverse = Post ];
 
 Property CommentsAmount As %Integer [ Calculated, SqlComputeCode = { set {*} = ##class(Community.Post).GetCommentsAmount({Id})}, SqlComputed ];
 
@@ -135,7 +137,7 @@ Storage Default
 <IdLocation>^Community.PostD</IdLocation>
 <IndexLocation>^Community.PostI</IndexLocation>
 <StreamLocation>^Community.PostS</StreamLocation>
-<Type>%Library.CacheStorage</Type>
+<Type>%Storage.Persistent</Type>
 }
 
 }
diff --git a/src/cls/Community/Utils.cls b/src/cls/Community/Utils.cls
@@ -67,6 +67,7 @@ ClassMethod UpdateCubes(verbose = 1) As %Status
      /// Reported as prodlog 141297
      set st1 = $$$OK
    }
+   if (cube="POST") continue
    
    set st = $$$ADDSC(st, st1) 
  }
diff --git a/src/cls/Community/iKnow/Similar.cls b/src/cls/Community/iKnow/Similar.cls
@@ -171,7 +171,7 @@ Storage Default
 <IdLocation>^Community.iKnow.SimilarD</IdLocation>
 <IndexLocation>^Community.iKnow.SimilarI</IndexLocation>
 <StreamLocation>^Community.iKnow.SimilarS</StreamLocation>
-<Type>%Library.CacheStorage</Type>
+<Type>%Storage.Persistent</Type>
 }
 
 }
diff --git a/src/cls/History/ActiveMembers.cls b/src/cls/History/ActiveMembers.cls
@@ -44,7 +44,7 @@ Storage Default
 <IdLocation>^History.ActiveMembersD</IdLocation>
 <IndexLocation>^History.ActiveMembersI</IndexLocation>
 <StreamLocation>^History.ActiveMembersS</StreamLocation>
-<Type>%Library.CacheStorage</Type>
+<Type>%Storage.Persistent</Type>
 }
 
 }
diff --git a/src/cls/History/AvgComments.cls b/src/cls/History/AvgComments.cls
@@ -27,7 +27,7 @@ Storage Default
 <IdLocation>^History.AvgCommentsD</IdLocation>
 <IndexLocation>^History.AvgCommentsI</IndexLocation>
 <StreamLocation>^History.AvgCommentsS</StreamLocation>
-<Type>%Library.CacheStorage</Type>
+<Type>%Storage.Persistent</Type>
 }
 
 }
diff --git a/src/cls/History/AvgPosts.cls b/src/cls/History/AvgPosts.cls
@@ -27,7 +27,7 @@ Storage Default
 <IdLocation>^History.AvgPostsD</IdLocation>
 <IndexLocation>^History.AvgPostsI</IndexLocation>
 <StreamLocation>^History.AvgPostsS</StreamLocation>
-<Type>%Library.CacheStorage</Type>
+<Type>%Storage.Persistent</Type>
 }
 
 }
diff --git a/src/cls/History/ChampionshipPositions.cls b/src/cls/History/ChampionshipPositions.cls
@@ -93,7 +93,7 @@ Storage Default
 <IdLocation>^History.ChampionshipPositionsD</IdLocation>
 <IndexLocation>^History.ChampionshipPositionsI</IndexLocation>
 <StreamLocation>^History.ChampionshipPositionsS</StreamLocation>
-<Type>%Library.CacheStorage</Type>
+<Type>%Storage.Persistent</Type>
 }
 
 }
diff --git a/src/cls/History/Views.cls b/src/cls/History/Views.cls
@@ -119,7 +119,7 @@ Storage Default
 <IdLocation>^History.ViewsD</IdLocation>
 <IndexLocation>^History.ViewsI</IndexLocation>
 <StreamLocation>^History.ViewsS</StreamLocation>
-<Type>%Library.CacheStorage</Type>
+<Type>%Storage.Persistent</Type>
 }
 
 }
diff --git a/src/inc/Community.inc b/src/inc/Community.inc
@@ -0,0 +1,4 @@
+ROUTINE Community [Type=INC]
+#Define Server "https://community.intersystems.com/"
+#Define MainTags "Caché,Ensemble,DeepSee,HealthShare,iKnow,Atelier,Online Learning,Documentation,InterSystems IRIS,Open Exchange,Global Masters,Worldwide Response Center (WRC),Announcements,Global Summit,Developer Community,Other,DC Feedback"
+#Define PublicTags "Caché,Ensemble,DeepSee,HealthShare,iKnow,Atelier,Online Learning,InterSystems IRIS,Open Exchange,Worldwide Response Center (WRC),Announcements,Global Masters,Documentation" 

Original file line number	Diff line number	Diff line change
`@@ -1,5 +1,5 @@`
`1`	`1`	`///`
`2`		`-Class BI.PC Extends %DeepSee.SubjectArea [ CompileAfter = (BI.Post, BI.CommentCopy, BI.ViewsHistoryCopy), DependsOn = (BI.Post, BI.CommentCopy, BI.ViewsHistoryCopy), ProcedureBlock ]`
	`2`	`+Class BI.PC Extends %DeepSee.SubjectArea [ DependsOn = (BI.Post, BI.CommentCopy, BI.ViewsHistoryCopy), ProcedureBlock ]`
`3`	`3`	`{`
`4`	`4`
`5`	`5`	`/// SubjectArea definition from Architect.`
Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,5 @@`
	`1`	`+Include Community`
	`2`	`+`
`1`	`3`	`Class Community.Comment Extends %Persistent [ DependsOn = (Community.Member, Community.Post) ]`
`2`	`4`	`{`
`3`	`5`
`@@ -19,7 +21,7 @@ Relationship Author As Community.Member [ Cardinality = one, Inverse = Comments,`
`19`	`21`
`20`	`22`	`Index AuthorIndex On Author;`
`21`	`23`
`22`		`-Property Link As %String(MAXLEN = 250) [ SqlComputeCode = {set {*} = "https://community.intersystems.com/" _ $case({Type}, "comment":"comment/", :"node/") _ {Id}}, SqlComputed, SqlComputeOnChange = %%INSERT ];`
	`24`	`+Property Link As %String(MAXLEN = 250) [ SqlComputeCode = {set {*} = $$$Server _ $case({Type}, "comment":"comment/", :"node/") _ {Id}}, SqlComputed, SqlComputeOnChange = "%%INSERT" ];`
`23`	`25`
`24`	`26`	`Index Link On Link [ Unique ];`
`25`	`27`
`@@ -93,7 +95,7 @@ Storage Default`
`93`	`95`	`<IdLocation>^Community.CommentD</IdLocation>`
`94`	`96`	`<IndexLocation>^Community.CommentI</IndexLocation>`
`95`	`97`	`<StreamLocation>^Community.CommentS</StreamLocation>`
`96`		`-<Type>%Library.CacheStorage</Type>`
	`98`	`+<Type>%Storage.Persistent</Type>`
`97`	`99`	`}`
`98`	`100`
`99`	`101`	`}`
Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,5 @@`
	`1`	`+Include Community`
	`2`	`+`
`1`	`3`	`Class Community.Group Extends %Persistent [ SqlTableName = GroupClass ]`
`2`	`4`	`{`
`3`	`5`
`@@ -11,7 +13,7 @@ Relationship Posts As Community.GroupPost [ Cardinality = many, Inverse = GroupC`
`11`	`13`
`12`	`14`	`Property Name As %String(MAXLEN = 150);`
`13`	`15`
`14`		`-Property Link As %String(MAXLEN = 250) [ SqlComputeCode = {set {*} = "https://community.intersystems.com/" _ "node/" _ {Nid}}, SqlComputed, SqlComputeOnChange = %%INSERT ];`
	`16`	`+Property Link As %String(MAXLEN = 250) [ SqlComputeCode = {set {*} = $$$Server _ "node/" _ {Nid}}, SqlComputed, SqlComputeOnChange = "%%INSERT" ];`
`15`	`17`
`16`	`18`	`Index Link On Link [ Unique ];`
`17`	`19`
`@@ -66,7 +68,7 @@ Storage Default`
`66`	`68`	`<IdLocation>^Community.GroupD</IdLocation>`
`67`	`69`	`<IndexLocation>^Community.GroupI</IndexLocation>`
`68`	`70`	`<StreamLocation>^Community.GroupS</StreamLocation>`
`69`		`-<Type>%Library.CacheStorage</Type>`
	`71`	`+<Type>%Storage.Persistent</Type>`
`70`	`72`	`}`
`71`	`73`
`72`	`74`	`}`
Original file line number	Diff line number	Diff line change
`@@ -3,9 +3,9 @@ Class Community.GroupPost Extends %Persistent [ DependsOn = (Community.Group, Co`
`3`	`3`
`4`	`4`	`Relationship GroupClass As Community.Group [ Cardinality = one, Inverse = Posts, OnDelete = cascade, Required ];`
`5`	`5`
`6`		`-Relationship Post As Community.Post [ Cardinality = one, Inverse = GroupsClass, OnDelete = cascade, Required ];`
	`6`	`+// Relationship Post As Community.Post [ Cardinality = one, Inverse = GroupsClass, OnDelete = cascade, Required ];`
`7`	`7`
`8`		`-Index GroupPost On (GroupClass, Post) [ Unique ];`
	`8`	`+// Index GroupPost On (GroupClass, Post) [ Unique ];`
`9`	`9`
`10`	`10`	`Storage Default`
`11`	`11`	`{`
`@@ -25,7 +25,7 @@ Storage Default`
`25`	`25`	`<IdLocation>^Community.GroupPostD</IdLocation>`
`26`	`26`	`<IndexLocation>^Community.GroupPostI</IndexLocation>`
`27`	`27`	`<StreamLocation>^Community.GroupPostS</StreamLocation>`
`28`		`-<Type>%Library.CacheStorage</Type>`
	`28`	`+<Type>%Storage.Persistent</Type>`
`29`	`29`	`}`
`30`	`30`
`31`	`31`	`}`
Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,5 @@`
	`1`	`+Include Community`
	`2`	`+`
`1`	`3`	`Class Community.Member Extends %Persistent`
`2`	`4`	`{`
`3`	`5`
`@@ -19,7 +21,7 @@ Property LastName As %String(MAXLEN = 255);`
`19`	`21`
`20`	`22`	`Property Created As %TimeStamp;`
`21`	`23`
`22`		`-Property Link As %String(MAXLEN = 150) [ SqlComputeCode = {set {*} = "https://community.intersystems.com/" _ "user/" _ {Uid}}, SqlComputed, SqlComputeOnChange = %%INSERT ];`
	`24`	`+Property Link As %String(MAXLEN = 150) [ SqlComputeCode = {set {*} = $$$Server _ "user/" _ {Uid}}, SqlComputed, SqlComputeOnChange = "%%INSERT" ];`
`23`	`25`
`24`	`26`	`Index Link On Link [ Unique ];`
`25`	`27`
`@@ -73,7 +75,7 @@ Storage Default`
`73`	`75`	`<IdLocation>^Community.Public.MemberD</IdLocation>`
`74`	`76`	`<IndexLocation>^Community.Public.MemberI</IndexLocation>`
`75`	`77`	`<StreamLocation>^Community.Public.MemberS</StreamLocation>`
`76`		`-<Type>%Library.CacheStorage</Type>`
	`78`	`+<Type>%Storage.Persistent</Type>`
`77`	`79`	`}`
`78`	`80`
`79`	`81`	`}`
Original file line number	Diff line number	Diff line change
`@@ -67,6 +67,7 @@ ClassMethod UpdateCubes(verbose = 1) As %Status`
`67`	`67`	`/// Reported as prodlog 141297`
`68`	`68`	`set st1 = $$$OK`
`69`	`69`	`}`
	`70`	`+ if (cube="POST") continue`
`70`	`71`
`71`	`72`	`set st = $$$ADDSC(st, st1)`
`72`	`73`	`}`