Revision 46

Date:
2010/08/23 12:02:48
Author:
ahitrov@rambler.ru
Revision Log:
Бага автоматического удаления связей
Files:

Legend:

 
Added
 
Removed
 
Modified

  • koi8/core/lib/Contenido/Object.pm

     
    666 666 }
    667 667 my $dests = $classlink->available_destinations;
    668 668 if ( ref $dests eq 'ARRAY' && @$dests ) {
    669 $document_links{$classlink->class_table->db_table}{dest} = 1 if grep { $self->class eq $_ } @$sources;
    669 $document_links{$classlink->class_table->db_table}{dest} = 1 if grep { $self->class eq $_ } @$dests;
    670 670 }
    671 671 }
    672 672 foreach my $tablename ( keys %document_links ) {