[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Mon Jul 25 17:50:02 UTC 2005


mwilkinson
Mon Jul 25 13:50:02 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby
In directory pub.open-bio.org:/tmp/cvs-serv20439/MOBY/Adaptor/moby

Modified Files:
	queryapi.pm 
Log Message:
changing the adaptor API to be more perlish.  No longer passing a list of hashes, just a hash

moby-live/Perl/MOBY/Adaptor/moby queryapi.pm,1.5,1.6
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi.pm	2005/07/25 17:23:35	1.5
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi.pm	2005/07/25 17:50:02	1.6
@@ -277,28 +277,7 @@
 }
 
 
-# general query subroutine
-# parameters: 
-# 	statement - a string SQL statement
-#	bind_values - an array of values to be bound to the parameters
-# returns:
-#	resultset - reference to an array containing ARRAY references
-
-=head2 dbh
-
- Title     :	general_query
- Usage     :	my $un = $API->general_query(@args)
- Function  :	Execute a generic query on an underlying SQL-based data source
- Returns   :	array of array-refs representing resulting rows
- Args      :    String - sql statement
-                [String] - a set of bind values
 
-=cut
-
-sub general_query{
-	die "general_query not implemented in adaptor\n";
-}
-	
 #
 # collection_input table functions
 #
@@ -308,14 +287,6 @@
 
 sub insert_collection_input {
 	die "insert_collection_input not implemented in adaptor\n";
-	#my ($self, %args) = @_;	
-	#my $dbh = $self->dbh;
-	#if ($self->sourcetype eq "MOBY::Adaptor::moby::queryapi::mysql"){
-	#	# this should be dropped down into the mysql.pm module??  probably...
-	#	$self->dbh->do("insert into collection_input (service_instance_id, article_name) values (?,?)", undef, ($args{service_instance}, $args{article_name}));
-	#	my $id=$self->dbh->{mysql_insertid};
-	#	return $id;
-	#}
 }
 
 sub delete_collection_input{




More information about the MOBY-guts mailing list