Parent Directory | Revision Log | Patch
revision 66 by dpavlin, Mon Aug 22 00:09:59 2005 UTC | revision 72 by dpavlin, Thu Aug 25 11:41:58 2005 UTC | |
---|---|---|
# | Line 19 sub getUnits() { | Line 19 sub getUnits() { |
19 | my @ret; | my @ret; |
20 | ||
21 | my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } ); | my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } ); |
22 | my $sth = $dbh->prepare(qq{ SELECT id, share FROM shares} ); | my $sth = $dbh->prepare(qq{ SELECT id, share FROM shares ORDER BY share} ); |
23 | $sth->execute(); | $sth->execute(); |
24 | push @ret, { 'id' => '', 'share' => '-'}; # dummy any | push @ret, { 'id' => '', 'share' => '-'}; # dummy any |
25 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |