package II3562149e53818b6637b38680e87ba918::multilinker; use strict; use Zen; use Zen::PerlHandler; use II3562149e53818b6637b38680e87ba918::perllist; use II8b55f24974af3d53369c3d9cea404f55; sub get { my ($form, $f) = @_; my ($url, $objs_view, $title_view, $view_class, $object_record_url) = split ',', Zen::PerlHandler->getStatList, 5; my $object = $form->getDecorated; $url = II720d6e18aa34327713eb014408fc9144::IlllIllllIllIIIl($II8dae0e141ee45f5daba6a74e4a7c3b6f::IllIlIIllllIIIlI{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IlIllIIlIllIlIIl},1009,$II8dae0e141ee45f5daba6a74e4a7c3b6f::IllIlIIllllIIIlI{$II720d6e18aa34327713eb014408fc9144::llIIIIIIIlllIIII})->new($object)->parse($url); my $pfx = $form->pfx; my $code; if (Zen->hasRequest) { my $request = Zen->getRequest; my $ctx = $request->getCtx; unless ($ctx->{AtkListersJsIncidence}) { $code .= <<CODE;
<script language="JavaScript" src="$ENV{SCRIPT_NAME}/suppl/atk/linkers.js"></script>
CODE
$ctx->{AtkListersJsIncidence}++; } } $code .= <<CODE;
<script language="JavaScript">
{ var lnk = new atkMLinker('$pfx$f', '$url'); lnk.makeHTML();
CODE
if (ref($object) ne 'HASH' && $object->can('getView')) { my $ObjsView = $object->getView($view_class)->{$objs_view}; for my $ObjView (@$ObjsView) { my $title = $ObjView->{$title_view}; if ($object_record_url) { $title = qq(<a target="_blank" href="$object_record_url$ObjView->{ID}">$title</a>) } $title =~ s/'/\\'/g; $code .= qq(\nlnk.receive('$ObjView->{ID}','$title');\n); } } $code .= "}\n</script>\n"; $code; } sub set { II3562149e53818b6637b38680e87ba918::perllist::set(@_); } 1; 