![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to db.cgi CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc|
Return to db.cgi CVS log | Up to [Local Repository] / db / prgsrc |
| version 1.33, 2001/11/19 13:02:15 | version 1.34, 2001/11/20 21:33:36 |
|---|---|
| Line 7 use strict; | Line 7 use strict; |
| use Time::Local; | use Time::Local; |
| use POSIX qw(locale_h); | use POSIX qw(locale_h); |
| use locale; | use locale; |
| open STDERR, ">errors"; | #open STDERR, ">errors"; |
| my $printqueries=1; | my $printqueries=1; |
| my $debug=1; #added by R7 | my $debug=0; #added by R7 |
| my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments', 3, 'Authors', 4, 'Sources'); | my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments', 3, 'Authors', 4, 'Sources'); |
| my %searchin; | my %searchin; |