[Bio] / Sprout / ERDB.pm Repository:
ViewVC logotype

Diff of /Sprout/ERDB.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.55, Sat Jun 24 23:49:10 2006 UTC revision 1.59, Fri Jul 7 00:24:50 2006 UTC
# Line 1623  Line 1623 
1623  The next statement inserts a C<HasProperty> relationship between feature C<fig|158879.1.peg.1> and  The next statement inserts a C<HasProperty> relationship between feature C<fig|158879.1.peg.1> and
1624  property C<4> with an evidence URL of C<http://seedu.uchicago.edu/query.cgi?article_id=142>.  property C<4> with an evidence URL of C<http://seedu.uchicago.edu/query.cgi?article_id=142>.
1625    
1626  C<< $erdb->InsertObject('HasProperty', { 'from-link' => 'fig|158879.1.peg.1', 'to-link' => 4, evidence = 'http://seedu.uchicago.edu/query.cgi?article_id=142'}); >>  C<< $erdb->InsertObject('HasProperty', { 'from-link' => 'fig|158879.1.peg.1', 'to-link' => 4, evidence => 'http://seedu.uchicago.edu/query.cgi?article_id=142'}); >>
1627    
1628  =over 4  =over 4
1629    
# Line 1834  Line 1834 
1834      }      }
1835      # Analyze the table to improve performance.      # Analyze the table to improve performance.
1836      $dbh->vacuum_it($relationName);      $dbh->vacuum_it($relationName);
1837        # Flush the database cache.
1838        $dbh->flush_tables();
1839      # Return the statistics.      # Return the statistics.
1840      return $retVal;      return $retVal;
1841  }  }
# Line 3260  Line 3262 
3262      # Find out if the relation is a primary entity relation.      # Find out if the relation is a primary entity relation.
3263      my $entityTable = $self->{_metaData}->{Entities};      my $entityTable = $self->{_metaData}->{Entities};
3264      if (exists $entityTable->{$relationName}) {      if (exists $entityTable->{$relationName}) {
         my $keyType = $entityTable->{$relationName}->{keyType};  
         Trace("Relation $relationName found in entity table with key type $keyType.") if T(3);  
         # If the key is not a hash string, we must do the sort.  
         if ($keyType ne 'hash-string') {  
3265              $retVal = 1;              $retVal = 1;
3266          }          }
     }  
3267      # Return the result.      # Return the result.
3268      return $retVal;      return $retVal;
3269  }  }

Legend:
Removed from v.1.55  
changed lines
  Added in v.1.59

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3