(root)/trunk/perl/tableViewer.pm – Rev 129 → 153
Rev 129 |
Rev 196 |
Go to most recent revision |
Show entire file |
Ignore whitespace |
Details |
Blame |
Last modification |
View Log
| RSS feed
| Rev 129 |
Rev 153 |
| Line 16... |
Line 16... |
| 16 |
use WebDB;
|
16 |
use WebDB;
|
| Line 17... |
Line 17... |
| 17 |
|
17 |
|
| Line 18... |
Line 18... |
| 18 |
our @EXPORT = qw( byfield currentTime exportExcel fetchColEntries fetchDerbyNameWithRCid filter getData getDBConnection inArray notInArray uniq whereInArray );
|
18 |
our @EXPORT = qw( byfield currentTime exportExcel fetchColEntries fetchDerbyNameWithRCid filter getData getDBConnection inArray notInArray uniq whereInArray );
|
| 19 |
|
19 |
|
| Line 20... |
Line 20... |
| 20 |
#my $internalDBH = &getDBConnection || die "Unable to connect to Database\n\n";
|
20 |
#my $internalDBH = &getDBConnection || die "Unable to connect to Database\n\n";
|
| 21 |
my $internalDBH = WebDB->connect () || die "Unable to connect to Database\n\n";
|
21 |
my $internalDBH = WebDB::connect () || die "Unable to connect to Database\n\n";
|
| 22 |
|
22 |
|
| 23 |
sub currentTime {
|
23 |
sub currentTime {
|