Diff of /Sprout/ERDB.pm

-revision 1.52, Fri Jun 23 23:03:40 2006 UTC
+revision 1.55, Sat Jun 24 23:49:10 2006 UTC
 Line 1596
                      # Now we can create an INSERT statement.
                      my $dbh = $self->{_dbh};
                      my $fixedName = _FixName($fieldTitle);
-                     my $statement = "INSERT INTO $relation ($fixedName) VALUES(?, ?)";
+                     my $statement = "INSERT INTO $relation (id, $fixedName) VALUES(?, ?)";
                      # Execute the command.
                      $dbh->SQL($statement, 0, $entityID, $value);
                  }
 Line 2064
          push @retVal, \@rowData;
          $fetched++;
      }
+     Trace("$fetched rows returned in GetAll.") if T(SQL => 4);
      # Return the resulting list.
      return @retVal;
  }
+ =head3 Exists
+ C<< my $found = $sprout->Exists($entityName, $entityID); >>
+ Return TRUE if an entity exists, else FALSE.
+ =over 4
+ =item entityName
+ Name of the entity type (e.g. C<Feature>) relevant to the existence check.
+ =item entityID
+ ID of the entity instance whose existence is to be checked.
+ =item RETURN
+ Returns TRUE if the entity instance exists, else FALSE.
+ =back
+ =cut
+ #: Return Type $;
+ sub Exists {
+     # Get the parameters.
+     my ($self, $entityName, $entityID) = @_;
+     # Check for the entity instance.
+     Trace("Checking existence of $entityName with ID=$entityID.") if T(4);
+     my $testInstance = $self->GetEntity($entityName, $entityID);
+     # Return an existence indicator.
+     my $retVal = ($testInstance ? 1 : 0);
+     return $retVal;
+ }
  =head3 EstimateRowSize
  C<< my $rowSize = $erdb->EstimateRowSize($relName); >>

 Legend:



Removed from v.1.52
 


changed lines


 
Added in v.1.55
 Legend:



Removed from v.1.52
 


changed lines


 
Added in v.1.55
-Removed from v.1.52
+Added in v.1.55

MCS Webmaster	ViewVC Help
Powered by ViewVC 1.0.3