%#<pre><% Dumper(\%ARGS) %></pre>
<%args>

  $class	=> undef
  $source_id	=> undef
  $source_class	=> undef
  $dest_id	=> undef
  $dest_class	=> undef
  $sources	=> undef
  $destinations	=> undef

</%args>
<%init>

  abort404	unless $class;

  my @documents;
  my $ret_params;
  if ( $source_id && $source_class && ($destinations || (ref $destinations eq 'ARRAY' && @$destinations)) ) {
	@documents = $keeper->get_documents (
			in_id	=> $destinations,
		);
	foreach my $doc (@documents) {
		my $link = $class->new ($keeper);
		$link->source_id ($source_id);
		$link->source_class ($source_class);
		$link->dest_id ($doc->id);
		$link->dest_class ($doc->class);
		$link->store;
	}
	$ret_params = "id=$source_id&class=$source_class";
  } elsif ( $dest_id && $dest_class && ($sources || (ref $sources eq 'ARRAY' && @$sources)) ) {
	@documents = $keeper->get_documents (
			in_id	=> $sources,
		);
	foreach my $doc (@documents) {
		my $link = $class->new ($keeper);
		$link->dest_id ($dest_id);
		$link->dest_class ($dest_class);
		$link->source_id ($doc->id);
		$link->source_class ($doc->class);
		$link->store;
	}
	$ret_params = "id=$dest_id&class=$dest_class";
  }
  if ($ret_params) {
	$m->redirect("Location", "/contenido/users/document.html?".$ret_params);
  }else{
	&abort404;
  }

</%init>