42 lines
594 B
Plaintext
42 lines
594 B
Plaintext
|
|
||
|
|
if {![exists -proc findhsvc]} {
|
||
|
|
|
||
|
|
require rsv.class
|
||
|
|
|
||
|
|
proc findhsvc {channel} {
|
||
|
|
global rsvdb
|
||
|
|
|
||
|
|
set hsvc [$rsvdb query "
|
||
|
|
select hSvc
|
||
|
|
from channel.TBL_SVC
|
||
|
|
where szSvcName = '$channel'
|
||
|
|
or szSvcname = '\025$channel'
|
||
|
|
limit 1
|
||
|
|
"]
|
||
|
|
|
||
|
|
if {[llength $hsvc] == 1} {
|
||
|
|
return [lindex [lindex $hsvc 0] 1]
|
||
|
|
} else {
|
||
|
|
return 0
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
proc findhsvcbylcn {lcn} {
|
||
|
|
global rsvdb
|
||
|
|
|
||
|
|
set hsvc [$rsvdb query "
|
||
|
|
select hSvc
|
||
|
|
from channel.TBL_SVC
|
||
|
|
where usLcn = $lcn
|
||
|
|
limit 1
|
||
|
|
"]
|
||
|
|
|
||
|
|
if {[llength $hsvc] == 1} {
|
||
|
|
return [lindex [lindex $hsvc 0] 1]
|
||
|
|
} else {
|
||
|
|
return 0
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|