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