Other packages in the module: G::DB::BDB

Package variables

Synopsis

No synopsis!

Description

No description!

Methods

Methods description

None available.

Methods code

sub FETCH {

    my ($obj, $index) = @_; 
    my $dbh = $obj->[0];
    my $table_name = $obj->[1];
    my $bbid = $obj->[2];
    my $primarykey = $obj->[5];

    return $obj->[3]->{"$bbid:$index"} if (length $obj->[3]->{"$bbid:$index"});

    my $sql = ("SELECT\" $index\" FROM $table_name WHERE $primarykey =\" $bbid\";");
    my $sth = $dbh->prepare($sql) || die  $dbh->errstr;
    $sth->execute || die $sth->errstr;

    my @result =  $sth->fetchrow_array();
    $obj->[3]->{"$bbid:$index"} = shift @result;

    return $obj->[3]->{"$bbid:$index"};

}

sub FIRSTKEY {

    my ($obj, $index) = @_; 
    my $dbh = $obj->[0];
    my $table_name = $obj->[1];
    my $bbid = $obj->[2];
    my $primarykey = $obj->[5];

    my $sql = ("SELECT * FROM $table_name WHERE $primarykey =\" $bbid\";");
    my $sth = $dbh->prepare($sql) || die  $dbh->errstr;
    $sth->execute || die $sth->errstr;
    $obj->[4]->{$bbid} = $sth->fetchrow_hashref();

    foreach my $index (keys %{$obj->[4]->{$bbid}}){
	$obj->[3]->{"$bbid:$index"} = $obj->[4]->{$bbid}->{$index};
    }

    return each %{$obj->[4]->{$bbid}};

}

sub NEXTKEY {

    my ($obj, $index) = @_; 
    my $bbid = $obj->[2];

    return each %{$obj->[4]->{$bbid}};

}

sub STORE {

    my ($obj, $index, $new_value) = @_;
    my $dbh = $obj->[0];
    my $table_name = $obj->[1];
    my $bbid = $obj->[2];
    my $primarykey = $obj->[5];
    
    my $sql = "UPDATE $table_name SET\" $index\" =\" $new_value\" WHERE $primarykey =\" $bbid\";";
    $obj->[3]->{"$bbid:$index"} = $new_value;

    $dbh->do($sql) || die $dbh->errstr;
    return $obj->[3]->{"$bbid:$index"};

}

sub TIEHASH {

    my ($self, $dbh, $table, $bbid, $primarykey) = @_;   
    my $obj = [$dbh, $table, $bbid, undef, undef, $primarykey];
    return bless $obj, $self;

}

General documentation