[MOBY-guts] biomoby commit

[Dennis Wang]

dwang
Thu Jul 28 15:45:26 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby
In directory pub.open-bio.org:/tmp/cvs-serv5410/Perl/MOBY/Adaptor/moby

Modified Files:
	queryapi.pm 
Log Message:
and more..

moby-live/Perl/MOBY/Adaptor/moby queryapi.pm,1.23,1.24
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi.pm,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -r1.23 -r1.24
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi.pm	2005/07/28 18:09:46	1.23
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi.pm	2005/07/28 19:45:26	1.24
@@ -367,33 +367,56 @@
 #
 # simple_output table functions
 #
+=head2 query_simple_output
+
+ Title     :	query_simple_output
+ Usage     :	my $un = $API->query_simple_output(%args)
+ Function  :	Executes a query for Simput outputs according to the service instance or collection output
+ Args      :    service_instance_lsid => String,
+ 				collection_output_id  => Integer
+ Returns   :    listref of hashrefs:
+ 				[{simple_output_id 	 => Integer,
+      			object_type_uri		 => String,
+     		 	namespace_type_uris	 => String,
+      			article_name		 => String,
+      			service_instance_id	 => Integer,
+      			collection_output_id => Integer}]
+ Notes     : 	Only allows querying by lsid or type term, so service_instance_id is retrieved from lsid or term
+=cut
 sub query_simple_output{
 	die "query_simple_output not implemented in adaptor\n";	
 }
 
+=head2 insert_simple_output
+
+ Title     :	inse_simple_output
+ Usage     :	my $un = $API->insert_simple_output(%args)
+ Function  :	Inserts a Simple output into the database
+ Args      :    object_type_uri        => String,
+				namespace_type_uris    => String,
+				article_name           => String,
+				service_instance_lsid  => String,
+				collection_output_id   => Integer
+ Returns   :    Integer insertid
+ Notes     : 	the fact that it returns an insertid is bad since this
+             	is only useful to an SQL-based API...
+=cut
 sub insert_simple_output {
 	die "insert_simple_output not implemented in adaptor\n";
-	#my ($self, %args) = @_;	
-	#my $dbh = $self->dbh;
-	#
-	#$dbh->do("insert into simple_output
-	#			 (object_type_uri,
-	#			  namespace_type_uris,
-	#			  article_name,
-	#			  service_instance_id,
-	#			  collection_output_id)
-	#			 values (?,?,?,?,?)",
-	#	undef,
-	#	($args{object_type_uri},
-	#	$args{namespace_type_uris},
-	#	$args{article_name},
-	#	$args{service_instance_id},
-	#	$args{collection_output_id}));
-	#my $id=$dbh->{mysql_insertid};
-	#return $id;
-
 }
 
+=head2 delete_simple_output
+
+ Title     :	delete_simple_output
+ Usage     :	my $un = $API->delete_simple_output(%args)
+ Function  :	Deletes Simple outputs according to the service instance, or collection output
+ Args      :    service_instance_lsid => String,
+ 				collection_output_id => Integer
+ Returns   :    ($err, $errstr)
+ 				$err = 1 if there was an delete error, 0 if successful
+ 				$errstr = String error message if there was an error	
+ 
+=cut
 sub delete_simple_output{
 	die "delete_simple_output not implemented in adaptor\n";
 }