Handle split events with multi-character IMIs

This commit is contained in:
HummyPkg 2018-02-26 00:24:25 +00:00
parent 4d3b134fe7
commit 93b32a7796
2 changed files with 4 additions and 4 deletions

View File

@ -261,7 +261,7 @@ epg method icon_set {{height 0}} {
"<img src=/images/178_1_26_Icon_Recommend.png $height>"
}
if {[string match {/*#?} $event_crid]} {
if {[string match {/*#*} $event_crid]} {
lappend set \
"<img src=/images/178_1_26_Icon_Split.png $height>"
}

View File

@ -834,10 +834,10 @@ proc {rsv construct} {event type} {
set args(szEventToRecord) "1$args(szCRID)|"
set args(aulEventToRecordInfo) [rsv mkaul $event]
# Handle split events
if {[string match {*#?} $args(szCRID)]} {
if {[string match {*#*} $args(szCRID)]} {
set args(ucRecKind) 2
set args(szCRID) [
string range $args(szCRID) 0 end-2]
lassign [split $args(szCRID) "#"] crid imi
set args(szCRID) $crid
# TODO - check to see how many parts there
# are...
append args(szEventToRecord) \