cvs commit: p5ee/App-Repository/lib/App/SessionObject RepositoryObjectDomain.pm

cvsuser     05/08/09 11:46:22

  Modified:    App-Repository/lib/App/SessionObject
                        RepositoryObjectDomain.pm
  Log:
  change containment separator from . to -
  
  Revision  Changes    Path
  1.4       +3 -3      p5ee/App-Repository/lib/App/SessionObject/RepositoryObjectDomain.pm
  
  Index: RepositoryObjectDomain.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Repository/lib/App/SessionObject/RepositoryObjectDomain.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- RepositoryObjectDomain.pm	28 Mar 2005 20:44:25 -0000	1.3
  +++ RepositoryObjectDomain.pm	9 Aug 2005 18:46:22 -0000	1.4
  @@ -60,7 +60,7 @@
       my $context = $self->{context};
       my ($object_set_name, $object_set);
       foreach my $table (@tables) {
  -        $object_set_name = $self->{object_set}{$table}{name} || "$self->{name}.$table";
  +        $object_set_name = $self->{object_set}{$table}{name} || "$self->{name}-$table";
           $object_set = $context->session_object($object_set_name);
           $object_set->_clear_cache();
       }
  @@ -81,7 +81,7 @@
       my $context = $self->{context};
       my $params = $self->{params} || {};
   
  -    my $object_set_name = $self->{object_set}{$table}{name} || "$self->{name}.$table";
  +    my $object_set_name = $self->{object_set}{$table}{name} || "$self->{name}-$table";
       my $args = $self->{object_set}{$table}{args} || {};
       if (!$args->{class}) {
           $args->{class} = "App::SessionObject::RepositoryObjectSet";