Properly handle CRIDs containing /

This commit is contained in:
prpr 2019-05-08 14:02:14 +01:00 committed by HummyPkg
parent 92f9e5ca60
commit 9c80bb0601
1 changed files with 2 additions and 2 deletions

View File

@ -68,7 +68,7 @@ puts "
</tr>
"
set crid [join [lrange [split [$event get szCRID] /] 1 end]]
set crid [join [lrange [split [$event get szCRID] /] 1 end] /]
if {$crid != ""} {
puts "<tr><th>"
if {[$event isseries]} { puts "Series" } else { puts "Event" }
@ -88,7 +88,7 @@ proc cridlist {events} {
set ev [string range $ev 1 end]
if {$flag} { puts "<br>" }
incr flag
set crid [join [lrange [split $ev /] 1 end]]
set crid [join [lrange [split $ev /] 1 end] /]
puts -nonewline "<a href=/cgi-bin/epg/search.jim?"
puts "crid=/$crid>
<img border=0 src=/images/421_1_00_CH_Title_2R_Arrow.png