Revision 195 (by ahitrov, 2012/03/15 18:26:13) |
Users plugin
|
%#<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>