[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Jul 19 19:47:26 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi
In directory pub.open-bio.org:/tmp/cvs-serv22510/MOBY/Adaptor/moby/queryapi

Modified Files:
	mysql.pm 
Log Message:
missed several dozen more $.  The problem with copy/paste when the original was erroneous

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.17,1.18
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/19 23:40:34	1.17
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/19 23:47:26	1.18
@@ -227,8 +227,8 @@
 	$dbh->do( $statement,
 			  undef, @bindvalues );
 	
-	if (dbh->err){
-		return (1, dbh->errstr);
+	if ($dbh->err){
+		return (1, $dbh->errstr);
 	}
 	else{
 		return 0;
@@ -277,8 +277,8 @@
 	$dbh->do( $statement,
 			  undef, @bindvalues );
 	
-	if (dbh->err){
-		return (1, dbh->errstr);
+	if ($dbh->err){
+		return (1, $dbh->errstr);
 	}
 	else{
 		return 0;
@@ -341,8 +341,8 @@
 	($statement, @bindvalues) = add_condition($statement, @args); 
 	$dbh->do( $statement,
 			  undef, @bindvalues );
-	if (dbh->err){
-		return (1, dbh->errstr);
+	if ($dbh->err){
+		return (1, $dbh->errstr);
 	}
 	else{
 		return 0;
@@ -404,8 +404,8 @@
 	($statement, @bindvalues) = add_condition($statement, @args); 
 	$dbh->do( $statement,
 			  undef, @bindvalues );
-	if (dbh->err){
-		return (1, dbh->errstr);
+	if ($dbh->err){
+		return (1, $dbh->errstr);
 	}
 	else{
 		return 0;
@@ -462,8 +462,8 @@
 	$dbh->do( $statement,
 			  undef, @bindvalues );
 	
-	if (dbh->err){
-		return (1, dbh->errstr);
+	if ($dbh->err){
+		return (1, $dbh->errstr);
 	}
 	else{
 		return 0;
@@ -526,8 +526,8 @@
 	$dbh->do( $statement,
 			  undef, @bindvalues );
 	
-	if (dbh->err){
-		return (1, dbh->errstr);
+	if ($dbh->err){
+		return (1, $dbh->errstr);
 	}
 	else{
 		return 0;
@@ -581,8 +581,8 @@
 	$dbh->do( $statement,
 			  undef, @bindvalues );
 	
-	if (dbh->err){
-		return (1, dbh->errstr);
+	if ($dbh->err){
+		return (1, $dbh->errstr);
 	}
 	else{
 		return 0;
@@ -660,8 +660,8 @@
 	($statement, @bindvalues) = add_condition($statement, @args); 
 	$dbh->do( $statement,
 			  undef, @bindvalues );
-	if (dbh->err){
-		return (1, dbh->errstr);
+	if ($dbh->err){
+		return (1, $dbh->errstr);
 	}
 	else{
 		return 0;
@@ -740,7 +740,7 @@
 sub insert_service{
 	my ($self, @args) = @_;	
 	my $dbh = $self->dbh;
-	dbh->do(
+	$dbh->do(
 q{insert into service (service_type, service_lsid, description, authority, contact_email) values (?,?,?,?,?)},
 		undef,
 		(
@@ -748,7 +748,7 @@
 		   get_value('authority', @args), get_value('contact_email', @args)
 		)
 	);
-	return dbh->{mysql_insertid};
+	return $dbh->{mysql_insertid};
 }
 
 sub delete_service{
@@ -760,8 +760,8 @@
 	$dbh->do( $statement,
 			  undef, @bindvalues );
 	
-	if (dbh->err){
-		return (1, dbh->errstr);
+	if ($dbh->err){
+		return (1, $dbh->errstr);
 	}
 	else{
 		return 0;
@@ -790,12 +790,12 @@
 sub insert_service_term2term{
 	my ($self, @args) = @_;	
 	my $dbh = $self->dbh;		
-	dbh->do(
+	$dbh->do(
 q{insert into service_term2term (relationship_type, service1_id, service2_id) values (?,?,?)},
 		undef,
 		( get_value('relationship_type', @args), get_value('service1_id', @args), get_value('service2_id', @args))
 	);
-	return dbh->{mysql_insertid};
+	return $dbh->{mysql_insertid};
 }
 
 sub delete_service_term2term{
@@ -807,8 +807,8 @@
 	$dbh->do( $statement,
 			  undef, @bindvalues );
 	
-	if (dbh->err){
-		return (1, dbh->errstr);
+	if ($dbh->err){
+		return (1, $dbh->errstr);
 	}
 	else{
 		return 0;
@@ -866,7 +866,7 @@
 sub insert_namespace{
 	my ($self, @args) = @_;	
 	my $dbh = $self->dbh;
-	dbh->do(
+	$dbh->do(
 q{insert into namespace (namespace_type, namespace_lsid, description, authority,contact_email) values (?,?,?,?,?)},
 		undef,
 		(
@@ -874,7 +874,7 @@
 		   get_value('authority', @args), get_value('contact_email', @args)
 		)
 	);
-	return dbh->{mysql_insertid};
+	return $dbh->{mysql_insertid};
 }
 
 sub delete_namespace{
@@ -886,8 +886,8 @@
 	$dbh->do( $statement,
 			  undef, @bindvalues );
 	
-	if (dbh->err){
-		return (1, dbh->errstr);
+	if ($dbh->err){
+		return (1, $dbh->errstr);
 	}
 	else{
 		return 0;
@@ -924,8 +924,8 @@
 	$dbh->do( $statement,
 			  undef, @bindvalues );
 	
-	if (dbh->err){
-		return (1, dbh->errstr);
+	if ($dbh->err){
+		return (1, $dbh->errstr);
 	}
 	else{
 		return 0;