oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

i'm dumb

Browse source
This commit is contained in:
Graham Knop 2007-10-05 16:21:13 +00:00
parent 417bad4dfa
commit 6c5453cf9b
2 changed files with 13 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/WebGUI/DatabaseLink.pm
View file

@ -266,23 +266,6 @@ sub get {
#-------------------------------------------------------------------
=head2 getDriver ( )
Returns the DBI driver used by this database link
=cut
sub getDriver {
my $self = shift;
my $dsn = $self->get->{DNS};
if ($dsn =~ /^dbi:(\w+):/i) {
return $1;
}
return;
}
#-------------------------------------------------------------------
=head2 getId ( )
Returns the ID of this database link.

13
lib/WebGUI/SQL.pm
View file

@ -459,6 +459,19 @@ sub getNextId {
#-------------------------------------------------------------------
=head2 getDriver ( )
Returns the DBI driver used by this database link
=cut
sub getDriver {
my $self = shift;
return $self->{_dbh}->{Driver}->{Name};
}
#-------------------------------------------------------------------
=head2 getRow ( table, key, keyValue )
Returns a row of data as a hash reference from the specified table.