[Bio] / Sprout / SproutQuery.pm Repository:
ViewVC logotype

Annotation of /Sprout/SproutQuery.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : hwang 1.1 package SproutQuery;
2 :    
3 :     use strict;
4 :     use Tracer;
5 :     use Sprout;
6 :     use ERDB;
7 :     use SFXlate;
8 :    
9 :     my $sprout = SFXlate->new_sprout_only();
10 :     my $erdb = $sprout->{_erdb};
11 :     my $dbh = $erdb->{_dbh};
12 :    
13 :     sub get_field {
14 :    
15 :     my($table, $field, $limit) = @_;
16 :    
17 :     my $rv = $dbh->SQL("SELECT $field FROM $table");
18 :     return map { $_->[0] } @$rv;
19 :    
20 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3