chore: remove trailing 'A' from surname-range-start

- still add it if the previous end was too short
- this way overall shorter descriptions are possible
- in rare cases (at maxTagLength) this  prevented a description to be created

src/Handler/Utils/Exam.hs

@@ -660,8 +660,10 @@ examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences
                     increase :: [CI Char] -> [CI Char]
                     increase [] = []
                     increase (c:cs)
-                      | nextChar == head alphabet
+                      | nextChar == head alphabet, rule == ExamRoomMatriculation
                       = nextChar : increase cs
+                      | nextChar == head alphabet
+                      = increase cs
                       | otherwise
                       = nextChar : cs
                       where