[svn:p5ee] r9384 - p5ee/trunk/App-Repository/lib/App/SessionObject

Author: spadkins
Date: Mon Apr  9 11:19:05 2007
New Revision: 9384

Modified:
   p5ee/trunk/App-Repository/lib/App/SessionObject/RepositoryObjectSet.pm

Log:
make get_index() subject to better, more rigorous index naming strategy

Modified:
p5ee/trunk/App-Repository/lib/App/SessionObject/RepositoryObjectSet.pm
==============================================================================
---
p5ee/trunk/App-Repository/lib/App/SessionObject/RepositoryObjectSet.pm	(original)
+++
p5ee/trunk/App-Repository/lib/App/SessionObject/RepositoryObjectSet.pm	Mon
Apr  9 11:19:05 2007
@[EMAIL PROTECTED]
 -292,12 +292,13 @[EMAIL PROTECTED]
 sub get_key_columns {
     &App::sub_entry if ($App::trace);
     my ($self) = @[EMAIL PROTECTED]
    my $repname = $self->{repository};
-    my $context = $self->{context};
-    my $rep     = $context->repository($repname);
-    my $table   = $self->{table} || die "table not defined";
-    my $column_defs = $rep->{table}{$table}{column};
-    my $columns = $self->{columns};
+    my $repname     = $self->{repository};
+    my $context     = $self->{context};
+    my $rep         = $context->repository($repname);
+    my $table       = $self->{table} || die "table not defined";
+    my $table_def   = $rep->get_table_def($table);
+    my $column_defs = $table_def->{column};
+    my $columns     = $self->{columns};
     if (!$columns) {
         $columns = $rep->_get_default_columns($table);
         $self->{columns} = $columns;
@[EMAIL PROTECTED]
 -320,7 +321,8 @[EMAIL PROTECTED]
     my $repname     = $self->{repository};
     my $rep         = $context->repository($repname);
     my $table       = $self->{table} || die "table not defined";
-    my $column_defs = $rep->{table}{$table}{column};
+    my $table_def   = $rep->get_table_def($table);
+    my $column_defs = $table_def->{column};
     &App::sub_exit($column_defs) if ($App::trace);
     return($column_defs);
 }
@[EMAIL PROTECTED]
 -333,9 +335,10 @[EMAIL PROTECTED]
     &App::sub_entry if ($App::trace);
     my $self = ****ft;
     my $options = (ref($_[0]) eq "HASH") ? ****ft : {};
-    my $key_name = ref($_[0]) ? "ie1" : ****ft;
-    $key_name ||= "ie1";
+    my $key_name = ref($_[0]) ? "" : ****ft;
     my $key_columns = ****ft;
+    $key_name = join(",", @[EMAIL PROTECTED]
) if (!$key_name &&
ref($key_columns) eq "ARRAY");
+    $key_name ||= "ie1";
 
     $self->_clear_cache_if_auto_params_changed($options) if (defined
$self->{auto_params});
     $self->_clear_cache_if_objects_expired($options) if ((defined
$options->{max_age} || defined $self->{max_age}) && $self->{objects});
@[EMAIL PROTECTED]
 -371,9 +374,10 @[EMAIL PROTECTED]
     &App::sub_entry if ($App::trace);
     my $self = ****ft;
     my $options = (ref($_[0]) eq "HASH") ? ****ft : {};
-    my $key_name = ref($_[0]) ? "ak1" : ****ft;
-    $key_name ||= "ak1";
+    my $key_name = ref($_[0]) ? "" : ****ft;
     my $key_columns = ****ft;
+    $key_name = join(",", @[EMAIL PROTECTED]
) if (!$key_name &&
ref($key_columns) eq "ARRAY");
+    $key_name ||= "ak1";
 
     $self->_clear_cache_if_auto_params_changed($options) if (defined
$self->{auto_params});
     $self->_clear_cache_if_objects_expired($options) if ((defined
$options->{max_age} || defined $self->{max_age}) && $self->{objects});
@[EMAIL PROTECTED]
 -483,8 +487,10 @[EMAIL PROTECTED]
     my $self = ****ft;
     my $options = (ref($_[0]) eq "HASH") ? ****ft : {};
     my $key = ****ft;
-    my $key_name = ref($_[0]) ? "ak1" : ****ft;
+    my $key_name = ref($_[0]) ? "" : ****ft;
     my $key_columns = ****ft;
+    $key_name = join(",", @[EMAIL PROTECTED]
) if (!$key_name &&
ref($key_columns) eq "ARRAY");
+    $key_name ||= "ak1";
 
     $self->_clear_cache_if_auto_params_changed($options) if (defined
$self->{auto_params});
     $self->_clear_cache_if_objects_expired($options) if ((defined
$options->{max_age} || defined $self->{max_age}) && $self->{objects});
@[EMAIL PROTECTED]
 -505,15 +511,16 @[EMAIL PROTECTED]
     my $options = (ref($_[0]) eq "HASH") ? ****ft : {};
     my $key = ****ft;
     die "key not scalar" if (ref($key));
-    my $key_name = ref($_[0]) ? "ie1" : ****ft;
+    my $key_name = ref($_[0]) ? "" : ****ft;
     my $key_columns = ****ft;
+    $key_name = join(",", @[EMAIL PROTECTED]
) if (!$key_name &&
ref($key_columns) eq "ARRAY");
+    $key_name ||= "ie1";
 
     $self->_clear_cache_if_auto_params_changed($options) if (defined
$self->{auto_params});
     $self->_clear_cache_if_objects_expired($options) if ((defined
$options->{max_age} || defined $self->{max_age}) && $self->{objects});
 
     my ($objects);
     if ($key) {
-        $key_name ||= "ie1";
         my $index = $self->get_index($key_name, $key_columns);
         $objects = $index->{$key} || [];
     }