From 07b16a4efb9a84c7916097a9c8f170c96354ccc2 Mon Sep 17 00:00:00 2001
From: HummyPkg <af123@hummypkg.org.uk>
Date: Fri, 25 Aug 2017 20:20:09 +0100
Subject: [PATCH] allow subclasses to use {rsv list}

---
 webif/lib/rsv.class | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/webif/lib/rsv.class b/webif/lib/rsv.class
index 6aa883f..dfde3fa 100755
--- a/webif/lib/rsv.class
+++ b/webif/lib/rsv.class
@@ -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