view release on metacpan or  search on metacpan

lib/CPAN/MetaCurator/Database.pm  view on Meta::CPAN

	$$pad{$table_name}{$$_{name} }	= $$_{id} for (@$set);

	$self -> metapackager_dbh -> disconnect;

	return $table_name;

} # End of read_metapackager_table.

# --------------------------------------------------

sub update_table
{
	my($self, $table_name, $id, $columns)	= @_;
	my($sql)	= "update $table_name set $columns where id = $id";
	my($set)	= $self -> db -> query($sql) || die $self -> db -> error;

	return $set;

} # End of update_table.

# --------------------------------------------------