[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.39, Sun Mar 26 17:24:55 2006 UTC revision 1.40, Wed Mar 29 20:03:05 2006 UTC
# Line 1023  Line 1023 
1023              my $nameLength = 2 + length $mappedName;              my $nameLength = 2 + length $mappedName;
1024              # Get the real object name for this mapped name.              # Get the real object name for this mapped name.
1025              my $objectName = $mappedNameHash{$mappedName};              my $objectName = $mappedNameHash{$mappedName};
1026                Trace("Processing $mappedName for object $objectName.") if T(4);
1027              # Get the object's field list.              # Get the object's field list.
1028              my $fieldList = $self->GetFieldTable($objectName);              my $fieldList = $self->GetFieldTable($objectName);
1029              # Find the field references for this object.              # Find the field references for this object.
# Line 1037  Line 1038 
1038                  if (!exists $fieldList->{$fieldName}) {                  if (!exists $fieldList->{$fieldName}) {
1039                      Confess("Field $fieldName not found for object $objectName.");                      Confess("Field $fieldName not found for object $objectName.");
1040                  } else {                  } else {
1041                        Trace("Processing $fieldName at position $pos.") if T(4);
1042                      # Get the field's relation.                      # Get the field's relation.
1043                      my $relationName = $fieldList->{$fieldName}->{relation};                      my $relationName = $fieldList->{$fieldName}->{relation};
1044                      # Now we have a secondary relation. We need to insure it matches the                      # Now we have a secondary relation. We need to insure it matches the
# Line 1068  Line 1070 
1070                      substr($filterString, $pos, $len) = $sqlReference;                      substr($filterString, $pos, $len) = $sqlReference;
1071                      # Reposition the search.                      # Reposition the search.
1072                      pos $filterString = $pos + length $sqlReference;                      pos $filterString = $pos + length $sqlReference;
1073                        Trace("New filter string is \"$filterString\".") if T(4);
1074                  }                  }
1075              }              }
1076          }          }

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3