"in Ethio-SPaRe" only for E-S mss

BetaMasaheft/Documentation#2154

db/apps/BetMasWeb/modules/apprest.xqm

@@ -651,15 +651,15 @@ return
                 {for $change in $document//t:revisionDesc/t:change
                 let $time := $change/@when
                 let $author := editors:editorKey(string($change/@who))
-                let $ES := if(contains($change/text(), 'Ethio-SPaRe team photographed the manuscript')) then () else if (xs:date($time) ge xs:date('2016-05-10')) then () else ' in Ethio-SPaRe '
+                let $collection :=  $change/ancestor::t:TEI//t:collection
+                let $ES := if(contains($change/text(), 'Ethio-SPaRe team photographed the manuscript')) then () else if (xs:date($time) ge xs:date('2016-05-10')) then () else if  (not(starts-with($collection/text(), 'Ethio-')))  then () else ' in Ethio-SPaRe '
                 order by $time descending
                 return
                 <li>
                 {(if (contains($change/text(), 'Ethio-SPaRe team photographed the manuscript')) then () else <span property="http://purl.org/dc/elements/1.1/contributor">{$author}</span>),
                 (' ' || $change/text() || $ES || ' on ' ||  format-date($time, '[D].[M].[Y]'))}
                 </li>
                 }
-
     </ul>
     </div>
     </div>