You are viewing a plain text version of this content. The canonical link for it is here.
Posted to rivet-dev@tcl.apache.org by ka...@apache.org on 2004/01/20 21:06:34 UTC
cvs commit: tcl-rivet/rivet/packages/dio diodisplay.tcl
karl 2004/01/20 12:06:34
Modified: . ChangeLog
rivet/packages/dio diodisplay.tcl
Log:
Removed calls to abort_page when relatively benign conditions like no records
matching a search occur. This allows us to emit all the code we need, like
closing the table (</table>) and emitting our page trailer, etc, instead of
having the page cut off somewhere in the middle.
Revision Changes Path
1.160 +8 -0 tcl-rivet/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /home/cvs/tcl-rivet/ChangeLog,v
retrieving revision 1.159
retrieving revision 1.160
diff -u -r1.159 -r1.160
--- ChangeLog 15 Jan 2004 19:34:24 -0000 1.159
+++ ChangeLog 20 Jan 2004 20:06:34 -0000 1.160
@@ -1,3 +1,11 @@
+2004-01-20 Karl Lehenbauer <ka...@sc.com>
+
+ * rivet/packages/dio/diodisplay.tcl: Removed calls to abort_page
+ when relatively benign conditions like no records matching a search
+ occur. This allows us to emit all the code we need, like closing
+ the table (</table>) and emiting our page trailer, etc, instead of
+ having the page cut off somewhere in the middle.
+
2004-01-15 David N. Welton <da...@dedasys.com>
* rivet/rivet-tcl/load_response.tcl (load_response): Fixed a bug
1.4 +0 -6 tcl-rivet/rivet/packages/dio/diodisplay.tcl
Index: diodisplay.tcl
===================================================================
RCS file: /home/cvs/tcl-rivet/rivet/packages/dio/diodisplay.tcl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- diodisplay.tcl 15 Jul 2002 04:06:26 -0000 1.3
+++ diodisplay.tcl 20 Jan 2004 20:06:34 -0000 1.4
@@ -122,7 +122,6 @@
if {![is_function $mode]} {
puts "In-valid function"
- abort_page
return
}
@@ -406,7 +405,6 @@
if {[$DIOResult numrows] <= 0} {
puts "Could not find any matching records."
- abort_page
return
}
@@ -518,7 +516,6 @@
method Edit {} {
if {![fetch $response(query) array]} {
puts "That record does not exist in the database."
- abort_page
return
}
@@ -564,7 +561,6 @@
if {[array exists a]} {
puts "That record already exists in the database."
- abort_page
return
}
@@ -577,7 +573,6 @@
method Delete {} {
if {![fetch $response(query) array]} {
puts "That record does not exist in the database."
- abort_page
return
}
@@ -622,7 +617,6 @@
method Details {} {
if {![fetch $response(query) array]} {
puts "That record does not exist in the database."
- abort_page
return
}
---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: rivet-cvs-help@tcl.apache.org