Cist: changing [Nocturn 1 Versum] for 3 Lesson Office to Proper/Commune - not Feria

[Augustinus-Altovadensis]

Laudétur Jesus Christus!

I'm trying to find the proper part of code that actually fills in the Versicle after the Psalms of first Nocturn in Sabbato de Beata and, actually, in every Matins of 3 Lessons in the Cistercian version.

Currently, in every 3-Lesson Matins, the first Nocturn versicle is always added from the Feria, but this is not the case for the Cistercian Office - it needs to be [Nocturn 1 Versum] from Commune.

I've looked in specmatins.pl around line 350, that takes care for this, but only in non-monastic rites, also in monastic.pl after line 100, where I would expect it for the monastic versions, but that obviously works only for 12-Lesson Matins... (or I'm making some sort of mistake).

If someone could point me to the right file and approximate place, I'd be grateful.
@FAJ-Munich and others...

Thank you, God bless!

[FAJ-Munich]

It's the function getantmatutinum in specmatins.pl that assembles the [AntMatutinum] hash in legacy format. This in turn builds upon getproprium from specials.pl which only includes common if communetype is ex or called with the right "flag" in the function variables.

[Augustinus-Altovadensis]

Thanks for the answer!
That's what I thought as well, but for the Monastic versions, it seems to be a bit different.
After some searching, I found that the Psalms, along with Antiphons and Versicles, are handled by sub psalmi_matutinum_monastic in monastic.pl. The function doesn't really save the verse into a special variable, but in case of an exception, it simply rewrites the appropriate line in the %psalmi variable, which is basically the [AntMatutinum] hash in legacy format. On line 113, I found a special versicle added for Christmas Eve, so I just copied and adopted it likewise:

  if ($version =~ /Cist/i 
    && $winner !~ /^Tempora/
    && $winner{Rule} =~ /3 lectio|(ex|vide) C10/i) {
    my %com = columnsel($lang) ? %commune : %commune2;
    ($psalmi[6], $psalmi[7]) = split("\n", $com{"Nocturn 1 Versum"});
    setbuild("$commune", "Nocturn 1 Versum", 'subst');
  }

Currently it works, I hope I didn't miss anything important.