Diff of /Sprout/ERDB.pm

-revision 1.99, Fri Jul 11 01:04:08 2008 UTC
+revision 1.100, Tue Aug 12 06:07:06 2008 UTC
 Line 1062
          # Push the result into the field list.
          push @fieldList, $fieldString;
      }
-     # If this is a root table, add the "new_record" flag. It defaults to 0, so
-     if ($rootFlag) {
-         push @fieldList, "new_record $TypeTable{boolean}->{sqlType} NOT NULL DEFAULT 0";
-     }
      # Convert the field list into a comma-delimited string.
      my $fieldThing = join(', ', @fieldList);
      # Insure the table is not already there.
-Line 1532
+Line 1528
      return sort keys %{$entityList};
  }
+ =head3 GetConnectingRelationships
+     my @list = $erdb->GetConnectingRelationships($entityName);
+ Return a list of the relationships connected to the specified entity.
+ =over 4
+ =item entityName
+ Entity whose connected relationships are desired.
+ =item RETURN
+ Returns a list of the relationships that originate from the entity.
+ If the entity is on the from end, it will return the relationship
+ name. If the entity is on the to end it will return the converse of
+ the relationship name.
+ =back
+ =cut
+ sub GetConnectingRelationships {
+     # Get the parameters.
+     my ($self, $entityName) = @_;
+     # Declare the return variable.
+     my @retVal;
+     # Get the relationship list.
+     my $relationships = $self->{_metaData}->{Relationships};
+     # Find the entity.
+     my $entity = $self->{_metaData}->{Entities}->{$entityName};
+     # Only proceed if the entity exists.
+     if (! defined $entity) {
+         Trace("Entity $entityName not found.") if T(3);
+     } else {
+         # Loop through the relationships.
+         my @rels = keys %$relationships;
+         Trace(scalar(@rels) . " relationships found in connection search.") if T(3);
+         for my $relationshipName (@rels) {
+             my $relationship = $relationships->{$relationshipName};
+             if ($relationship->{from} eq $entityName) {
+                 # Here we have a forward relationship.
+                 push @retVal, $relationshipName;
+             } elsif ($relationship->{to} eq $entityName) {
+                 # Here we have a backward relationship. In this case, the
+                 # converse relationship name is preferred if it exists.
+                 my $converse = $relationship->{converse} || $relationshipName;
+                 push @retVal, $converse;
+             }
+         }
+     }
+     # Return the result.
+     return @retVal;
+ }
  =head3 GetDataTypes
      my %types = ERDB::GetDataTypes();
-Line 2316
+Line 2371
      }
      # Now we parse the key names into sort parameters. First, we prime the return
      # string.
-     my $retVal = "sort -t\"\t\" ";
+     my $retVal = "sort -T\"$FIG_Config::temp\" -t\"\t\" ";
      # Get the relation's field list.
      my @fields = @{$relationData->{Fields}};
      # Loop through the keys.
-Line 2346
+Line 2401
                  # will stop the inner loop. Note that the field number is
                  # 1-based in the sort command, so we have to increment the
                  # index.
-                 $fieldSpec = ($i + 1) . $modifier;
+                 my $realI = $i + 1;
+                 $fieldSpec = "$realI,$realI$modifier";
              }
          }
          # Add this field to the sort command.
-Line 2737
+Line 2793
                  push @missing, $fieldName;
              }
          }
-         # If we are the primary relation, add the new-record flag.
-         if ($relationName eq $newObjectType) {
-             push @valueList, 1;
-             push @fieldNameList, "new_record";
-         }
          # Only proceed if there are no missing fields.
          if (@missing > 0) {
              Trace("Relation $relationName for $newObjectType skipped due to missing fields: " .
-Line 2971
+Line 3022
      # Analyze the table to improve performance.
      if (! $options{partial}) {
          Trace("Analyzing and compacting $relationName.") if T(3);
-         $dbh->vacuum_it($relationName);
+         $self->Analyze($relationName);
      }
      Trace("$relationName load completed.") if T(3);
      # Return the statistics.
      return $retVal;
  }
+ =head3 Analyze
+     $erdb->Analyze($tableName);
+ Analyze and compact a table in the database. This is useful after a load
+ to improve the performance of the indexes.
+ =over 4
+ =item tableName
+ Name of the table to be analyzed and compacted.
+ =back
+ =cut
+ sub Analyze {
+     # Get the parameters.
+     my ($self, $tableName) = @_;
+     # Analyze the table.
+     $self->{_dbh}->vacuum_it($tableName);
+ }
+ =head3 TruncateTable
+     $erdb->TruncateTable($table);
+ Delete all rows from a table quickly. This uses the built-in SQL
+ C<TRUNCATE> statement, which effectively drops and re-creates a table
+ with all its settings intact.
+ =over 4
+ =item table
+ Name of the table to be cleared.
+ =back
+ =cut
+ sub TruncateTable {
+     # Get the parameters.
+     my ($self, $table) = @_;
+     # Get the database handle.
+     my $dbh = $self->{_dbh};
+     # Execute a truncation comment.
+     $dbh->SQL("TRUNCATE TABLE $table");
+ }
  =head3 CreateSearchIndex
      $erdb->CreateSearchIndex($objectName);

 Legend:



Removed from v.1.99
 


changed lines


 
Added in v.1.100
 Legend:



Removed from v.1.99
 


changed lines


 
Added in v.1.100
-Removed from v.1.99
+Added in v.1.100

MCS Webmaster	ViewVC Help
Powered by ViewVC 1.0.3