| 1 |
195 |
ahitrov |
%#<pre><% Dumper(\%ARGS) %></pre> |
| 2 |
|
|
<%args> |
| 3 |
|
|
|
| 4 |
|
|
$class => undef |
| 5 |
|
|
$source_id => undef |
| 6 |
|
|
$source_class => undef |
| 7 |
|
|
$dest_id => undef |
| 8 |
|
|
$dest_class => undef |
| 9 |
|
|
$sources => undef |
| 10 |
|
|
$destinations => undef |
| 11 |
|
|
|
| 12 |
|
|
</%args> |
| 13 |
|
|
<%init> |
| 14 |
|
|
|
| 15 |
|
|
abort404 unless $class; |
| 16 |
|
|
|
| 17 |
|
|
my @documents; |
| 18 |
|
|
my $ret_params; |
| 19 |
|
|
if ( $source_id && $source_class && ($destinations || (ref $destinations eq 'ARRAY' && @$destinations)) ) { |
| 20 |
|
|
@documents = $keeper->get_documents ( |
| 21 |
|
|
in_id => $destinations, |
| 22 |
|
|
); |
| 23 |
|
|
foreach my $doc (@documents) { |
| 24 |
|
|
my $link = $class->new ($keeper); |
| 25 |
|
|
$link->source_id ($source_id); |
| 26 |
|
|
$link->source_class ($source_class); |
| 27 |
|
|
$link->dest_id ($doc->id); |
| 28 |
|
|
$link->dest_class ($doc->class); |
| 29 |
|
|
$link->store; |
| 30 |
|
|
} |
| 31 |
|
|
$ret_params = "id=$source_id&class=$source_class"; |
| 32 |
|
|
} elsif ( $dest_id && $dest_class && ($sources || (ref $sources eq 'ARRAY' && @$sources)) ) { |
| 33 |
|
|
@documents = $keeper->get_documents ( |
| 34 |
|
|
in_id => $sources, |
| 35 |
|
|
); |
| 36 |
|
|
foreach my $doc (@documents) { |
| 37 |
|
|
my $link = $class->new ($keeper); |
| 38 |
|
|
$link->dest_id ($dest_id); |
| 39 |
|
|
$link->dest_class ($dest_class); |
| 40 |
|
|
$link->source_id ($doc->id); |
| 41 |
|
|
$link->source_class ($doc->class); |
| 42 |
|
|
$link->store; |
| 43 |
|
|
} |
| 44 |
|
|
$ret_params = "id=$dest_id&class=$dest_class"; |
| 45 |
|
|
} |
| 46 |
|
|
if ($ret_params) { |
| 47 |
|
|
$m->redirect("Location", "/contenido/users/document.html?".$ret_params); |
| 48 |
|
|
}else{ |
| 49 |
|
|
&abort404; |
| 50 |
|
|
} |
| 51 |
|
|
|
| 52 |
|
|
</%init> |