package IIc0dddbcc5525420e139003092ae80eb6::anchorlinker; use strict; use II8b55f24974af3d53369c3d9cea404f55::filters::html; sub get { my ($view, $f) = @_; my ($showfield, $closeWindow) = split ',', Zen::PerlHandler->getStatList, 2; my $object = $view->getDecorated; my $in = Zen->getRequest->getInput; my $showvalue = $view->getDecorated->{$showfield}; my $origShowvalue = $showvalue; $showvalue = II8b55f24974af3d53369c3d9cea404f55::filters::html::html($showvalue); $showvalue = II8b55f24974af3d53369c3d9cea404f55::filters::html::html($showvalue); $showvalue =~ s/'/\\'/g; my $closeCode = $closeWindow ? 'window.close();' : ''; my $receive = $in->{type} ? "receiveFilter" : "receive"; qq(<script>function jsReceiveOne$object->{id}() { self.opener.atkLinker('$in->{js_receiver}').$receive('$object->{id}', '$showvalue', 1, '$in->{type}', '$in->{parent}', '$in->{title}'); }</script><a href="#" onClick="jsReceiveOne$object->{id}(); $closeCode return false;">$origShowvalue</a>); } 1; 