--- db/prgsrc/db.cgi	2001/05/16 23:49:01	1.14
+++ db/prgsrc/db.cgi	2001/05/17 03:57:32	1.19
@@ -2,10 +2,12 @@
 
 use DBI;
 use CGI ':all';
+use Text::Query;
 use strict;
 use Time::Local;
 use POSIX qw(locale_h);
 my $debug=1; #added by R7
+open STDERR, ">/tmp/errors" if $debug;
 my ($PWD) = `pwd`;
 chomp $PWD;
 my ($SRCPATH) = "$PWD/../dimrub/src";