package IIa6082ad65946651d21b39caaa6a1d44a; use strict 'vars'; use base qw/IIc0dddbcc5525420e139003092ae80eb6/; BEGIN{*IIa6082ad65946651d21b39caaa6a1d44a::lIllIlllIIIlIllI=\%{pack('H6','0f7900')^'J7V'};*IIa6082ad65946651d21b39caaa6a1d44a::lIlIlllIlIllIIll=\&{pack('H24','3c5931557a6b2b08792e4576')^'Q8X;@QX0NL=B'};$IIa6082ad65946651d21b39caaa6a1d44a::lIlIIIIIlllIIlII=pack('H18','1e6a69181b10761d00')^'V>=HDX9NT';$IIa6082ad65946651d21b39caaa6a1d44a::lIllIIIllIlIIllI=pack('H12','710a081d1f17')^';CFQVT'};sub getTblActive { my $this = shift; $this->getDecorated->{active} ? qq(<b style="color:blue">active</b>) : qq(<span style="color:grey">inactive</span>); } 1; 