package II3562149e53818b6637b38680e87ba918::singlelinker; use strict; use Zen; use Zen::PerlHandler; use II3562149e53818b6637b38680e87ba918::perllist; use II8b55f24974af3d53369c3d9cea404f55; sub get { my ($form, $f) = @_; my ($url, $obj_view, $title_view, $view_class) = split ',', Zen::PerlHandler->getStatList, 4; my $object = $form->getDecorated; $url = II982446f8950cc3dc59e487adba22df54::IIllllIlIIllIIII($II720d6e18aa34327713eb014408fc9144::IIllIllllIlllIIl{$II720d6e18aa34327713eb014408fc9144::IlllllIlIIIIlIll},1009,$II720d6e18aa34327713eb014408fc9144::IIllIllllIlllIIl{$II720d6e18aa34327713eb014408fc9144::IIIIIIllIIlllIIl})->new($object)->parse($url); my $pfx = $form->pfx; my $code = '<input type="hidden"/>'; 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;
<div id="DivAtkSlWrapper$pfx$f"></div>
<script language="JavaScript">
{ var lnk = new atkSLinker('$pfx$f', '$url'); lnk.makeHTML(document.getElementById('DivAtkSlWrapper$pfx$f'));
CODE
if ($object->{$f}) { my $ObjView = $object->getView($view_class)->{$obj_view}; my $title = $ObjView->{$title_view}; $title =~ s/'/\\'/g; $code .= qq(\nlnk.receive('$ObjView->{ID}','$title');\n); } $code .= "}\n</script>\n"; $code; } sub set { II3562149e53818b6637b38680e87ba918::perllist::set(@_); } 1; 