Revision 45

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

Legend:

 
Added
 
Removed
 
Modified

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

     
    651 651 }
    652 652 }
    653 653 }
    654 do { $log->warning("����� ������ delete() ��� �������� �������������� ��� ��������"); return undef }
    654 do { $log->warning("Вызов метода delete() без указания идентификатора для удаления"); return undef }
    655 655 unless ($self->{id});
    656 656 $keeper->t_connect() || do { $keeper->error(); return undef; };
    657 657 $keeper->TSQL->do("DELETE FROM ".$self->class_table->db_table." WHERE id = ?", {}, $self->id) || return $self->t_abort();
    … …  
    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 ) {