hummypkg/webif
5
3
Fork 4
Code Issues Pull Requests Releases 1 Activity

allow subclasses to use {rsv list}

Browse Source
This commit is contained in:
HummyPkg 2017-08-25 20:20:09 +01:00
parent 0da04b5aed
commit 07b16a4efb
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
webif/lib/rsv.class
View File

@ -632,7 +632,7 @@ rsv method insert_deferred {{table pending}} {
return [$self insert $table 0 1]
}
proc {rsv list} {{table tbl_reservation} {extra ""}} {
proc {rsv list} {{table tbl_reservation} {extra ""} {class rsv}} {
set qstring "
select $table.*,
channel.TBL_SVC.szSvcName, channel.TBL_SVC.usLcn,
@ -650,11 +650,11 @@ proc {rsv list} {{table tbl_reservation} {extra ""}} {
#puts "QSTRING: ($qstring)"
set res [[rsv dbhandle] query $qstring]
set res [[$class dbhandle] query $qstring]
set records {}
foreach rec $res {
lappend rec _table $table
lappend records [rsv new $rec]
lappend records [$class new $rec]
}
return $records