package II3d17be4eae47db814f725f7671bc071d; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; use II3562149e53818b6637b38680e87ba918::perllist; BEGIN{*II3d17be4eae47db814f725f7671bc071d::IIllllIIIIllIlII=\%{pack('H6','73736d')^'6=;'};*II3d17be4eae47db814f725f7671bc071d::llIlIIllIlllIIIl=\&{pack('H24','512833260c744f77605b3e01')^'<IZH6N<OW9F5'};$II3d17be4eae47db814f725f7671bc071d::lIlIlIIIIIllIlII=pack('H18','730c040806740c0118')^';XPXY<CRL';$II3d17be4eae47db814f725f7671bc071d::lIllIIlIIllIlllI=pack('H12','087d75731006')^'B4;?YE'};sub fields    { qw/ upload data quoted separator user_email user_passwd user_fname user_lname user_address user_city user_state user_zipcode user_country user_url user_company user_phone user_checks user_tax_id user_pg_paypal_email grant_info grant_roles grant_affprogs / } BEGIN{*II3d17be4eae47db814f725f7671bc071d::IllIlllIlIllllll=\%{pack('H6','790360')^'<M6'};*II3d17be4eae47db814f725f7671bc071d::llllIlIlIIIIIIII=\&{pack('H24','5a2025520c043a787d202b07')^'7AL<6>I@JBS3'};$II3d17be4eae47db814f725f7671bc071d::IllIIlIIlIIIIIlI=pack('H18','0f0e1c1113067a6017')^'GZHALN53C';$II3d17be4eae47db814f725f7671bc071d::lllllIllllIllIIl=pack('H12','730c0d7e7e0b')^'9EC27H'};sub required  { qw/user_email user_fname user_lname/ } BEGIN{*II3d17be4eae47db814f725f7671bc071d::IIIlIIlIIlIllIlI=\%{pack('H6','0d1a62')^'HT4'};*II3d17be4eae47db814f725f7671bc071d::IllllIllIIIIllII=\&{pack('H24','50335c36080243016d23387f')^'=R5X2809ZA@K'};$II3d17be4eae47db814f725f7671bc071d::IIIIlIIIIllllIII=pack('H18','791f626d16087b0715')^'1K6=I@4TA';$II3d17be4eae47db814f725f7671bc071d::IlllIIIlIIIIllIl=pack('H12','750819717f12')^'?AW=6Q'};sub namesResourcePrefix { 'field.import_users' } __PACKAGE__->standardHandler($_, $_ => 'checkbox') for qw/quoted/; __PACKAGE__->standardHandler($_, $_ => 'conflist(select,lists::import_users_separator::main)') for qw/separator/; __PACKAGE__->standardHandler($_, $_ => 'textarea(4,50)') for qw/data/; __PACKAGE__->standardHandler($_, $_ => 'message(field.import_users.grant_info_text)') for qw/grant_info/; __PACKAGE__->standardHandler($_, $_ => 'linkerpro(multiple,linkers::role::main)') for qw/grant_roles/; __PACKAGE__->standardHandler($_, $_ => 'linkerpro(multiple,linkers::affprog::main)') for qw/grant_affprogs/; BEGIN{*II3d17be4eae47db814f725f7671bc071d::llIllIllllllIIll=\%{pack('H6','7f1b18')^':UN'};*II3d17be4eae47db814f725f7671bc071d::IlIlIIllIlIIllIl=\&{pack('H24','2a5b3a2105014e71642f487b')^'G:SO?;=ISM0O'};$II3d17be4eae47db814f725f7671bc071d::lllIllIIlIlIlIlI=pack('H18','721602190e11756b02')^':BVIQY:8V';$II3d17be4eae47db814f725f7671bc071d::IllIIllIlllllIIl=pack('H12','757903737377')^'?0M?:4'};sub getUpload { my $this = shift; qq(<input type=file name="upload">); } BEGIN{*II3d17be4eae47db814f725f7671bc071d::lIIlIllIlIIlIIlI=\%{pack('H6','727b62')^'754'};*II3d17be4eae47db814f725f7671bc071d::IIlIlIIllllIIlII=\&{pack('H24','5630293a0178207f70244573')^';Q@T;BSGGF=G'};$II3d17be4eae47db814f725f7671bc071d::llllIlIIllIllIII=pack('H18','0e07101a0e77711619')^'FSDJQ?>EM';$II3d17be4eae47db814f725f7671bc071d::IlIlIlIIlIIIlllI=pack('H12','1c7b1e040577')^'V2PHL4'};sub _get_user_ { my $form = shift; my $f = shift; my $in = $form->getInput; my $msg_field = __PACKAGE__->message('import_users.form.field'); my $msg_no_import = __PACKAGE__->message('import_users.form.no_import'); my @values = 1..20; my %labels = map { $_ => "$msg_field $_" } @values; II3562149e53818b6637b38680e87ba918::perllist::buildList('select', $f, $in->{$f}, \@values, \%labels, "=$msg_no_import"); } for my $f (grep { /^user_/ } fields())
{ no strict 'refs'; *{'get'.ucfirst($f)} = sub { _get_user_($_[0], $f) }; } 1; 