Repository List / Contenido / koi8 / core / lib / Contenido / Link.pm @ r3

package Contenido::Link;

# ----------------------------------------------------------------------------
# ����� �����
# ����� ����� �� �������� �� ��� �����������, ��� �� 
#  ���������� ����� ������ �� ����� ����� �������������� �����.
# ----------------------------------------------------------------------------

use strict;
use warnings;
use locale;

use base 'Contenido::Object';

use Contenido::Globals;

# ----------------------------------------------------------------------------
# ����� class_name() - ���������� ��� ������
# ----------------------------------------------------------------------------
sub class_name
{
	return '�����';
}

sub class_description
{
	return '����� �� ���������';
}

# ���� ���������� �������
sub class_table
{
	return 'SQL::LinkTable';
}

# ----------------------------------------------------------------------------
# �����������. ������� ����� ������ �����... 
#
# ������ �������������:
#  Contenido::Link->new()
#  Contenido::Link->new($keeper)
#  Contenido::Link->new($keeper,$id)
# ----------------------------------------------------------------------------
sub new
{
	my ($proto, $keeper, $id) = @_;
	my $class = ref($proto) || $proto;
	my $self;

	if (defined($id) && ($id>0) && defined($keeper)) {
	        $self=$keeper->get_link_by_id($id, class=>$class);
	} else {
	        $self = {};
	        bless($self, $class);
	        $self->init();
	        $self->class($class);

	        $self->keeper($keeper)          if (ref $keeper);
	}
	return $self;
}

#������� ������ available_sources (���������� ��� ������)
sub available_sources {
#	return $state->{available_documents};
	return [];
}

sub available_destinations {
	return [];
}

#sub _get_table {
#       return class_table->new();
#}

1;