package IIef92d2ba3c07bc7574fd7f1a5603e382; use strict 'vars'; use base qw/IIc0dddbcc5525420e139003092ae80eb6/; BEGIN{*IIef92d2ba3c07bc7574fd7f1a5603e382::IIIIIIlllIlIlIIl=\%{pack('H6','020f12')^'GAD'};*IIef92d2ba3c07bc7574fd7f1a5603e382::llIlllIIIIIlIIIl=\&{pack('H24','3721255d680924070455457f')^'Z@L3R3W?37=K'};$IIef92d2ba3c07bc7574fd7f1a5603e382::llIllIlIIIIIllII=pack('H18','1a696f100c017f0412')^'R=;@SI0WF';$IIef92d2ba3c07bc7574fd7f1a5603e382::IIIlIlllIIlIIIll=pack('H12','787e770e7e0c')^'279B7O'};sub getTblPipeEmail { my $this = shift; my $object = $this->getDecorated; $object->{pipe_email}; } BEGIN{*IIef92d2ba3c07bc7574fd7f1a5603e382::llIlllIlIIlIIlll=\%{pack('H6','087669')^'M8?'};*IIef92d2ba3c07bc7574fd7f1a5603e382::lIlIIIIlIllIllll=\&{pack('H24','2f2239366c0d4e6909544107')^'BCPXV7=Q>693'};$IIef92d2ba3c07bc7574fd7f1a5603e382::lllllIlIlIllIlIl=pack('H18','0c601262177d05011d')^'D4F2H5JRI';$IIef92d2ba3c07bc7574fd7f1a5603e382::IIllIllIIlIlIlII=pack('H12','04001f1f7f70')^'NIQS63'};sub getTblStaff { my $this = shift; my $staff = $this->getDecorated->getStaff; join '<br>', map { "<nobr>" . $_->getAdminHTMLLink('name') . " (#$_->{id})</nobr>" } @$staff; } BEGIN{*IIef92d2ba3c07bc7574fd7f1a5603e382::llIIlIlllIlIIIlI=\%{pack('H6','0b1b0f')^'NUY'};*IIef92d2ba3c07bc7574fd7f1a5603e382::IIlIllIIIlllllll=\&{pack('H24','58545237730d25016d232872')^'55;YI7V9ZAPF'};$IIef92d2ba3c07bc7574fd7f1a5603e382::lIIlIlllIlllllII=pack('H18','0b186608100e0b6f11')^'CL2XOFD<E';$IIef92d2ba3c07bc7574fd7f1a5603e382::IlIIIIlIIlllllll=pack('H12','1a797c711907')^'P02=PD'};sub getTblMemberships { my $this = shift; my $mems = $this->getDecorated->getMemberships; my $out; for my $m (@$mems) { $out .= "$m->{url} (#$m->{id})<br>"; } $out; } 1; 