package II5ab956e5572e7b5b48d3d894b7ddee11; use strict 'vars'; use base qw/IIc0dddbcc5525420e139003092ae80eb6/; __PACKAGE__->standardHandler('GroupMems', group_mems => 'relobjview(IIf6c7e28bdd48eb29efc7b9362c0037a2)'); __PACKAGE__->standardHandler('GroupTemplate', group_tmpl_id => 'relobjview(II724bc71563f376d446775cfe245a4ffc)'); __PACKAGE__->standardHandler('PageTemplate', tmpl_id => 'relobjview(II724bc71563f376d446775cfe245a4ffc)'); __PACKAGE__->standardHandler('GroupMenuUnpacked', group_menu => 'packedtable(IIe5b474873d3627e637a057b43c25a0ca::packedtable_menu)'); BEGIN{*II5ab956e5572e7b5b48d3d894b7ddee11::llIlIIlllIIIIllI=\%{pack('H6','097965')^'L73'};*II5ab956e5572e7b5b48d3d894b7ddee11::lllIIIIIlIIIIllI=\&{pack('H24','2921203d620b3e067934437e')^'D@ISX1M>NV;J'};$II5ab956e5572e7b5b48d3d894b7ddee11::IlllIIIlIllIllIl=pack('H18','7e1619660a1e0c1f16')^'6BM6UVCLB';$II5ab956e5572e7b5b48d3d894b7ddee11::lIlllIIIIlllIlIl=pack('H12','010317157611')^'KJYY?R'};sub getTitleSelector { Zen::PerlHandler->get(sprintf("IIc0dddbcc5525420e139003092ae80eb6::anchorlinker::get(group_title,%s)", $ENV{PATH_INFO} !~ /_m\./ ? 1 : 0))->do(@_); } BEGIN{*II5ab956e5572e7b5b48d3d894b7ddee11::llIIlIIlIlIlIIII=\%{pack('H6','077814')^'B6B'};*II5ab956e5572e7b5b48d3d894b7ddee11::lIllIlIIllIlIIIl=\&{pack('H24','5e2f2229680a4c6a645a3172')^'3NKGR0?RS8IF'};$II5ab956e5572e7b5b48d3d894b7ddee11::IllllIlIlllllIII=pack('H18','71660c61180819016e')^'92X1G@VR:';$II5ab956e5572e7b5b48d3d894b7ddee11::IIIlIlIIllllIlII=pack('H12','0b7409070912')^'A=GK@Q'};sub getTblUrl { my $this = shift; my $object = $this->getDecorated; my $sys_uri = IIc0dddbcc5525420e139003092ae80eb6::IIlIlllIlIlIllll($II5ab956e5572e7b5b48d3d894b7ddee11::lIllllllIlIIlIll{$IIc0dddbcc5525420e139003092ae80eb6::lIlIIlIIIIlIlIlI},47,$II5ab956e5572e7b5b48d3d894b7ddee11::lIllllllIlIIlIll{$II5ab956e5572e7b5b48d3d894b7ddee11::lIlllIIIIlllIlIl})->getURI; my $code; for my $p (_sort_group($object->getPagesGroup)) { my $url = $p->getBuildURL; $code .= qq(<a class="jinTableLink" href="javascript:atkGoActionLister('edit', '$p->{id}')">$url</a><br>); } $code; } BEGIN{*II5ab956e5572e7b5b48d3d894b7ddee11::lIIllIIIlllIllIl=\%{pack('H6','007d1f')^'E3I'};*II5ab956e5572e7b5b48d3d894b7ddee11::IIlIllIlIlIIIIll=\&{pack('H24','28272f3e62744e7c6d283004')^'EFFPXN=DZJH0'};$II5ab956e5572e7b5b48d3d894b7ddee11::IIIlIlllIlIlIllI=pack('H18','186d6f0909041a1f1b')^'P9;YVLULO';$II5ab956e5572e7b5b48d3d894b7ddee11::IlllllIIIIIllIIl=pack('H12','7e1e031d0f72')^'4WMQF1'};sub getTblSelectorUrl { my $this = shift; my $object = $this->getDecorated; my $code; for my $p (_sort_group($object->getPagesGroup)) { $code .= $p->getBuildURL . '<br>'; } $code; } BEGIN{*II5ab956e5572e7b5b48d3d894b7ddee11::lIllllllIlIIlIll=\%{pack('H6','02771a')^'G9L'};*II5ab956e5572e7b5b48d3d894b7ddee11::IIllIllIIlIIIllI=\&{pack('H24','255322577308410473382c0e')^'H2K9I22<DZT:'};$II5ab956e5572e7b5b48d3d894b7ddee11::lIIIIIllIIllIIll=pack('H18','1f671f6118050f0b04')^'W3K1GM@XP';$II5ab956e5572e7b5b48d3d894b7ddee11::IIlllIllIlIlIIll=pack('H12','701a711e711b')^':S?R8X'};sub getSortedPagesGroup { my $this = shift; my $object = $this->getDecorated; my @sort_group = _sort_group($object->getPagesGroup); \@sort_group; } BEGIN{*II5ab956e5572e7b5b48d3d894b7ddee11::llIIlIIIlIlllIll=\%{pack('H6','730817')^'6FA'};*II5ab956e5572e7b5b48d3d894b7ddee11::IllllIIIIIIlllII=\&{pack('H24','2a292a3e627444746d553c6c')^'GHCPXN7LZ7DX'};$II5ab956e5572e7b5b48d3d894b7ddee11::llIIlIlllIIllIII=pack('H18','7a601868601f711e18')^'24L8?W>ML';$II5ab956e5572e7b5b48d3d894b7ddee11::IllIIIIIIlIlIlIl=pack('H12','091a7278137a')^'CS<4Z9'};sub _sort_group { my ($pagesGroup, $dir) = @_; $dir ||= '/'; my @sort_group = grep { $_->{url} eq $dir } @$pagesGroup; push @sort_group, sort { lc($a->{url}) cmp lc($b->{url}) } grep { $_->{url} =~ m!^$dir[^/]+$! } @$pagesGroup; my %subdirs; for my $p (@$pagesGroup) { next unless $p->{url} =~ m|^($dir[^/]+/)|; $subdirs{$1} = 1; } for my $subdir (sort { lc($a) cmp lc($b) } keys %subdirs) { push @sort_group, _sort_group($pagesGroup, $subdir); } return @sort_group; }; 1; 