Revision 115

Date:
2011/08/17 15:54:51
Author:
ahitrov
Revision Log:
Old $object->linked_to bug
Files:

Legend:

 
Added
 
Removed
 
Modified

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

     
    748 748
    749 749 do { $log->warning("Вызов метода ->set_link() без указания идентификатора сообщения-источника"); return undef } unless ($self->id() > 0);
    750 750 do { $log->warning("Вызов метода ->set_link() без указания идентификатора сообщения-цели"); return undef } unless ($dest_id >= 0);
    751 do { $log->warning("Вызов метода ->set_link() без указания класса связи"); } unless (defined($lclass) && ($lclass >= 0));
    751 do { $log->warning("Вызов метода ->set_link() без указания класса связи"); } unless defined($lclass) && length($lclass);
    752 752
    753 753 # Создаем объект связи...
    754 754 my $link = $lclass->new($self->keeper);
    … …  
    1135 1135 # Метод _image_store() генерит сохраняет графику, привязанную к полю image или images
    1136 1136 #
    1137 1137 # Формат использования:
    1138 # $document->_image_store( INPUT, field => 'fieldname' )
    1138 # $document->_image_store( INPUT, attr => 'fieldname' )
    1139 1139 # ----------------------------------------------------------------------------
    1140 1140 sub _store_image {
    1141 1141 my $self = shift;