[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.42, Wed Apr 19 03:34:15 2006 UTC revision 1.44, Sat May 27 02:02:28 2006 UTC
# Line 110  Line 110 
110  compatability with certain database packages), but the only values supported are  compatability with certain database packages), but the only values supported are
111  0 and 1.  0 and 1.
112    
113    =item id-string
114    
115    variable-length string, maximum 25 characters
116    
117  =item key-string  =item key-string
118    
119  variable-length string, maximum 40 characters  variable-length string, maximum 40 characters
# Line 324  Line 328 
328                    boolean => { sqlType => 'SMALLINT',           maxLen => 1,            avgLen =>   1, dataGen => "IntGen(0, 1)" },                    boolean => { sqlType => 'SMALLINT',           maxLen => 1,            avgLen =>   1, dataGen => "IntGen(0, 1)" },
329                   'hash-string' =>                   'hash-string' =>
330                               { sqlType => 'VARCHAR(22)',        maxLen => 22,           avgLen =>  22, dataGen => "SringGen(22)" },                               { sqlType => 'VARCHAR(22)',        maxLen => 22,           avgLen =>  22, dataGen => "SringGen(22)" },
331                     'id-string' =>
332                                 { sqlType => 'VARCHAR(25)',        maxLen => 25,           avgLen =>  25, dataGen => "SringGen(22)" },
333                   'key-string' =>                   'key-string' =>
334                               { sqlType => 'VARCHAR(40)',        maxLen => 40,           avgLen =>  10, dataGen => "StringGen(IntGen(10,40))" },                               { sqlType => 'VARCHAR(40)',        maxLen => 40,           avgLen =>  10, dataGen => "StringGen(IntGen(10,40))" },
335                   'name-string' =>                   'name-string' =>
# Line 2766  Line 2772 
2772      # Declare the return variable.      # Declare the return variable.
2773      my $retVal = 0;      my $retVal = 0;
2774      # Find out if the relation is a primary entity relation.      # Find out if the relation is a primary entity relation.
2775      my $entityTable = $self->{Entities};      my $entityTable = $self->{_metaData}->{Entities};
2776      if (exists $entityTable->{$relationName}) {      if (exists $entityTable->{$relationName}) {
2777          my $keyType = $entityTable->{$relationName}->{keyType};          my $keyType = $entityTable->{$relationName}->{keyType};
2778            Trace("Relation $relationName found in entity table with key type $keyType.") if T(3);
2779          # If the key is not a hash string, we must do the sort.          # If the key is not a hash string, we must do the sort.
2780          if ($keyType ne 'hash-string') {          if ($keyType ne 'hash-string') {
2781              $retVal = 1;              $retVal = 1;

Legend:
Removed from v.1.42  
changed lines
  Added in v.1.44

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3