Diff of /Sprout/CustomAttributes.pm

-revision 1.8, Wed Nov 15 22:34:26 2006 UTC
+revision 1.9, Thu Nov 16 22:09:33 2006 UTC
 Line 1132
          my $filter = "";
          my @params = ();
          if (defined($actualObjectID)) {
-             # Here the caller wants to filter on object ID.
+             # Here the caller wants to filter on object ID. Check for a pattern.
-             $filter = "$entityType(id) = ? AND ";
+             my $comparator = ($actualObjectID =~ /%/ ? "LIKE" : "=");
+             # Update the filter and the parameter list.
+             $filter = "$entityType(id) $comparator ? AND ";
              push @params, $actualObjectID;
          }
          # It's time to begin making queries. We process one attribute key at a time, because
-Line 1377
+Line 1379
          my %secondaries = $self->GetSecondaryFields($entityType);
          if (exists $secondaries{$key}) {
              # We found it, so delete all the values of the key.
-             $self->DeleteValue($entityName, undef, $key);
+             $self->DeleteValue($entityType, undef, $key);
          }
      }
      # Return a 1, for backward compatability.
      return 1;
  }
+ =head3 GetAttributeKeys
+ C<< my @keyList = $attrDB->GetAttributeKeys($entityName); >>
+ Return a list of the attribute keys for a particular entity type.
+ =over 4
+ =item entityName
+ Name of the entity whose keys are desired.
+ =item RETURN
+ Returns a list of the attribute keys for the specified entity.
+ =back
+ =cut
+ sub GetAttributeKeys {
+     # Get the parameters.
+     my ($self, $entityName) = @_;
+     # Get the entity's secondary fields.
+     my %keyList = $self->GetSecondaryFields($entityName);
+     # Return the keys.
+     return sort keys %keyList;
+ }
 ;

 Legend:



Removed from v.1.8
 


changed lines


 
Added in v.1.9
 Legend:



Removed from v.1.8
 


changed lines


 
Added in v.1.9
-Removed from v.1.8
+Added in v.1.9

MCS Webmaster	ViewVC Help
Powered by ViewVC 1.0.3