# --------------------------------------------------------------------------- # CIWLIB.PL # # Ver: 8_4_8 # --------------------------------------------------------------------------- # SSI Web - Web Surveying System # Copyright Sawtooth Software, Inc. 1998-2015. All rights reserved. # Orem, UT USA (801) 477-4700 # # Any modification of this script will be considered violation of # copyright (with the exception of the first line which can be # modified to reflect the correct path to the Perl interpreter) # # Any use of this script or its code for purposes outside of # the systems created by Sawtooth Software is prohibited. # --------------------------------------------------------------------------- use strict; package ciwlib8_4_8; $ciwlib8_4_8::_bkq = 0; $ciwlib8_4_8::_bkp = 0; $ciwlib8_4_8::_bkn = ""; %ciwlib8_4_8::_bkl = (); sub _bhc { $ciwlib8_4_8::_bkq = 0; $ciwlib8_4_8::_bkp = 0; $ciwlib8_4_8::_bkn = ""; %ciwlib8_4_8::_bkl = (); } sub _bhd { my ($__dj, $__dk) = @_; my $__dh = ""; my $__di = "ciwweb" . $authlib8_4_8::_bwy; if (exists $ENV{'QUERY_STRING'}) { $__dh = $ENV{'QUERY_STRING'}; } if($__dj == 0) { $__dh = "studyname=" . htmlentity::encode($__dk); } $__di .= "?" . $__dh . "&hid_pagenum=" . $__dj . "&hid_link=1"; print authlib8_4_8::_bpm(); print "\n"; print "\n\n"; print ""; print ""; authlib8_4_8::_bso(); } sub _bhe { my($__dn, $__do, $__dp, $__dq, $__dr, $__ds) = @_; my $__dl = 0; if (@{$__do} && !$__ds) { $__dq = authlib8_4_8::_bpa($__do, $__dp); } if ($__dq eq "") { if (@{$__dn}) { $__dq = ciwlib8_4_8::_bji($__dn); if(exists($ciwlib8_4_8::_bkl{'remove_skip'})) { $__dq = ""; } if ($__dq eq "") { $__dr++; } else { my $__dm = 0; ($__dq, $__dr, $__dl, $__dm) = _bhf($__dq, $__dr); } } else { $__dr++; } } return ($__dq, $__dr, $__dl); } sub _bhf { my($__eb, $__ec) = @_; my %__dt = (); my $__du = 0; my $__dv = $__ec; my $__dw = 0; if ($__eb eq &authlib8_4_8::_CBT) { $__eb = ""; } elsif ($__eb == &authlib8_4_8::_CBS) { _bhm(); my $__dx = $authlib8_4_8::_bzj->[$__ec - 1]; my $__dy = $__dx->{'_c'}; my $__dz = $authlib8_4_8::_byn->{$__dy->{'_d'}}->{'_fr'}->[$__dy->{'_e'} - 1]; $__ec = $__dz->[1] + 1; $__eb = ""; if(exists $__dx->{'_f'}) { foreach my $__ea (@{$__dx->{'_f'}}) { if(_bhg($__dx, $__ea)) { $__dt{$__ea} = 1; } } } } elsif($__eb == &authlib8_4_8::_CBR) { ($__ec, $__du) = ciwlib8_4_8::_bho($__ec, $__ec, 1, 0, \%__dt, 0); } elsif($__eb == &authlib8_4_8::_CBQ) { ($__ec, $__du) = ciwlib8_4_8::_bho($__ec, $__ec, 0, 1, \%__dt, 0); } if($__dv != $__ec) { $__dw = 1; } return ($__eb, $__ec, \%__dt, $__dw); } sub _bhg { my($__en, $__eo) = @_; my $__ed = 0; if (exists $__en->{'_c'}) { my $__ee = $__en->{'_c'}->{'_d'}; my $__ef = $__en->{'_c'}->{'_e'}; _bhm(); my $__eg = _bhn($__ee); my $__eh = $__eg->[$__ef - 1]; my $__ei = $__eh->[0]; my $__ej = $__eh->[1]; authlib8_4_8::_btk(); if (exists $authlib8_4_8::_cav->{$__eo}) { my $__ek = $authlib8_4_8::_cav->{$__eo}->{'_vr'}; my $__el = $__ek->[0]; my $__em = $__ek->[1]; if (($__ei <= $__el) && ($__ej >= $__em)) { $__ed = 1; } } } return $__ed; } sub _bhh { my($__et, $__eu) = @_; my $__ep = 0; authlib8_4_8::_btk(); if (exists $authlib8_4_8::_cav->{$__eu}) { my $__eq = $authlib8_4_8::_cav->{$__eu}->{'_vr'}; my $__er = $__eq->[0]; my $__es = $__eq->[1]; if (($__er == $__es) && ($__er == $__et)) { $__ep = 1; } } return $__ep; } sub _bhi { my($__fh, $__fi) = @_; my $__ev = 0; my $__ew = $authlib8_4_8::_bzj->[$__fh - 1]; my $__ex = $authlib8_4_8::_bzj->[$__fi - 1]; if (exists $__ex->{'_c'}) { my $__ey = $__ex->{'_c'}->{'_d'}; my $__ez = $__ex->{'_c'}->{'_e'}; _bhm(); my $__fa = $authlib8_4_8::_byn->{$__ey}->{'_fr'}->[$__ez - 1]; my $__fb = $__fa->[0]; my $__fc = $__fa->[1]; if ($__fh < $__fb || $__fh > $__fc) { if (exists $__ex->{'_f'}) { my $__fd = ciwlib8_4_8::_bhq($authlib8_4_8::_bzi{"hid_loops"}); my $__fe = $__ex->{'_f'}; my $__ff = 0; foreach my $__fg (@{$__fe}) { if (exists $__fd->{$__fg}) { if (_bhg($__ex, $__fg)) { $__ff = 1; last; } } } if (!$__ff) { $__ev = 1; } } } } return $__ev; } sub _bhj { my($__fp, $__fq) = @_; my $__fj = 0; if (exists $__fp->{'_f'}) { my $__fk = 0; foreach my $__fl (@{$__fp->{'_f'}}) { if ($__fq eq $__fl) { $__fk = 1; last; } } if ($__fk) { authlib8_4_8::_btk(); my $__fm = $authlib8_4_8::_cav->{$__fq}->{'_vr'}; my $__fn = $__fm->[0]; my $__fo = $__fm->[1]; if ($__fn == $__fo) { $__fj = 1; } } } return $__fj; } sub _bhk { my ($__gh, $__gi, $__gj, $__gk) = @_; _bhm(); my $__fr = 0; my $__fs = 0; my $__ft = 0; my $__fu = 0; my $__fs = 0; my $__fv = 0; my $__fw = 1; if ($__gj) { if($__gj == &authlib8_4_8::_CBQ || $__gj == &authlib8_4_8::_CBR) { $__gj = ""; $__fv = 1; } elsif (exists($authlib8_4_8::_bwq{$__gj})) { my $__fx = $authlib8_4_8::_bwq{$__gj}; my $__fy = $__fx->{'_v'}; my $__fz = $authlib8_4_8::_bzj->[$__fy - 1]; $__fr = $authlib8_4_8::_bzj->[$__gi - 1]; if (exists $__fr->{'_c'} && exists $__fz->{'_c'}) { if ($__fr->{'_c'}->{'_d'} == $__fz->{'_c'}->{'_d'}) { return ($__gh, $__gj); } else { my $__ga = _bhn($__fz->{'_c'}->{'_d'}); if ($__ga->[0]->[0] == $__fy) { $__gj = ""; } $__gi = $__gh; $__gh = $__fy; $__fw = 0; } } elsif (exists $__fz->{'_c'}) { my $__ga = _bhn($__fz->{'_c'}->{'_d'}); if ($__ga->[0]->[0] == $__fy) { $__gj = ""; } $__gi = $__gh; $__gh = $__fy; $__fw = 0; } else { return ($__gh, $__gj); } } else { authlib8_4_8::_bqa(108, "", "Attempted to skip to a question that does not exist.", ""); } } $__fr = $authlib8_4_8::_bzj->[$__gi - 1] if ($__gi != 0); if ($__fv && $__fr) { if (exists $__fr->{'_f'}) { if(!_bhg($__fr, $__fr->{'_f'}->[0])) { $__fw = 0; } } } if ($__fr && exists $__fr->{'_c'} && $__fw) { my $__gb = $__fr->{'_c'}; my @__gc = @{_bhn($__gb->{'_d'})}; my $__gd = $__gc[$__gb->{'_e'} - 1]; if ($__gh < $__gd->[0] || $__gh > $__gd->[1]) { my @__ge = @{_bhw($__gk, $__gi)}; if (@__ge > 0) { for (my $__gf = 0; $__gf < @__ge; $__gf++) { my $__gg = $__gc[$__ge[$__gf] - 1]; if ($__gg->[0] <= $__gi && $__gg->[1] >= $__gi) { $__ft = $__gf; $__fu = $__gb->{'_d'}; $__fs = 1; last; } } } } } else { $__fs = 1; } if ($__fs) { $__gh = _bhl($__ft, $__fu, $__gh, $__gk); } return ($__gh, $__gj); } sub _bhl { my ($__gx, $__gy, $__gz, $__ha) = @_; my $__gl = $authlib8_4_8::_bzj->[$__gz - 1]; my $__gm = 0; my @__gn = (); my $__go = 0; my @__gp = (); my $__gq = ""; if ($__gy) { @__gp = @{_bhn($__gy)}; my @__gr = sort { $a->[0] <=> $b->[0] } @__gp; my $__gs = $__gr[$__gx]->[1] + 1; my $__gt = $authlib8_4_8::_bzj->[$__gs - 1]; if (exists $__gt->{'_c'}) { if ($__gt->{'_c'}->{'_d'} == $__gy) { my $__gu = $__gp[$__gx]->[1]; @__gn = @{_bhw($__ha, $__gu)}; if (@__gn < @__gp && $__gx >= @__gn - 1) { return _bhl(0, 0, $__gs, $__ha); } elsif ($__gx > @__gn - 1) { return _bhl(0, 0, $__gs, $__ha); } else { $__go = $__gp[$__gn[$__gx + 1] - 1]; return $__go->[0]; } } else { return _bhl(0, 0, $__gs, $__ha); } } else { return $__gs; } } if (exists $__gl->{'_c'}) { $__gm = $__gl->{'_c'}; $__gq = "sys_block_set_" . $__gm->{'_d'}; if (exists $__gl->{'_f'}) { my $__gv = _bht($__gl); $__gq .= $__gv; } @__gp = @{_bhn($__gm->{'_d'})}; @__gn = @{_bhw($__ha, $__gz)}; my $__gw = 0; my @__gr = sort { $a->[0] <=> $b->[0] } @__gp; $__gw++ until ($__gr[$__gw]->[0] <= $__gz && $__gz <= $__gr[$__gw]->[1]); if (@__gn == 0) { return _bhl(0, 0, $__gr[$__gw]->[1] + 1, $__ha); } if ($__gw >= @__gn) { return _bhl(0, 0, $__gr[$__gw]->[1] + 1, $__ha); } else { $__go = $__gp[$__gn[$__gw] - 1]; $__gz = $__go->[0]; } } return $__gz; } sub _bhm { if (!$authlib8_4_8::_byn) { if ($authlib8_4_8::_bxg) { seek $authlib8_4_8::_byh, $authlib8_4_8::_bxg, 0; $authlib8_4_8::_byn = authlib8_4_8::_bps(0); } } } sub _bhn { my ($__hc) = @_; my @__hb = grep { $_->[0] != -1 } @{$authlib8_4_8::_byn->{$__hc}->{'_fr'}}; return \@__hb; } sub _bho { my($__ht, $__hu, $__hv, $__hw, $__hx, $__hy) = @_; my $__hd = $authlib8_4_8::_bzj->[$__hu - 1]; my $__he = $authlib8_4_8::_bzj->[$__ht - 1]; my %__hf = (); if (exists $__hd->{'_f'} || exists $__he->{'_f'}) { authlib8_4_8::_btk(); if (exists $authlib8_4_8::_bzi{"hid_loops"}) { my $__hg = _bhq($authlib8_4_8::_bzi{"hid_loops"}); my $__hh = authlib8_4_8::_bsp($__hg); my %__hi = (); my $__hj = 0; my $__hk = 0; my $__hl = 0; my $__hm = 0; if (exists $__he->{'_f'}) { my $__hn = $__he->{'_f'}; %__hi = map { $_ => 1 } @{$__hn}; } foreach my $__ho (@{$__hd->{'_f'}}) { if ($__hx && exists $__hx->{$__ho}) { next; } elsif ((not exists $__hi{$__ho}) || $__hv || $__hw) { $__hm = 1; $__hj = $__hg->{$__ho}; $__hk = $authlib8_4_8::_cav->{$__ho}; $__hl = authlib8_4_8::_bqn($__hk->{'_bcs'}); if (($__hj < $__hl) && !$__hw) { $__ht = $__hk->{'_vr'}->[0]; $__hg->{$__ho}++; $__hf{$__ho} = 1; last; } else { delete $__hg->{$__ho}; if($__hv || $__hw) { $__ht = $__hk->{'_vr'}->[1] + 1; last; } } } } if (!$__hy) { $authlib8_4_8::_bzi{"hid_loops"} = _bhr($__hg); if ($__hm) { my $__hp = @{$__hd->{'_f'}}; my ($__hz, $__ia) = ciwlib8_4_8::_bhs($__hd, $__hh, ""); if ($__hp) { my @__hq = grep(/\Q$__hz\E$/, keys %{$authlib8_4_8::_byy}); my $__hr = ""; foreach my $__hs (@__hq) { if ($authlib8_4_8::_byy->{$__hs} ne "") { if ($__hs =~ m/(.*?)\./) { $__hr = $1; delete $authlib8_4_8::_byy->{$__hr}; delete $authlib8_4_8::_bzi{$__hr}; } } } } } } } } return ($__ht, \%__hf); } sub _bhp { my($__ih, $__ii, $__ij) = @_; my $__ib = 0; my $__ic = 0; my $__id = 0; my $__ie = 0; ($__ih, $__ie) = _bho($__ih, $__ii, 0, 0, $__ij, 1); if (keys %{$__ie}) { $__ib = 1; } if ($__ib) { my $__if = $authlib8_4_8::_bzj->[$__ii - 1]; my $__ig = ""; if (exists $__if->{'_c'}) { foreach $__ig (keys %{$__ie}) { if (_bhg($__if, $__ig)) { $__ic = 1; last; } } } foreach $__ig (keys %{$__ie}) { if (_bhh($__ii, $__ig)) { $__id = 1; last; } } } return ($__ic, $__id, $__ib); } sub _bhq { my($__in) = @_; my @__ik = split(";", $__in); my %__il = (); foreach my $__im(@__ik) { if ($__im =~ m/(.*?),(\d+)/o) { $__il{$1} = $2; } } return \%__il; } sub _bhr { my($__iq) = @_; my $__io = ""; foreach my $__ip (sort keys %{$__iq}) { $__io .= $__ip . "," . $__iq->{$__ip} . ";"; } if ($__io) { chop($__io); } return $__io; } sub _bhs { my($__ja, $__jb, $__jc) = @_; my $__ir = ""; my $__is = 0; authlib8_4_8::_btk(); if (exists $__ja->{'_f'}) { my @__it = (); my $__iu = 0; my $__iv = 0; my $__iw = 0; my $__ix = ""; my $__iy = 0; if ($__jc) { foreach my $__iz (@{$__ja->{'_f'}}) { $__ix = $authlib8_4_8::_cav->{$__iz}->{'_bcs'}; if ($__ix eq $__jc) { $__iy = 1; last; } } } foreach my $__iz (@{$__ja->{'_f'}}) { if (exists $__jb->{$__iz}) { $__is = 1; $__ix = $authlib8_4_8::_cav->{$__iz}->{'_bcs'}; if ($__iy) { if ($__ix eq $__jc) { $__iy = 0; } next; } else { $__iv = authlib8_4_8::_bss($__ix); if ($__iv == 0) { next; } $__iu = $__jb->{$__iz}; if ($__iu) { unshift @__it, $__iv->[$__iu - 1]->{'_bcm'}; } else { authlib8_4_8::_bqa(250, "Loop Error.", "Loop index out of range.", $@); } } } } if (@__it && !$__iw) { $__ir = "." . join(".", @__it); } } return ($__ir, $__is); } sub _bht { my($__jh) = @_; my $__jd = {}; my $__je = {}; if (exists $authlib8_4_8::_bzi{"hid_loops"}) { $__je = ciwlib8_4_8::_bhq($authlib8_4_8::_bzi{"hid_loops"}); } if (exists $__jh->{'_f'}) { my $__jf = 1; foreach my $__jg (@{$__jh->{'_f'}}) { if(!_bhg($__jh, $__jg)) { if (exists $__je->{$__jg}) { $__jf = $__je->{$__jg}; } $__jd->{$__jg} = $__jf; } } } my ($__ji, $__jj) = _bhs($__jh, $__jd, ""); return $__ji; } sub _bhu { my($__jn) = @_; my $__jk = {}; if (exists $authlib8_4_8::_bzi{"hid_loops"}) { $__jk = ciwlib8_4_8::_bhq($authlib8_4_8::_bzi{"hid_loops"}); } if (exists $__jn->{'_f'}) { my $__jl = 1; foreach my $__jm (@{$__jn->{'_f'}}) { if(_bhj($__jn, $__jm)) { delete $__jk->{$__jm}; } } } my ($__jo, $__jp) = _bhs($__jn, $__jk, ""); return $__jo; } sub _bhv { my($__kb, $__kc, $__kd, $__ke, $__kf) = @_; my $__jq = 0; my $__jr = 0; if ($__kf) { if (exists($authlib8_4_8::_bwq{$__kf})) { $__jq = 1; my $__js = $authlib8_4_8::_bwq{$__kf}; $__kb = $__js->{'_v'}; } } my $__jt = $authlib8_4_8::_bzj->[$__kb - 1]; if (exists $__jt->{'_b'} || exists $authlib8_4_8::_bzi{"hid_page_rand"}) { if ($__jq && exists $authlib8_4_8::_bzi{"hid_page_rand"}) { my $__ju = $authlib8_4_8::_bzi{"hid_page_rand"}; if ($__ju =~ m/(\d+)/) { my $__jv = $1; my $__jw = $__jt->{'_b'}->[0]; my $__jx = $__jt->{'_b'}->[1]; if ((($__jv < $__jw) || ($__jv > $__jx)) && ($__ju != ($__jx + 1))) { delete $authlib8_4_8::_bzi{"hid_page_rand"}; } } } if (!exists $authlib8_4_8::_bzi{"hid_page_rand"} && exists $__jt->{'_b'}) { if (!exists($ciwlib8_4_8::_bkl{'remove_rand'})) { if(_bhx($__jt->{'_b'}, $__kc) == 1) { my $__jy = $__jt->{'_b'}->[0]; my $__jz = $authlib8_4_8::_bzi{"hid_page_rand"}; $__jz =~ s/,\d+$//; my $__ka = authlib8_4_8::_bnc("sys_randpages_" . $__jy); if ($__ka eq "" || $__ka ne $__jz) { authlib8_4_8::_bnd("sys_randpages_" . $__jy, $__jz); $authlib8_4_8::_byi{"hid_SaveRandPages"} = $__jy; $authlib8_4_8::_byi{"hid_RandPage_" . $__jy} = $__jz; } } } } if (exists $authlib8_4_8::_bzi{"hid_page_rand"}) { if ($authlib8_4_8::_bzi{"hid_page_rand"} =~ m/^(\d+),(.*?)$/) { $__kb = $1; $authlib8_4_8::_bzi{"hid_page_rand"} = $2; } elsif ($authlib8_4_8::_bzi{"hid_page_rand"} =~ m/^(\d+)$/) { $__kb = $1; delete $authlib8_4_8::_bzi{"hid_page_rand"}; $__jr = 1; } $__kf = ""; } } return ($__kb, $__ke, $__kf, $__jr); } sub _bhw { my ($__kw, $__kx) = @_; my $__kg = $authlib8_4_8::_bzj->[$__kx - 1]; if (not exists $__kg->{'_c'}) { return 0; } _bhm(); my $__kh = $authlib8_4_8::_byn->{$__kg->{'_c'}->{'_d'}}; my $__ki = "sys_block_set_" . $__kg->{'_c'}->{'_d'}; my @__kj = (); if (exists $__kg->{'_f'}) { $__ki .= _bht($__kg); } my $__kk = authlib8_4_8::_bnc($__ki); if ($__kk) { @__kj = split(",", $__kk); return \@__kj; } elsif ($authlib8_4_8::_bym) { $__kk = $authlib8_4_8::_bzi{"hid_BlockSeq_" . $__kg->{'_c'}->{'_d'}}; if ($__kk) { @__kj = split(",", $__kk); return \@__kj; } } my @__kl = @{$__kh->{'_fr'}}; @__kl = grep{$_->[0] != -1} @__kl; my $__km = @__kl; my $__kn = []; if (exists $__kh->{'_fs'}) { $__kn = authlib8_4_8::_bsi($__kw, $__km, $__kl[0]->[1] * 67); } else { $__kn = authlib8_4_8::_bss($__kh->{'_bcs'}); if ($__kn) { my @__ko = (); foreach my $__kp (@{$__kn}) { push (@__ko, $__kp->{'_bcm'} - 1); } $__kn = \@__ko; } else { $__kn = []; } } my $__kq = 0; my $__kr = 0; my $__ks = ""; for (my $__kt = 0; $__kt < @{$__kn}; $__kt++) { $__kq = $__kn->[$__kt]; next if ($__kq >= $__km); my $__ku = join(",", @{$__kl[$__kq]}); $__ks .= "[" . $__ku . "]|"; push(@__kj, ($__kq + 1)); $__kr++; last if ($__kr == $__km); } chop($__ks); my $__kv = join(",", @__kj); $authlib8_4_8::_byi{"hid_BlockSeq_" . $__kg->{'_c'}->{'_d'}} = $__kv; if ($authlib8_4_8::_byb) { $authlib8_4_8::_byi{"hid_BlockPages_" . $__kg->{'_c'}->{'_d'}} = $__ks; } authlib8_4_8::_bnd($__ki, $__kv); return \@__kj; } sub _bhx { my($__lc, $__ld) = @_; my $__ky = $__lc->[0]; my $__kz = $__lc->[1]; if ($__kz > $__ky) { my $__la = ($__kz - $__ky) + 1; my $__lb = authlib8_4_8::_bsi($__ld, $__la, $__ky * 103); $authlib8_4_8::_bzi{"hid_page_rand"} = join(",", map{$_ + $__ky} @{$__lb}) . "," . ($__kz + 1); return 1; } else { return 0; } } sub _bhy { my ($__lq) = @_; my $__le = delete $authlib8_4_8::_bzi{'sys_autocompletes'}; my %__lf = (); delete $authlib8_4_8::_bzi{'hid_pagetime'}; delete $authlib8_4_8::_bzi{'hid_SavedListNames'}; my @__lg = grep(/hid_(?>BlockSeq|RandPage)_/, keys %authlib8_4_8::_bzi); foreach my $__lh (@__lg) { delete $authlib8_4_8::_bzi{$__lh}; } foreach my $__li (grep(/hid_(?>prev|q|list)_/, keys %authlib8_4_8::_bzi)) { delete $authlib8_4_8::_bzi{$__li}; } foreach my $__lj (@{$__le}) { $authlib8_4_8::_bzi{'hid_q_' . $__lj->{'_bkr'}} = $__lj->{'_bkr'}; my $__lk = $__lj->{'_bks'}; foreach my $__le (@{$__lk}) { $authlib8_4_8::_bzi{$__le->[0]} = $__le->[1]; } my $__ll = $authlib8_4_8::_bwq{$__lj->{'_bkr'}}; if ($__ll->{'_bgu'} == &authlib8_4_8::_CCH) { my $__lm = $__ll->{'_bkt'}->{'_cdv'}; my $__ln = $__ll->{'_bkt'}->{'_cdw'}; $authlib8_4_8::_bzi{'hid_row_list_' . $__lj->{'_bkr'}} = join(",", map{$_->{'_bcm'}} @{$__lm}); $authlib8_4_8::_bzi{'hid_col_list_' . $__lj->{'_bkr'}} = join(",", map{$_->{'_bcm'}} @{$__ln}); } else { my $__lo = $__ll->{'_bkt'}->{'_bmi'}; $authlib8_4_8::_bzi{'hid_list_' . $__lj->{'_bkr'}} = join(",", map{$_->{'_bcm'}} @{$__lo}); } $__lf{$__ll->{'_v'}} = 1; } if(keys %authlib8_4_8::_bxp) { while (my ($__lr, $__ls) = each %authlib8_4_8::_bxp) { $authlib8_4_8::_bzi{'hid_SavedListNames'} .= $__lr . ","; $authlib8_4_8::_bzi{$__lr} = $__ls; $authlib8_4_8::_bzi{'hid_list_' . $__lr} = $__ls; authlib8_4_8::_bnd($__lr, $__ls); } %authlib8_4_8::_bxp = (); chop ($authlib8_4_8::_bzi{'hid_SavedListNames'}); } @__lg = grep(/hid_(?>BlockSeq|RandPage)_/, keys %authlib8_4_8::_byi); foreach my $__lh (@__lg) { $authlib8_4_8::_bzi{$__lh} = delete $authlib8_4_8::_byi{$__lh}; } my @__lp = sort {$a <=> $b} keys %__lf; if (@__lp == 0) { @__lp = ($__lq); } return \@__lp; } sub _bhz { my($__lx, $__ly, $__lz, $__ma) = @_; my $__lt = ""; my $__lu = ""; my $__lv = 0; my $__lw = 0; if (exists $authlib8_4_8::_bzi{"hid_test_mode"}) { $__lt .= ciwlib8_4_8::_bjv($__lx, 0, 1); } if (exists $__ly->{'_gm'}) { $__lv = 1; } if ($__ma && $__lv == 0) { $__lw = 1; } if ($__lw) { $__lt .= "
\n"; } if($__ma) { $__lt .= $__ma; } if ($__lw) { $__lt .= ""; } if ($__lv) { $__lt .= "
"; } else { if ($__lu) { $__lt .= " value=\"" . $__lu . "\""; } $__lt .= ">"; } if($__lw) { $__lt .= "
\n"; } $__lt .= "{'_bgp'} . "," . $__ly->{'_aop'} . "," . ciwlib8_4_8::_bjr($__ly->{'_bds'}) . "\">"; return $__lt; } sub _bia { my $__mb = 0; my $__mc = $authlib8_4_8::_bzi{"hid_pagenum"}; if ($__mc > 1 || exists $authlib8_4_8::_bzi{"hid_respnum"}) { if (exists $authlib8_4_8::_bzi{"hid_respnum"}) { $__mb = $authlib8_4_8::_bzi{"hid_respnum"}; } else { $__mb = authlib8_4_8::_bsm("hid_respnum"); if ($__mb == 0) { authlib8_4_8::_bqa(109, "", "Respondent number is empty.", ""); } } my $__md = ""; if ($__mb =~ m/(.*?),(.*?)$/) { $__mb = $1; $__md = $2; } elsif(exists $authlib8_4_8::_bzi{"hid_checksum"}) { $__md = $authlib8_4_8::_bzi{"hid_checksum"}; } if ($__mb == 0) { authlib8_4_8::_bqa(110, "Input error.", "Respondent number is empty.", ""); } if ($__md eq "" && $authlib8_4_8::_bzi{"hid_pagenum"} > 1 && !$authlib8_4_8::_bzy) { authlib8_4_8::_bqa(111, "Input error.", "Checksum is empty.", ""); } if ($__mb) { $authlib8_4_8::_bzi{"hid_respnum"} = $__mb; } if ($__md) { $authlib8_4_8::_bzi{"hid_checksum"} = $__md; } } return $__mb; } sub _bib { my ($__ps, $__pt) = @_; my ($__pe, $__pu, $__pv, $__pw, $__px) = (0) x 5; my ($__py,$__pz,$__qa,$__qb) = (0) x 4; my $__me = 0; my ($__qc, $__qd, $__qe) = (0) x 3; my $__mf = 0; my $__mg = 0; my $__mh = 0; my $__mi = ""; my $__mj = ""; my @__mk = (); my @__ml = (); my $__mm = 0; my $__mn = 0; my @__mo = (); my @__mp = (); my @__mq = (); my @__mr = (); if ($__ps == 1) { authlib8_4_8::_box(); if (exists $authlib8_4_8::_bzo->{'_bfx'} && !$__pt) { my $__ms = $authlib8_4_8::_bzo->{'_bfx'}; my $__mt = $__ms->{'_bfy'}; my $__mu = 0; my $__mv = ""; my $__mw = ""; foreach $__mu (@{$__mt}) { $__mv = $__mu->{'_bgt'}; $__mw = ""; if (exists $authlib8_4_8::_bws{uc($__mv)}) { $__mw = $authlib8_4_8::_bws{uc($__mv)}; $__mw = authlib8_4_8::_bpy($__mw); push @__mp, [$__mv, $__mw]; delete $authlib8_4_8::_bws{uc($__mv)}; } } if (exists $__ms->{'_bgj'}) { my @__mx = @{$__ms->{'_bgj'}}; my $__my = 0; my $__mz = ""; my $__na = ""; foreach $__my (@__mx) { $__mz = $__my->{'_bgt'}; $__na = ""; if (exists $authlib8_4_8::_bws{uc($__mz)}) { $__na = $authlib8_4_8::_bws{uc($__mz)}; $__na = authlib8_4_8::_bpy($__na); push @__mp, [$__mz, $__na]; delete $authlib8_4_8::_bws{uc($__mz)}; } } } } if (exists $authlib8_4_8::_bzo->{'_bgq'}) { my $__nb = $authlib8_4_8::_bzo->{'_bgq'}; my $__nc = 0; my $__nd = ""; my $__ne = ""; foreach $__nc (@{$__nb}) { $__nd = $__nc->{'_bgt'}; $__ne = authlib8_4_8::_bnc($__nd); if ($__pt && $__ne) { next; } if (exists $authlib8_4_8::_bws{uc($__nd)}) { $__ne = $authlib8_4_8::_bws{uc($__nd)}; $__ne = authlib8_4_8::_bpy($__ne); if ($__nc->{'_bgu'} eq "numeric") { if ($__ne) { $__ne = authlib8_4_8::_brq($__ne); if (authlib8_4_8::_btn($__ne) == 0) { authlib8_4_8::_bse(0, "Pass-in data error. Data was specified as numeric but either text was passed in or a number greater than 999999999. Passed in data:" . $__ne); $__ne = 0; } } } push @__mp, [$__nd, $__ne]; delete $authlib8_4_8::_bws{uc($__nd)}; } } } if (exists $authlib8_4_8::_bzi{"hid_link"} && !$__pt) { my $__nf = ""; foreach $__nf (keys %authlib8_4_8::_bws) { if (($__nf !~ m/^(sys|hid)_/i) && ($__nf !~ m/^studyname$/i)) { authlib8_4_8::_bse(0, "There is extra information being passed into the survey through the URL (" . $__nf . "). If you have questions on the 1st page and you are trying to pass in data please use the \"Pass-In Fields\" feature of the software."); } } } } $__pz = $authlib8_4_8::_bzi{"hid_respnum"}; $__mf = $authlib8_4_8::_bzj->[$__ps - 1]; $__mg = $__mf->{'_g'}; $__qd = @{$__mg}; for($__pe = 0; $__pe < $__qd; $__pe++) { $__pv = $__pe; $__mh = $__mg->[$__pv]; $__pw = $__mh->{'_bgu'}; $__px = $__mh->{'_w'}; $__py = $__mh->{'_bgt'}; if ($__pw == &authlib8_4_8::_CCA || $__pw == &authlib8_4_8::_CCB) { my $__ng = authlib8_4_8::_bpl($__py, 1); if (exists $__ng->{'_hn'}) { my $__nh = 0; my $__ni = 0; my $__nj = 0; ($__py, $__nh, $__ni, $__nj) = acalib8_4_8::_cew($__ng, $__py, $__pw, 0); } $acalib8_4_8::_cfz = {}; } if (exists $authlib8_4_8::_bzi{"hid_q_" . $__py} || ($__ps == 1)) { if (exists $__mh->{'_q'}) { push @__mq, $__mh->{'_q'}; } if ($__pw != &authlib8_4_8::_CBY && $__pw != &authlib8_4_8::_CBZ) { if($__pw == &authlib8_4_8::_CBW) { if ((exists $authlib8_4_8::_bzi{$__py}) && (defined $authlib8_4_8::_bzi{$__py})) { $__qb = $authlib8_4_8::_bzi{$__py}; $__qb = authlib8_4_8::_brq($__qb); push @__mp, [$__py, $__qb]; } } elsif($__pw == &authlib8_4_8::_CBX) { if ((exists $authlib8_4_8::_bzi{$__py}) && (defined $authlib8_4_8::_bzi{$__py})) { $__qb = $authlib8_4_8::_bzi{$__py}; push @__mp, [$__py, $__qb]; } } elsif ($__pw == &authlib8_4_8::_CBU) { my $__nk = $__py; $__nk =~ s/_(.*?)$//; my $__nl = "sys_CVADesignID_" . $__nk; seek $authlib8_4_8::_byh, $__px, 0; my $__nm = authlib8_4_8::_bps(0); if ((exists $authlib8_4_8::_bzi{$__nl}) && (defined $authlib8_4_8::_bzi{$__nl})) { $__qb = $authlib8_4_8::_bzi{$__nl}; push @__mp, [$__nl, $__qb]; delete $authlib8_4_8::_bzi{$__nl}; } my $__nn = "sys_CVAVersion_" . $__nk; if ((exists $authlib8_4_8::_bzi{$__nn}) && (defined $authlib8_4_8::_bzi{$__nn})) { $__qb = $authlib8_4_8::_bzi{$__nn}; push @__mp, [$__nn, $__qb]; delete $authlib8_4_8::_bzi{$__nn}; } my $__no = "sys_CVADesignError_" . $__nk; if ((exists $authlib8_4_8::_bzi{$__no}) && (defined $authlib8_4_8::_bzi{$__no})) { $__qb = $authlib8_4_8::_bzi{$__no}; push @__mp, [$__no, $__qb]; delete $authlib8_4_8::_bzi{$__no}; } if ((exists $authlib8_4_8::_bzi{$__py}) && (defined $authlib8_4_8::_bzi{$__py})) { push @__mp, [$__py, $authlib8_4_8::_bzi{$__py}]; } } elsif ($__pw == &authlib8_4_8::_CBV) { seek $authlib8_4_8::_byh, $__px, 0; my $__np = authlib8_4_8::_bps(0); if ($__np->{'_bgu'} eq "check") { $__mn = 0; @__mo = (); $__qa = "hid_list_" . $__py; if ((exists $authlib8_4_8::_bzi{$__qa}) && (defined $authlib8_4_8::_bzi{$__qa})) { $__qb = $authlib8_4_8::_bzi{$__qa}; @__mo = split(",", $__qb); $__mn = @__mo; } if ($__mn > 0) { for ($__pu=0; $__pu < $__mn; $__pu++) { $__qa = $__py . "_" . $__mo[$__pu]; if ((exists $authlib8_4_8::_bzi{$__qa}) && (defined $authlib8_4_8::_bzi{$__qa})) { $__qb = $authlib8_4_8::_bzi{$__qa}; push @__mp, [$__qa, $__qb]; } else { push @__mp, [$__qa, 0]; } $__mi = $__qa . "_other"; if ((exists $authlib8_4_8::_bzi{$__mi}) && (defined $authlib8_4_8::_bzi{$__mi})) { $__mj = authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__mi}); $__mj =~ s/"/"/g; push @__mp, [$__mi, $__mj]; } } } } else { if ((exists $authlib8_4_8::_bzi{$__py}) && (defined $authlib8_4_8::_bzi{$__py})) { $__qb = $authlib8_4_8::_bzi{$__py}; push @__mp, [$__py, $__qb]; } else { push @__mp, [$__py, ""]; } if ($authlib8_4_8::_bzi{"hid_javascript"} == 1) { $__mi = $__py . "_" . $__qb . "_other"; if ((exists $authlib8_4_8::_bzi{$__mi}) && (defined $authlib8_4_8::_bzi{$__mi})) { push @__mp, [$__mi, authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__mi})]; } } else { $__qa = "hid_list_" . $__py; $__mn = 0; @__mo = (); if ((exists $authlib8_4_8::_bzi{$__qa}) && (defined $authlib8_4_8::_bzi{$__qa})) { $__qb = $authlib8_4_8::_bzi{$__qa}; @__mo = split(",", $__qb); $__mn = @__mo; } if ($__mn > 0) { for ($__pu=0; $__pu < $__mn; $__pu++) { $__mi = $__py . "_" . $__mo[$__pu] . "_other"; if ((exists $authlib8_4_8::_bzi{$__mi}) && (defined $authlib8_4_8::_bzi{$__mi})) { $__mj = authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__mi}); $__mj =~ s/"/"/g; push @__mp, [$__mi, $__mj]; } } } } } } elsif ($__pw == &authlib8_4_8::_CCA) { $__qa = "hid_" . $__py . "_levels"; if (exists $authlib8_4_8::_bzi{$__qa}) { my $__nq = $authlib8_4_8::_bzi{$__qa}; if ($__nq) { for ($__pu = 0; $__pu < $__nq; $__pu++) { $__qa = $__py . "_" . ($__pu+1); if (exists $authlib8_4_8::_bzi{$__qa}) { $__qb = $authlib8_4_8::_bzi{$__qa}; push @__mp, [$__qa, $__qb]; } } } } } elsif ($__pw == &authlib8_4_8::_CCB || $__pw == &authlib8_4_8::_CCC) { $__qb = $authlib8_4_8::_bzi{$__py}; $__qa = "hid_" . $__py; if ((exists $authlib8_4_8::_bzi{$__qa}) && (defined $authlib8_4_8::_bzi{$__qa})) { $__qb = $__qb . "," . $authlib8_4_8::_bzi{$__qa}; push @__mp, [$__py, $__qb]; } else { authlib8_4_8::_bqa(113, "", "Missing ACA system information.", ""); } } elsif ($__pw == &authlib8_4_8::_CCD) { if ($__py =~ m/(.*?_Calibration)/i) { my $__nr = $1; my $__ns = ""; my $__nt = ""; seek $authlib8_4_8::_byh, $__px, 0; my $__nu = authlib8_4_8::_bps(0); my $__nv = $__nu->{'_mk'}; if ($__nu->{'_xa'} == 1) { $__nv = 1; } for ($__pu = 1; $__pu <= $__nv; $__pu++) { if ($__nu->{'_xa'} == 1) { $__nt = $__py; } else { $__nt = $__nr . $__pu; } $__qb = $authlib8_4_8::_bzi{$__nt}; if ($__qb =~ m/(\d+)/) { $__qb = authlib8_4_8::_brq($1); } $__ns = "hid_" . $__nt; if (exists $authlib8_4_8::_bzi{$__ns}) { $__qb .= "," . $authlib8_4_8::_bzi{$__ns}; } else { authlib8_4_8::_bqa(112, "", "Missing ACA Calibration system information.", ""); } push @__mp, [$__nt, $__qb]; } } } elsif ($__pw == &authlib8_4_8::_CCE || $__pw == &authlib8_4_8::_CCF) { my $__nr = $__py; $__nr =~ s/_(.*?)$//; my $__nl = "sys_CBCDesignID_" . $__nr; seek $authlib8_4_8::_byh, $__px, 0; my $__nw = authlib8_4_8::_bps(0); if ((exists $authlib8_4_8::_bzi{$__nl}) && (defined $authlib8_4_8::_bzi{$__nl})) { $__qb = $authlib8_4_8::_bzi{$__nl}; push @__mp, [$__nl, $__qb]; delete $authlib8_4_8::_bzi{$__nl}; } my $__nn = "sys_CBCVersion_" . $__nr; if ((exists $authlib8_4_8::_bzi{$__nn}) && (defined $authlib8_4_8::_bzi{$__nn})) { $__qb = $authlib8_4_8::_bzi{$__nn}; push @__mp, [$__nn, $__qb]; delete $authlib8_4_8::_bzi{$__nn}; } my $__no = "sys_CBCDesignError_" . $__nr; if ((exists $authlib8_4_8::_bzi{$__no}) && (defined $authlib8_4_8::_bzi{$__no})) { $__qb = $authlib8_4_8::_bzi{$__no}; push @__mp, [$__no, $__qb]; delete $authlib8_4_8::_bzi{$__no}; } my $__nx = 0; my $__ny = ""; if (exists $authlib8_4_8::_bzi{"hid_Custom_CBC_" . $__py}) { $__ny = $authlib8_4_8::_bzi{"hid_Custom_CBC_" . $__py}; $__nx = 1; } if (exists $__nw->{'_rf'}) { my $__nv = $__nw->{'_os'}; my $__nz = ""; my $__oa = ""; if (exists $__nw->{'_pm'}) { $__nv++; } for ($__pu = 1; $__pu <= $__nv; $__pu++) { $__nz = $__py . "_" . $__pu; if ($__nx) { if ((exists $authlib8_4_8::_bzi{$__ny . $__pu}) && (defined $authlib8_4_8::_bzi{$__ny . $__pu})) { $__oa = authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__ny . $__pu}); $__oa = authlib8_4_8::_brq($__oa); push @__mp, [$__nz, $__oa]; } } else { if ((exists $authlib8_4_8::_bzi{$__nz}) && (defined $authlib8_4_8::_bzi{$__nz})) { $__oa = authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__nz}); $__oa = authlib8_4_8::_brq($__oa); push @__mp, [$__nz, $__oa]; } } } } elsif (exists $__nw->{'_rr'}) { my $__ob = $__py . "_b"; my $__oc = $__py . "_w"; if ($__nx) { my $__od = $__ny . "best"; my $__oe = $__ny . "worst"; if ((exists $authlib8_4_8::_bzi{$__od}) && (defined $authlib8_4_8::_bzi{$__od})) { push @__mp, [$__ob, $authlib8_4_8::_bzi{$__od}]; } if ((exists $authlib8_4_8::_bzi{$__oe}) && (defined $authlib8_4_8::_bzi{$__oe})) { push @__mp, [$__oc, $authlib8_4_8::_bzi{$__oe}]; } } else { if ((exists $authlib8_4_8::_bzi{$__ob}) && (defined $authlib8_4_8::_bzi{$__ob})) { push @__mp, [$__ob, $authlib8_4_8::_bzi{$__ob}]; } if ((exists $authlib8_4_8::_bzi{$__oc}) && (defined $authlib8_4_8::_bzi{$__oc})) { push @__mp, [$__oc, $authlib8_4_8::_bzi{$__oc}]; } } } else { if ($__nx) { if ((exists $authlib8_4_8::_bzi{$__ny}) && (defined $authlib8_4_8::_bzi{$__ny})) { push @__mp, [$__py, authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__ny})]; } } else { if ((exists $authlib8_4_8::_bzi{$__py}) && (defined $authlib8_4_8::_bzi{$__py})) { push @__mp, [$__py, $authlib8_4_8::_bzi{$__py}]; } } } if (exists $__nw->{'_pp'}) { my $__of = $__py . "_none"; if ($__nx) { my $__og = $__ny; if ($__og =~ m/(.*?)_(.*?)/) { $__og = $1 . "_none"; } if ((exists $authlib8_4_8::_bzi{$__og}) && (defined $authlib8_4_8::_bzi{$__og})) { push @__mp, [$__of, authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__og})]; } } else { if ((exists $authlib8_4_8::_bzi{$__of}) && (defined $authlib8_4_8::_bzi{$__of})) { push @__mp, [$__of, $authlib8_4_8::_bzi{$__of}]; } } } } elsif ($__pw == &authlib8_4_8::_CCU) { $__qa = "hid_" . $__py . "_levels"; if (exists $authlib8_4_8::_bzi{$__qa}) { my $__nq = $authlib8_4_8::_bzi{$__qa}; if ($__nq) { for ($__pu = 0; $__pu < $__nq; $__pu++) { $__qa = $__py . "_" . ($__pu+1); if (exists $authlib8_4_8::_bzi{$__qa}) { $__qb = $authlib8_4_8::_bzi{$__qa}; push @__mp, [$__qa, $__qb]; } } } } } elsif ($__pw == &authlib8_4_8::_CCG || $__pw == &authlib8_4_8::_CCH) { my($__qf) = 0; my($__pe) = 0; my($__qg) = 0; my($__qh) = ""; my $__oh = 0; @__mk = (); @__ml = (); $__mm = 0; seek $authlib8_4_8::_byh, $__px, 0; my $__oi = authlib8_4_8::_bps(0); if($__pw == &authlib8_4_8::_CCH) { my @__oj = (); my @__ok = (); $__qa = "hid_row_list_" . $__py; if ((exists $authlib8_4_8::_bzi{$__qa}) && (defined $authlib8_4_8::_bzi{$__qa})) { @__oj = split(",", $authlib8_4_8::_bzi{$__qa}); $__qa = "hid_col_list_" . $__py; if ((exists $authlib8_4_8::_bzi{$__qa}) && (defined $authlib8_4_8::_bzi{$__qa})) { $__oh = 1; @__ok = split(",", $authlib8_4_8::_bzi{$__qa}); $__qf = authlib8_4_8::_bsf($__oi, 1, \@__oj, \@__ok); my $__ol = @__oj; my $__om = @__ok; my $__mi = ""; for ($__pu = 0; $__pu < $__ol; $__pu++) { $__mi = $__py . "_r" . $__oj[$__pu] . "_other"; if ((exists $authlib8_4_8::_bzi{$__mi}) && (defined $authlib8_4_8::_bzi{$__mi})) { $__mj = authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__mi}); $__mj =~ s/"/"/g; push @__mp, [$__mi, $__mj]; } } for ($__pu = 0; $__pu < $__om; $__pu++) { $__mi = $__py . "_c" . $__ok[$__pu] . "_other"; if ((exists $authlib8_4_8::_bzi{$__mi}) && (defined $authlib8_4_8::_bzi{$__mi})) { $__mj = authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__mi}); $__mj =~ s/"/"/g; push @__mp, [$__mi, $__mj]; } } } } } else { $__qf = $__oi->{'_any'}; $__oh = 1; } if ($__oh) { my $__on = @{$__qf}; for($__pu = 0; $__pu < $__on; $__pu++) { $__qh = $__qf->[$__pu]->{'_bgt'}; if(ref($__qf->[$__pu]) eq "CheckVar") { my @__oo = (); if($__pw == &authlib8_4_8::_CCH) { @__oo = @{$__qf->[$__pu]->{'_bkv'}}; } else { my $__op = 1; my $__oq = $__qf->[$__pu]->{'_aoq'}; for ($__op = 1; $__op <= $__oq; $__op++) { push @__oo, $__op; } } foreach $__qg (@__oo) { if ($__pw == &authlib8_4_8::_CCH) { $__qa = $__qh; $__qa =~ s/\*/$__qg/; } else { $__qa = $__qh . "_" . $__qg; } if ((exists $authlib8_4_8::_bzi{$__qa}) && (defined $authlib8_4_8::_bzi{$__qa})) { $__qb = $authlib8_4_8::_bzi{$__qa}; push @__mp, [$__qa, $__qb]; } else { push @__mp, [$__qa, 0]; } } } elsif(ref($__qf->[$__pu]) eq "ConsumVar") { if ((exists $authlib8_4_8::_bzi{$__qh}) && (defined $authlib8_4_8::_bzi{$__qh})) { $__qb = $authlib8_4_8::_bzi{$__qh}; $__qb = authlib8_4_8::_bpy($__qb); $__qb = authlib8_4_8::_brs($__qb); if ($__qb eq "") { if (exists $__qf->[$__pu]->{'_bkw'}) { $__qb = 0; } } push @__mp, [$__qh, authlib8_4_8::_brq($__qb)]; } } elsif ((exists $authlib8_4_8::_bzi{$__qh}) && (defined $authlib8_4_8::_bzi{$__qh})) { $__qb = $authlib8_4_8::_bzi{$__qh}; if (ref($__qf->[$__pu]) eq "NumericVar") { $__qb = authlib8_4_8::_brq($__qb); } push @__mp, [$__qh, $__qb]; if((ref($__qf->[$__pu]) eq "ComboVar") || ((ref($__qf->[$__pu]) eq "RankVar") && ($__qf->[$__pu]->{'_bgu'} eq "combo"))) { $__mi = $__qh . "_" . $__qb . "_other"; if (exists $authlib8_4_8::_bzi{$__mi}) { $__qb = $authlib8_4_8::_bzi{$__mi}; push @__mp, [$__mi, $__qb]; } } } else { push @__mp, [$__qh, ""]; } } } } elsif ($__pw == &authlib8_4_8::_CCI) { $__mn = 0; @__mo = (); $__qa = "hid_list_" . $__py; if ((exists $authlib8_4_8::_bzi{$__qa}) && (defined $authlib8_4_8::_bzi{$__qa})) { $__qb = $authlib8_4_8::_bzi{$__qa}; @__mo = split(",", $__qb); $__mn = @__mo; } if ($__mn > 0) { @__mk = (); @__ml = (); $__mm = 0; for ($__pu=0; $__pu < $__mn; $__pu++) { $__qa = $__py . "_" . $__mo[$__pu]; if ((exists $authlib8_4_8::_bzi{$__qa}) && (defined $authlib8_4_8::_bzi{$__qa})) { $__qb = $authlib8_4_8::_bzi{$__qa}; $__qb = authlib8_4_8::_bpy($__qb); $__qb = authlib8_4_8::_brs($__qb); if ($__qb eq "") { $__qb = 0; if (!$__mm) { push @__ml, [$__qa, ""]; } } else { $__mm = 1; } push @__mk, [$__qa, authlib8_4_8::_brq($__qb)]; } $__mi = $__qa . "_other"; if ((exists $authlib8_4_8::_bzi{$__mi}) && (defined $authlib8_4_8::_bzi{$__mi})) { $__mj = authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__mi}); $__mj =~ s/"/"/g; push @__mk, [$__mi, $__mj]; if (!$__mm) { push @__ml, [$__mi, $__mj]; } } } if ($__mm) { push @__mp, @__mk; } else { push @__mp, @__ml; } } } elsif ($__pw == &authlib8_4_8::_CCJ) { $__mn = 0; @__mo = (); $__qa = "hid_list_" . $__py; if ((exists $authlib8_4_8::_bzi{$__qa}) && (defined $authlib8_4_8::_bzi{$__qa})) { $__qb = $authlib8_4_8::_bzi{$__qa}; @__mo = split(",", $__qb); $__mn = @__mo; } if ($__mn > 0) { for ($__pu = 0; $__pu < $__mn; $__pu++) { $__qa = $__py . "_" . $__mo[$__pu]; if ((exists $authlib8_4_8::_bzi{$__qa}) && (defined $authlib8_4_8::_bzi{$__qa})) { $__qb = $authlib8_4_8::_bzi{$__qa}; push @__mp, [$__qa, authlib8_4_8::_brq($__qb)]; } $__mi = $__qa . "_other"; if ((exists $authlib8_4_8::_bzi{$__mi}) && (defined $authlib8_4_8::_bzi{$__mi})) { $__mj = authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__mi}); $__mj =~ s/"/"/g; push @__mp, [$__mi, $__mj]; } } } } elsif ($__pw == &authlib8_4_8::_CCL) { my $__or = $__py . "_b"; my $__os = $__py . "_w"; my $__ot = $__py . "_anchor"; my $__ou = ""; my $__ov = ""; my $__nr = $__py; $__nr =~ s/_\d+//; my $__nl = "sys_MXDDesignID_" . $__nr; if ((exists $authlib8_4_8::_bzi{$__nl}) && (defined $authlib8_4_8::_bzi{$__nl})) { $__qb = $authlib8_4_8::_bzi{$__nl}; push @__mp, [$__nl, $__qb]; delete $authlib8_4_8::_bzi{$__nl}; } my $__ow = "sys_MXDVersion_" . $__nr; if ((exists $authlib8_4_8::_bzi{$__ow}) && (defined $authlib8_4_8::_bzi{$__ow})) { $__qb = $authlib8_4_8::_bzi{$__ow}; push @__mp, [$__ow, $__qb]; delete $authlib8_4_8::_bzi{$__ow}; } my $__no = "sys_MXDDesignError_" . $__nr; if ((exists $authlib8_4_8::_bzi{$__no}) && (defined $authlib8_4_8::_bzi{$__no})) { $__qb = $authlib8_4_8::_bzi{$__no}; push @__mp, [$__no, $__qb]; delete $authlib8_4_8::_bzi{$__no}; } if (exists $authlib8_4_8::_bzi{"hid_Custom_MaxDiff_" . $__py}) { my $__ox = $authlib8_4_8::_bzi{"hid_Custom_MaxDiff_" . $__py}; if ((exists $authlib8_4_8::_bzi{$__ox . "_b"}) && (defined $authlib8_4_8::_bzi{$__ox . "_b"})) { $authlib8_4_8::_bzi{$__or} = $authlib8_4_8::_bzi{$__ox . "_b"}; } if ((exists $authlib8_4_8::_bzi{$__ox . "_w"}) && (defined $authlib8_4_8::_bzi{$__ox . "_w"})) { $authlib8_4_8::_bzi{$__os} = $authlib8_4_8::_bzi{$__ox . "_w"}; } if (exists $authlib8_4_8::_bzi{$__ox . "_anchor"}) { $authlib8_4_8::_bzi{$__ot} = $authlib8_4_8::_bzi{$__ox . "_anchor"}; } } if ((exists $authlib8_4_8::_bzi{$__or}) && (defined $authlib8_4_8::_bzi{$__or})) { $__ou = $authlib8_4_8::_bzi{$__or}; push @__mp, [$__or, $__ou]; } if ((exists $authlib8_4_8::_bzi{$__os}) && (defined $authlib8_4_8::_bzi{$__os})) { $__ov = $authlib8_4_8::_bzi{$__os}; push @__mp, [$__os, $__ov]; } if (exists $authlib8_4_8::_bzi{$__ot}) { push @__mp, [$__ot, $authlib8_4_8::_bzi{$__ot}]; } my $__oy = 1; for ($__oy = 1; $__oy <= 2; $__oy++) { if ($__oy == 1) { $__mi = $__py . "_" . $__ou . "_other"; } else { $__mi = $__py . "_" . $__ov . "_other"; } if ((exists $authlib8_4_8::_bzi{$__mi}) && (defined $authlib8_4_8::_bzi{$__mi})) { $__mj = authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__mi}); $__mj =~ s/"/"/g; push @__mp, [$__mi, $__mj]; } } } elsif ($__pw == &authlib8_4_8::_CCM) { if (exists $authlib8_4_8::_bzi{$__py} || $__ps == 1) { seek $authlib8_4_8::_byh, $__px, 0; $__mh->{'_bkt'} = authlib8_4_8::_bps(0); push @__mr, $__mh; } } elsif ($__pw == &authlib8_4_8::_CCN) { _bid(\@__mp, $__pz, $__py, 0); } elsif ($__pw == &authlib8_4_8::_CCO) { my $__oz = 1; $__qa = $__py . '_' . $__oz; while ((exists $authlib8_4_8::_bzi{$__qa}) && (defined $authlib8_4_8::_bzi{$__qa})) { $__qb = $authlib8_4_8::_bzi{$__qa}; push @__mp, [$__qa, $__qb]; $__oz++; $__qa = $__py . "_" . $__oz; } $__qa = $__py . '_shown'; if (exists $authlib8_4_8::_bzi{$__qa} && defined $authlib8_4_8::_bzi{$__qa}) { $__qb = $authlib8_4_8::_bzi{$__qa}; push(@__mp, [$__qa, $__qb]); } } elsif ($__pw == &authlib8_4_8::_CCP || $__pw == &authlib8_4_8::_CCQ || $__pw == &authlib8_4_8::_CCR || $__pw == &authlib8_4_8::_CCS) { if ((exists $authlib8_4_8::_bzi{$__py}) && (defined $authlib8_4_8::_bzi{$__py})) { $__qb = $authlib8_4_8::_bzi{$__py}; push @__mp, [$__py, $__qb]; $__qa = $__py . "_shown"; if ((exists $authlib8_4_8::_bzi{$__qa}) && (defined $authlib8_4_8::_bzi{$__qa})) { $__qb = $authlib8_4_8::_bzi{$__qa}; push @__mp, [$__qa, $__qb]; } } } elsif($__pw == &authlib8_4_8::_CCT) { $__mn = 0; @__mo = (); $__qa = "hid_list_" . $__py; if ((exists $authlib8_4_8::_bzi{$__qa}) && (defined $authlib8_4_8::_bzi{$__qa})) { $__qb = $authlib8_4_8::_bzi{$__qa}; @__mo = split(",", $__qb); $__mn = @__mo; } if ($__mn > 0) { for ($__pu = 0; $__pu < $__mn; $__pu++) { $__qa = $__py . "_" . $__mo[$__pu]; if ((exists $authlib8_4_8::_bzi{$__qa}) && (defined $authlib8_4_8::_bzi{$__qa})) { $__qb = $authlib8_4_8::_bzi{$__qa}; push @__mp, [$__qa, authlib8_4_8::_brq($__qb)]; } } } } else { authlib8_4_8::_bqa(202, "Data Save Error.", "Data Save Error - Unknown question type " . $__pw . ".", $@); } } } } my @__pa = (); if (exists($authlib8_4_8::_bzi{"hid_SavedListNames"})) { my @__pb = split(",", $authlib8_4_8::_bzi{"hid_SavedListNames"}); my $__pc = @__pb; my $__pd = ""; for ($__pe = 0; $__pe < $__pc; $__pe++) { $__pd = $__pb[$__pe]; if (exists($authlib8_4_8::_bzi{$__pd})) { push @__pa, [$__pd, $authlib8_4_8::_bzi{$__pd}]; } } } if (exists $__mf->{'_a'}) { for (my $__pe = 0; $__pe < @{$__mf->{'_a'}}; $__pe++) { my $__pf = $__mf->{'_a'}->[$__pe]; my $__pg = "randquestion_" . $__mg->[$__pf->[0] - 1]->{'_bgt'}; if (exists $authlib8_4_8::_bzi{$__pg}) { push @__mp, ["sys_" . $__pg, $authlib8_4_8::_bzi{$__pg}]; } } } if (exists $authlib8_4_8::_bzi{"hid_loops"}) { my $__ph = _bhq($authlib8_4_8::_bzi{"hid_loops"}); my ($__pp, $__qi) = _bhs($__mf, $__ph, ""); if ($__pp) { my $__pi = 0; my $__nr = ""; my $__pj = ""; my $__pk = ""; foreach $__pi (@__mp) { $__pi->[0] .= $__pp; } if (@__pa) { my $__pl = ""; my %__pm = (); my $__pn = ""; my $__pd = ""; my $__pk = $__pp; my $__po = ""; if (exists $__mf->{'_f'}) { foreach $__pn (@{$__mf->{'_f'}}) { $__pl = $authlib8_4_8::_cav->{$__pn}->{'_bcs'}; if ($__pk =~ m/(.*?)\.\d+$/) { $__pk = $1; } $__pm{$__pl} = $__pk; } } foreach $__pi (@__pa) { $__pd = $__pi->[0]; $__pk = $__pp; if ($__pd =~ m/(.*?)_others/i) { $__po = $1; } else { $__po = $__pd; } if (exists $__pm{$__po}) { $__pk = $__pm{$__po}; } $__pi->[0] = $__pd . $__pk; } } } } if (exists $authlib8_4_8::_bzi{"hid_pagetime"}) { _bic(\@__mp, $__pz, $__ps, $authlib8_4_8::_bzi{"hid_pagetime"}); } if (exists $__mf->{'_c'}) { if (exists $authlib8_4_8::_bzi{"hid_BlockSeq_" . $__mf->{'_c'}->{'_d'}}) { my $__pp = ""; if (exists $authlib8_4_8::_bzi{"hid_loops"}) { $__pp = _bht($__mf); } push @__mp, ["sys_block_set_" . $__mf->{'_c'}->{'_d'} . $__pp, $authlib8_4_8::_bzi{"hid_BlockSeq_" . $__mf->{'_c'}->{'_d'}}]; } } if (exists $authlib8_4_8::_bzi{"hid_SaveRandPages"}) { my $__pq = $authlib8_4_8::_bzi{"hid_SaveRandPages"}; if (exists $authlib8_4_8::_bzi{"hid_RandPage_" . $__pq}) { my $__pp = ""; if (exists $authlib8_4_8::_bzi{"hid_loops"}) { $__pp = _bhu($__mf); } push @__mp, ["sys_randpage_" . $__pq . $__pp, $authlib8_4_8::_bzi{"hid_RandPage_" . $__pq}]; } } if (exists $authlib8_4_8::_bzi{"hid_show_prev"}) { push @__mp, ["sys_ShowPrev", 1]; } my @__pr = (@__mp, @__pa); authlib8_4_8::_boc(\@__pr, $__pz, 0, 0); authlib8_4_8::_bnu(\@__mp, $__pz, 0); if (@__pa) { authlib8_4_8::_bnw(\@__pa, $__pz); } return (\@__mq, \@__mr); } sub _bic { my($__qn, $__qo, $__qp, $__qq) = @_; if (exists $authlib8_4_8::_bzi{"hid_loops"}) { my $__qj = $authlib8_4_8::_bzj->[$__qp - 1]; my $__qk = _bhq($authlib8_4_8::_bzi{"hid_loops"}); my ($__qr, $__qs) = _bhs($__qj, $__qk, ""); $__qp = $__qp . $__qr; } my $__ql = time() - $__qq; my @__qm = @{authlib8_4_8::_bof($__qo, {"quest_name" => "sys_pagetime_" . $__qp})}; if (@__qm > 0 && $__qm[-1]->{"data"}->{"sys_pagetime_" . $__qp}) { $__ql += $__qm[-1]->{"data"}->{"sys_pagetime_" . $__qp}; } if ($__ql < 0) { $__ql = 0; } push @{$__qn}, ["sys_pagetime_" . $__qp, $__ql]; } sub _bid { my($__sj, $__sk, $__sl, $__sm) = @_; my %__qt = (); my $__qu = 0; my $__qv = 0; my $__qw = 0; my $__qx = 0; my $__qy = ""; my $__qz = 0; my $__ra = ""; my $__rb = authlib8_4_8::_bqx($__sl); my $__rc = authlib8_4_8::_bss($__rb->{'_aoz'}); my $__rd = 0; my %__re = (); if ($__rc) { $__rd = @{$__rc}; } my $__rf = $__rb->{'_apa'}; my $__rg = 0; my $__rh = 0; my $__ri = 0; my $__rj = 0; my @__rk = (); my $__rl = ""; if ($__sl =~ m/(.*?)_BYO/) { $__rl = $1; } $acbclib8_4_8::_cmf = {}; if (exists $__rb->{'_aqk'}) { my $__rm = $__rb->{'_aqk'}; $__qw = $__rm->{'_aql'}; } my @__rn = (); for ($__qz = 0; $__qz < $__rd; $__qz++) { $__qu = $__rc->[$__qz]->{'_bcm'}; $__re{$__qu} = $__qz; $__rj = 0; $__qv = 0; if (exists $__rf->{$__qu}) { $__rg = $__rf->{$__qu}; $__ra = $__sl . "_" . $__qu; if (exists $__rg->{'_apr'}) { if (exists $__rg->{'_apq'}) { $__rh = $__rg->{'_apq'}; $__ri = authlib8_4_8::_bss($__rg->{'_apo'}); if ($__ri) { @__rk = map {$_->{'_bcm'}} @{$__ri}; } if ($__rh > 0) { my @__ro = (); if ($__rh == 1) { @__ro = sort {$b <=> $a} @__rk; } elsif ($__rh == 2) { @__ro = sort {$a <=> $b} @__rk; } $__rj = {'_bkx'=>$__qu, '_vm'=>$__ro[0], '_fy'=>\@__ro, '_cmn'=>1, '_apr'=>1}; } else { my $__rp = @{$__ri}; my $__rq = acbclib8_4_8::_cln($__rp); acbclib8_4_8::_clo($__rq, $__sk * 97); my @__rr = map {$__ri->[$_]->{'_bcm'};} @{$__rq->{"a"}}; my $__rs = $__rr[0]; $__rj = {'_bkx'=>$__qu, '_vm'=>$__rs, '_fy'=>\@__rr, '_cmm'=>1, '_apr'=>1}; } } } else { if ((exists $authlib8_4_8::_bzi{$__ra}) && (defined $authlib8_4_8::_bzi{$__ra})) { $__qv = $authlib8_4_8::_bzi{$__ra}; $__rj = {'_bkx'=>$__qu, '_vm'=>$__qv}; } else { $__rj = {'_bkx'=>$__qu, '_vm'=> 0, '_apr'=>1}; } } if ($__rj) { if ($__qw) { if (exists $authlib8_4_8::_bzi{$__ra . "_prices"} && $authlib8_4_8::_bzi{$__ra . "_prices"} ne "") { $__qy = $authlib8_4_8::_bzi{$__ra . "_prices"}; $__qy =~ s/\s//g; $__qy =~ s/^,/0,/; $__qy =~ s/,$/,0/; $__qy =~ s/,,/,0,/g; } else { $__qx = $__rf->{$__qu}->{'_aps'}; _bie($__qx); $__qy = join(",", @{$__qx}); } $__rj->{'_aps'} = $__qy; } $__qt{$__qu} = authlib8_4_8::_bsp($__rj); } } } if (exists $__rb->{'_aqj'}) { acbclib8_4_8::_clk(\%__qt, $__rb->{'_aqj'}); } for ($__qz = 0; $__qz < $__rd; $__qz++) { $__qu = $__rc->[$__qz]->{'_bcm'}; if (exists $__rf->{$__qu}) { $__rg = $__rf->{$__qu}; if ($__rg->{'_api'}) { my $__rt = $__rg->{'_api'}; my $__ru = 0; for (my $__rv = 0; $__rv < @{$__rt} && !$__ru; $__rv++) { if (exists $__re{$__rt->[$__rv]}) { my $__ri = authlib8_4_8::_bss($__rf->{$__rt->[$__rv]}->{'_apo'}); my $__rw = $__rf->{$__rt->[$__rv]}->{'_apt'}->{$__qu}; for (my $__rx = 0; $__rx < @{$__ri} && !$__ru; $__rx++) { $__ru = exists $__rw->{$__ri->[$__rx]->{'_bcm'}}; } } } if ($__ru) { push (@__rn, $__qz); } else { if (exists $__qt{$__qu}) { $__qt{$__qu}->{'_apr'} = 1; $__qt{$__qu}->{'_vm'} = 0; } } } } } foreach $__qz (@__rn) { $__qu = $__rc->[$__qz]->{'_bcm'}; $__rg = $__rf->{$__qu}; my $__ry = 0; my @__rz = @{$__rg->{'_api'}}; for (my $__rv = 0; $__rv < @__rz && !$__ry; $__rv++) { if (exists $__qt{$__rz[$__rv]}) { my $__sa = $__qt{$__rz[$__rv]}->{'_vm'}; $__ry = exists $__rf->{$__rz[$__rv]}->{'_apt'}->{$__qu}->{$__sa}; } } if (!$__ry) { if (exists $__qt{$__qu}) { $__qt{$__qu}->{'_vm'} = 0; } } } my $__sb = 0; my @__sc = (0) x $__rd; foreach $__qu (sort {$a <=> $b} keys %__qt) { $__rj = $__qt{$__qu}; $__ra = $__sl . "_" . $__rj->{'_bkx'}; my $__sd = $__re{$__qu}; if (exists $__rj->{'_vm'} && $__rj->{'_vm'} ne "") { $__sc[$__sd] = $__rj->{'_vm'}; } if (not exists $__rj->{'_apr'}) { push @{$__sj}, [$__ra, $__rj->{'_vm'}]; } if (exists $__rj->{'_aps'}) { $__qy = $__rj->{'_aps'}; push @{$__sj}, ["sys_ACBC_" . $__ra . "_prices", "[" . $__qy . "]"]; if ($__qw && $__rj->{'_vm'} != 0) { my @__se = split(',', $__qy); my $__sf = $__se[$__rj->{'_vm'} - 1]; if ($__sm && exists $__rb->{'_aqy'}) { my $__sg = acbclib8_4_8::_ckt($__rb->{'_aqy'}, \%__re, \@__sc); if (exists $__sg->{$__qu . "," . $__rj->{'_vm'}}) { $__sf += $__sg->{$__qu . "," . $__rj->{'_vm'}}; } } $__sb += $__sf; } } } if ($__qw && exists $__re{$__qw}) { if (exists $__rb->{'_aqk'}->{'_aqo'}) { $__sb += $__rb->{'_aqk'}->{'_aqo'}; } my $__sh = 0; if (exists $__rb->{'_aqk'}->{'_aqr'}) { $__sh = $__rb->{'_aqk'}->{'_aqr'}; } $__sb = authlib8_4_8::_brn($__sb, $__sh); if (!$__sm) { push @{$__sj}, [$__sl . "_" . $__qw, $__sb]; } my $__sd = $__re{$__qw}; $__sc[$__sd] = $__sb; } my $__rl = ""; if ($__sl =~ m/(.*?)_BYO/) { $__rl = $1; } my $__si = acbclib8_4_8::_cjt($__rl, $__rb); push @{$__sj}, ["sys_ACBC_" . $__rl . "_atts", join(',', @{$__si})]; push @{$__sj}, ["sys_ACBC_" . $__rl . "_byo", join(',', @__sc)]; } sub _bie { my($__sp) = @_; my $__sn = 0; my $__so = ""; for ($__sn = 0; $__sn < @{$__sp}; $__sn++) { $__so = $__sp->[$__sn]; if (!authlib8_4_8::_bto($__so)) { $__sp->[$__sn] = 0; } } } sub _bif { my($__sv, $__sw) = @_; if ($ciwlib8_4_8::_bkq == 0) { my $__sq = ""; if (exists $authlib8_4_8::_bzi{"hid_respnum"}) { $__sq = _bia(); } print _biq($authlib8_4_8::_bzi{"hid_pagenum"}, $__sq, $authlib8_4_8::_bzi{"hid_javascript"}, 0, "", ""); } ciwlib8_4_8::_big("","",$__sv,0,0,0,0); if ($ciwlib8_4_8::_bkn) { print $ciwlib8_4_8::_bkn; } if($__sw) { my $__sr = ""; my $__ss = ""; my $__st = ""; my %__su = ("hid_backup" => 1, "hid_studyname" => 1, "hid_respnum" => 1, "hid_pagenum" => 1, "hid_javascript" => 1, "hid_previous" => 1, "hid_s" => 1); foreach $__sr (sort keys(%authlib8_4_8::_bzi)) { if (exists $__su{$__sr}) { next; } else { $__ss = $authlib8_4_8::_bzi{$__sr}; $__ss =~ s/"/"/g; $__st .= "\n"; } } print $__st; if($authlib8_4_8::_bzi{"hid_javascript"}) { _bjn({}, [], [], []); } if (exists $authlib8_4_8::_bzk->{'_aa'}) { delete $authlib8_4_8::_bzk->{'_aa'}; } print _biw($authlib8_4_8::_bzi{"hid_pagenum"}, 0); } print ciwlib8_4_8::_biv(0, 0); authlib8_4_8::_bso(); } sub _big { my ($__tf, $__tg, $__th, $__ti, $__tj, $__tk, $__tl) = @_; my $__sx = 0; my $__sy = ""; my $__sz = ""; my $__ta = ""; my $__tb = $authlib8_4_8::_bzl->{'_es'}; $__tg =~ s/\\"/"/g; if (exists $__tb->{$__th}) { $__sz = $__tb->{$__th}; $__sz = authlib8_4_8::_bqf($__sz, 0); $__sz = authlib8_4_8::_bsl($__sz); } if ($__th eq '_fh') { my $__tc = $__tk; my $__td = $__tl->{'_akj'}; $__tk = $__td; $__sz =~ s/\[%ERRCURSUM\(\)%\]/$__tc/ig; $__sz =~ s/\[%ERRTOTAL\(\)%\]/$__td/ig; } elsif ($__th eq '_ff') { $__sz =~ s/\[%ERRTOTAL\(\)%\]/$__tk/ig; } $__sz =~ s/\[%ERRFIELD\(\)%\]/$__ti/ig; $__sz =~ s/\[%ERRTEXT\(\)%\]/$__tg/ig; $__sz =~ s/\[%ERRQNAME\(\)%\]/$__tf/ig; $__sz =~ s/\[%ERRMIN\(\)%\]/$__tj/ig; $__sz =~ s/\[%ERRMAX\(\)%\]/$__tk/ig; $__ta .= "
\n"; if ($__tf) { if (exists $__tb->{'_et'}) { my $__te = $__tb->{'_et'}; $__te = authlib8_4_8::_bqf($__te, 0); $__te = authlib8_4_8::_bsl($__te); $__ta .= "
\n"; $__ta .= $__te; $__ta .= "
\n"; } } if ($__sz) { $__ta .= "
\n"; $__ta .= $__sz; $__ta .= "
\n"; } $__ta .= "
\n"; if (exists($authlib8_4_8::_bzk->{'_do'})) { $__ta .= "\n"; } $ciwlib8_4_8::_bkn = $__ta; } sub _bih { my($__tw, $__tx, $__ty, $__tz, $__ua) = @_; my $__tm = 1; my $__tn = 0; my $__to = 1; my $__tp = 0; my $__tq = 0; my $__tr = 0; my $__ts = 0; if ($__ty) { $__to = 0; } while($__tm) { $__tn = 0; if (not exists $ciwlib8_4_8::_bkl{'remove_rand'}) { if ($__to) { ($__tp, $__tq, $__ts) = _bhp($__tw, $__tx, $__ua); } else { $__tp = 0; $__tq = 0; $__ts = 0; } if ($authlib8_4_8::_bxg && !$__tp && !$__tq) { ($__tw, $__ty) = _bhk($__tw, $__tx, $__ty, $__tz); } if (!$__tq) { if ($__ts && !exists $authlib8_4_8::_bzi{"hid_page_rand"}) { } else { ($__tw, $__to, $__ty, $__tn) = _bhv($__tw, $__tz, $__ua, $__to, $__ty); if ($__tn) { next; } } } } if ($authlib8_4_8::_bxi && $__to) { my $__tt = $__tw; ($__tw, $__tr) = _bho($__tw, $__tx, 0, 0, $__ua, 0); $__to = 0; if ($__tw != $__tt) { if (!$__tq) { my $__tu = $authlib8_4_8::_bzj->[$__tx - 1]; foreach my $__tv (keys %{$__tr}) { if(!_bhg($__tu, $__tv)) { $__tx = 0; last; } } %authlib8_4_8::_byi = (); delete $authlib8_4_8::_bzi{"hid_page_rand"}; next; } } } if ($__ty == &authlib8_4_8::_CBR || $__ty == &authlib8_4_8::_CBQ) { $__ty = ""; } $__tm = 0; } return ($__tw, $__ty); } sub _bii { my ($__xh, $__wo, $__xi, $__xj, $__xk, $__xl, $__xm) = @_; my $__ub = ""; my $__uc = 0; my ($__xn,$__xo,$__xp) = (0) x 3; my ($__xq, $__xe) = (0) x 2; my $__ud = 0; my $__ue = ""; my $__uf = 0; my $__ug = 0; my $__uh = 1; my $__ui = ""; my %__uj = (); my @__uk = (); my $__ul = 0; my $__um = 0; my $__un = 1; my $__uo = 0; my $__up = 0; my $__uq = 0; my $__ur = 0; my $__us = 0; my $__ut = 0; my $__uu = 0; my $__uv = 0; my @__uw = (); my @__ux = (); my @__uy = (); my $__uz = ""; my $__va = ""; my $__vb = 0; my @__vc = (); my $__vd = 0; my $__ve = ""; my $__vf = ""; my $__vg = 0; my $__vh = 0; my $__vi = 0; if ($authlib8_4_8::_bzy && exists $authlib8_4_8::_bzi{"hid_test_mode_settings"}) { if ($authlib8_4_8::_bzi{"hid_test_mode_settings"} ne "") { ciwlib8_4_8::_bju(); } } if ($__wo) { if (exists($authlib8_4_8::_bwq{$__wo})) { $__ur = $authlib8_4_8::_bwq{$__wo}; $__xh = $__ur->{'_v'}; $__uq = $authlib8_4_8::_bzj->[$__xh - 1]; $__us = $__uq->{'_g'}; _bij($__us); $__uc = @{$__us}; for($__xq = 0; $__xq < $__uc; $__xq++) { $__ur = $__us->[$__xq]; if ($__ur->{'_bgt'} eq $__wo) { $__ut = $__xq; last; } else { $__ur->{'_bky'} = 1; } } } else { authlib8_4_8::_bqa(115, "Attempted to skip to a question that does not exist.", "Attempted to skip to a question that does not exist (" . $__wo . ").", ""); } } else { if ($__xh > @{$authlib8_4_8::_bzj}) { $__up = 1; $__uv = 1; } else { $__uq = $authlib8_4_8::_bzj->[$__xh - 1]; $__us = $__uq->{'_g'}; _bij($__us); $__uc = @{$__us}; } } if ($__uq) { if(exists $__uq->{'_f'}) { my $__vj = 0; my $__vk = 0; $__vh = {}; my $__vl = ""; my @__vm = (); authlib8_4_8::_btk(); if (exists $authlib8_4_8::_bzi{"hid_loops"}) { $__vh = _bhq($authlib8_4_8::_bzi{"hid_loops"}); } if (!exists $authlib8_4_8::_bzi{"hid_loops_restart"}) { my %__vn = (); foreach $__vl (@{$__uq->{'_f'}}) { $__vn{$__vl} = 1; $__vj = $authlib8_4_8::_cav->{$__vl}; $__vk = authlib8_4_8::_bqn($__vj->{'_bcs'}); if ($__vk) { if (not exists $__vh->{$__vl}) { $__vh->{$__vl} = 1; } } else { $__xh++; return ($__xh, "", $__vi); } } foreach $__vl (keys %{$__vh}) { if (!exists $__vn{$__vl}) { delete $__vh->{$__vl}; } } } my $__vg = 0; ($__vf, $__vg) = _bhs($__uq, $__vh, ""); my $__vo = _bhr($__vh); $authlib8_4_8::_bzi{"hid_loops"} = $__vo; $authlib8_4_8::_byi{"hid_loops"} = $__vo; } } $authlib8_4_8::_bzi{"hid_pagenum"} = $__xh; my $__vp = ""; my $__vq = 0; my $__vr = 0; my $__vs = ""; my $__vt = 0; my $__vu = 0; my $__vv = 0; if ($authlib8_4_8::_byl && $__xh > 1) { $__vv = $authlib8_4_8::_bzi{"sys_prev_low_hop"}; } elsif ($__xh > 1) { $__vv = $authlib8_4_8::_bzi{"sys_next_hop"}; } for($__xq = $__ut; $__xq < $__uc; $__xq++) { $__ur = $__us->[$__xq]; $authlib8_4_8::_byf = $__ur->{'_bgt'}; if ($__vs) { if ($__vs eq $__ur->{'_bgt'}) { $__vs = ""; } else { $__ur->{'_bky'} = 1; next; } } if (exists $__ur->{'_l'} && !$authlib8_4_8::_bzy) { if(!exists($ciwlib8_4_8::_bkl{'remove_skip'})) { my $__vw = $__ur->{'_l'}; my $__vx = @{$__vw}; my $__vy = 0; for ($__xe = 0; $__xe < $__vx; $__xe++) { $__vy = $__vw->[$__xe]; if (_bjh($__vy->{'_bcl'})) { $__vs = $__vy->{'_r'}; ($__vs, $__xh, $__vi, $__vu) = _bhf($__vs, $__xh); if ($__vs eq "" && $__vu) { $__vt = 1; } $__ur->{'_bky'} = 1; last; } } if ($__vt) { last; } if (exists $__ur->{'_bky'}) { next; } } } if ($__ur->{'_bgu'} == &authlib8_4_8::_CCA || $__ur->{'_bgu'} == &authlib8_4_8::_CCB) { my $__vz = authlib8_4_8::_bpl($__ur->{'_bgt'}, 1); if (exists $__vz->{'_hn'}) { my $__wa = 0; my $__wb = 0; my $__wc = 0; $__ur->{'_bkz'} = $__ur->{'_bgt'}; ($__ur->{'_bgt'}, $__wa, $__wb, $__wc) = acalib8_4_8::_cew($__vz, $__ur->{'_bgt'}, $__ur->{'_bgu'}, 1); $authlib8_4_8::_byf = $__ur->{'_bgt'}; } } _bka($__ur); $__ur->_bls(); if (exists $__ur->{'_bky'}) { next; } elsif (exists $__ur->{'_bla'}) { my $__wd = delete $__ur->{'_bla'}; my @__we = (); if (exists $authlib8_4_8::_bzi{'sys_autocompletes'}) { @__we = @{$authlib8_4_8::_bzi{'sys_autocompletes'}}; } else { my $__wf = delete $authlib8_4_8::_bzi{'hid_SavedListNames'}; if ($__wf) { my @__wg = split(",", $__wf); foreach my $__wh (@__wg) { delete($authlib8_4_8::_bzi{$__wh}); } } } foreach my $__wi (@{$__wd}) { authlib8_4_8::_bnd($__wi->[0], $__wi->[1]); } my $__wj = {'_bkr' => $__ur->{'_bgt'}, '_bks' => $__wd}; push(@__we, $__wj); $authlib8_4_8::_bzi{'sys_autocompletes'} = \@__we; $__ur->{'_bky'} = 1; next; } else { if ($__ur->{'_bgu'} == &authlib8_4_8::_CCK) { $__uf = $__ur->{'_bkt'}; $__uf->{'_bgt'} = $__ur->{'_bgt'}; } elsif ($__ur->{'_bgu'} == &authlib8_4_8::_CCM) { push @__vc, $__ur; } elsif (authlib8_4_8::_bom($__ur->{'_bgu'})) { $__ur->_cis(); if (exists $__ur->{'_bky'} && exists $__ur->{'_bkt'}->{'_baq'}) { $__vs = $__ur->{'_bkt'}->{'_baq'}; if ($__vs eq "" && $__ur->{'_bgu'} != &authlib8_4_8::_CCN) { $__up = 1; } else { ($__vs, $__xh, $__vi, $__vu) = _bhf($__vs, $__xh); if ($__vs eq "" && $__vu) { $__vt = 1; last; } } } } if (exists $__ur->{'_bky'}) { next; } else { if ($ciwlib8_4_8::_bkn eq "" && !$authlib8_4_8::_bzy && $__xh > 1) { eval { require "Digest.pm"; $__ur->{'_blb'} = Digest->new("MD5"); $__ur->{'_blb'}->add($__ur->_blt()); $__ur->{'_blb'}->add($__ur->_blu()); }; if ($@) { authlib8_4_8::_bqa(0, "Unable to load Digest.pm

", $@, ""); } } $__ub .= $__ur->_blt(); $__uq->{'_bfa'} .= $__ur->_blu(); my $__wk = $__ur->{'_bkt'}; if (exists $__wk->{'_bex'}) { my $__wl = "SSI_CustomJScriptShell_" . $__ur->{'_bgt'} . "()"; $__wk->{'_bex'}->{'_blh'} = $__ur->{'_bgt'}; $__wk->{'_bex'}->{'quest_type'} = $__ur->{'_bgu'}; $__wk->{'_bex'}->{'_blg'} = $__wl; if ($__wk->{'_bex'}->{'_bey'} eq "after") { push @__ux, $__wl; } else { push @__uw, $__wl; } push @__uy, $__wk->{'_bex'}; if ($ciwlib8_4_8::_bkn eq "" && !$authlib8_4_8::_bzy && $__xh > 1) { $__ur->{'_blb'}->add($__wk->{'_bex'}->{'_bez'}); } } if ($__ur->{'_bgu'} != &authlib8_4_8::_CCM) { $__uv = 1; } if ($__va eq "") { if (exists $__ur->{'_bkz'}) { $__va = $__ur->{'_bkz'}; } else { $__va = $__ur->{'_bgt'}; } if ($__vf) { $__va .= $__vf; } } } } } $authlib8_4_8::_byf = ""; if ($__vs || $__vt) { return ($__xh, $__vs, $__vi); } elsif (@__vc > 0 && !$__uv) { if ($authlib8_4_8::_bzy) { $__vd = 1; $__uv = 1; if ($authlib8_4_8::_bzy == 3) { $__vd = 0; } } else { my $__wm = 0; my @__wn = (); my $__wo = ""; foreach $__wm (@__vc) { if (exists $__wm->{'_q'}) { push @__wn, $__wm->{'_q'}; } } ($__wo, $__xh, $__vi) = _bhe(\@__wn, \@__vc, $__xi, "", $__xh, 0); return ($__xh, $__wo, $__vi); } } if ($__uf && exists $__uf->{'_ada'} || $__up) { if ($authlib8_4_8::_bzy == 0) { _bip($__xk, $__xi, $__uf); } $__um = 1; } if ($__uf && exists $__uf->{'_adc'} && $authlib8_4_8::_bzy == 0) { _bin($__uf->{'_bgt'}, $__xi); if(exists $ciwlib8_4_8::_bkl{'remove_terminate'}) { $__un = 0; } else { $__uz = $__uf->{'_adc'}; if (exists $authlib8_4_8::_bzi{"hid_test_mode"}) { if ($__uz =~ m/\?/) { $__uz .= "&hid_test_mode=" . $authlib8_4_8::_bzi{"hid_test_mode"}; } } print authlib8_4_8::_bpm(); print "\n"; print "\n"; print "\n"; print "\n"; return (0, "", $__vi); } } if ($__up) { print _biq($__xh,$__xi,$__xj, 0, "", ""); _biy(); print _biv($__xh, 0); return (0, "", $__vi); } if ($__uv) { if (@__uy > 0) { $__uq->{'_bex'} = \@__uy; } if ($__xl) { if (exists $__xl->{'_blc'}) { return ($__uq, $__ub, $__vi); } else { if (exists $__xl->{'_bld'}) { $__uq->{'_bfa'} = $__xl->{'_bld'}; } if (exists $__xl->{'_ble'}) { $__ub = $__xl->{'_ble'}; } } } print _biq($__xh, $__xi, $__xj, $__uq, $__va, $__ub, $__xm); if ($ciwlib8_4_8::_bkn) { print $ciwlib8_4_8::_bkn; } if (exists $authlib8_4_8::_bzi{"hid_page_rand"}) { $authlib8_4_8::_byi{"hid_page_rand"} = $authlib8_4_8::_bzi{"hid_page_rand"}; } if ($__wo ne "") { print "\n"; } if (exists($__uq->{'_a'})) { if (!exists($ciwlib8_4_8::_bkl{'remove_rand'})) { ($__ud, $__ut) = _bjg($__uq, $__ut, $__xi, $__uc, $__xh); my @__wp = @{$__ud}; my @__wq = (); my $__wr = 0; my @__ws = (); my $__wt = ""; my $__wu = ""; for ($__xq = 0; $__xq < @{$__uq->{'_a'}}; $__xq++) { $__wr = $__uq->{'_a'}->[$__xq]; @__ws = @__wp[($__wr->[0] - 1)..($__wr->[1] - 1)]; $__wt = join(",", map { ($_ + 1) - ($__wr->[0] - 1) } @__ws); $__wu = "randquestion_" . $__us->[$__wr->[0] - 1]->{'_bgt'} . $__vf; $authlib8_4_8::_byi{$__wu} = $__wt; } } } if (exists $authlib8_4_8::_bzi{'sys_autocompletes'}) { my $__wi = delete $authlib8_4_8::_bzi{'sys_autocompletes'}; foreach my $__wv (@{$__wi}) { my $__ue = $__wv->{'_bkr'}; my $__ww = $__wv->{'_bks'}; my $__ur = $authlib8_4_8::_bwq{$__ue}; $authlib8_4_8::_byi{"hid_q_" . $__ue} = $__ue; foreach my $__wi (@{$__ww}) { $authlib8_4_8::_byi{$__wi->[0]} = $__wi->[1]; } if ($__ur->{'_bgu'} == &authlib8_4_8::_CCH) { my $__wx = $__ur->{'_bkt'}->{'_cdv'}; my $__wy = $__ur->{'_bkt'}->{'_cdw'}; $authlib8_4_8::_byi{"hid_row_list_" . $__wv->{'_bkr'}} = join(",", map{$_->{'_bcm'}} @{$__wx}); $authlib8_4_8::_byi{"hid_col_list_" . $__wv->{'_bkr'}} = join(",", map{$_->{'_bcm'}} @{$__wy}); } else { my $__vq = $__ur->{'_bkt'}->{'_bmi'}; $authlib8_4_8::_byi{"hid_list_" . $__ue} = join(",", map{$_->{'_bcm'}} @{$__vq}); } } } unless ($__ud) { my @__wz = (0..($__uc - 1)); $__ud = \@__wz; } for($__xq = $__ut; $__xq < $__uc; $__xq++) { $__xn = $__ud->[$__xq]; $__ur = $__us->[$__xn]; $__xp = $__ur->{'_bgu'}; $__ue = $__ur->{'_bgt'}; $authlib8_4_8::_byf = $__ue; $__vb = $__xh * 1009 + ($__xn + 1); if (exists $__ur->{'_bky'}) { next; } if ($authlib8_4_8::_bzy && $__xm) { if (($__xm & 1) && $__uh) { $__uh = 0; $__ug = !$__ug } } elsif (($__xh & 1) && $__uh) { $__uh = 0; $__ug = !$__ug } if ($__xp != &authlib8_4_8::_CBY && $__xp != &authlib8_4_8::_CBZ) { $__ul++; } my $__xa = ""; my $__xb = 0; if ($ciwlib8_4_8::_bkn && !$authlib8_4_8::_bzy && $__xh > 1) { $__xb = 1; $__ur->{'_bkt'}->{'_bku'} = \%authlib8_4_8::_bzi; my @__xc = split(",", $authlib8_4_8::_bzi{"hid_prev_" . $__ur->{'_bgt'} . $__vf}); ($__vv, $__ur->{'_blb'}) = @__xc[0, -1]; } do { if (exists $__ur->{'_bkt'}->{'_chj'}) { $__xa = $__ur->{'_bkt'}->{'_chj'}; } else { $__xa = ""; if (exists $authlib8_4_8::_bzi{"hid_test_mode"}) { $__xa .= _bjv($__ue, 1, 0); } $__ur->{'_bkt'}->{'_cmo'} = $__ul; if($__xp == &authlib8_4_8::_CCM) { $__xa .= $__ur->_bmf($__vb, $__xi, $__xj, $__ug); } else { $__xa .= $__ur->_blv(); $__xa .= $__ur->_blw(); $__xa .= $__ur->_blx(); $__xa .= $__ur->_bly(); $__xa .= $__ur->_bmf($__vb, $__xi, $__xj, $__ug); $__xa .= $__ur->_blz(); $__xa .= $__ur->_bma(); $__xa .= $__ur->_blz(); } } if ($__xb == 0 && !$authlib8_4_8::_bzy && $__xh > 1) { $__ur->{'_blb'}->add($__xa); $__ur->{'_blb'} = $__ur->{'_blb'}->hexdigest(); $__ue = $__ur->{'_bgt'}; if ($__xp == &authlib8_4_8::_CCD && $__ur->{'_bkt'}->{'_xa'} == 2) { my $__xd = $__ur->{'_bkt'}->{'_mk'}; my ($__xr) = $__ue =~ m/^(.*?_Calibration)/; for (my $__xe = 1; $__xe <= $__xd; $__xe++) { my @__xf = @{authlib8_4_8::_bof($__xi, {"quest_name" => $__xr . $__xe, "quest_version" => $__ur->{'_blb'}})}; if (@__xf > 0 && $__xf[-1]->{"quest_name"} eq ($__xr . $__xe)) { while (my ($__xs, $__xt) = each %{$__xf[-1]->{"data"}}) { $__ur->{'_bkt'}->{'_bku'}->{$__xs} = $__xt; } $__xb = 1; $authlib8_4_8::_bye = 0; } } } else { my @__xf = @{authlib8_4_8::_bof($__xi, {"quest_name" => $__ue . $__vf, "quest_version" => $__ur->{'_blb'}})}; if (@__xf > 0 && $__xf[-1]->{"quest_name"} eq $__ue . $__vf) { if ($__vf) { while (my ($__xu, $__xv) = each %{$__xf[-1]->{"data"}}) { $__xu =~ s/^(.*?)\..*$/$1/o; $__ur->{'_bkt'}->{'_bku'}->{$__xu} = $__xv; } } else { $__ur->{'_bkt'}->{'_bku'} = $__xf[-1]->{"data"}; } $__xb = 1; $authlib8_4_8::_bye = 0; } } } else { $__xb = 0; $authlib8_4_8::_bye = 1; } } until($__xb == 0); if ($__xj) { $__ur->_bmg(\@__uk, \%__uj, $__ul); } $__ug = !$__ug; print $__xa; if (!$authlib8_4_8::_bzy) { print "\n\n"; if ($__xh > 1) { if ($__xp == &authlib8_4_8::_CCD && $__ur->{'_bkt'}->{'_xa'} == 2) { my $__xd = $__ur->{'_bkt'}->{'_mk'}; my ($__xr) = $__ue =~ m/^(.*?_Calibration)/; print "\n{'_blb'}) . "\">\n"; for (my $__xe = 2; $__xe <= $__xd; $__xe++) { $__vv++; print "\n{'_blb'}) . "\">\n"; } } else { print "\n{'_blb'}) . "\">\n"; } } } $authlib8_4_8::_byf = ""; $__vv++; } } else { $__xh++; return ($__xh, "", $__vi); } if($authlib8_4_8::_bzy == 0) { if($__xj) { _bjn(\%__uj, \@__uk, \@__uw, \@__ux); } else { print _bim(); } } my $__xg = _biv($__xh, 1); if ($authlib8_4_8::_bzy == 3 || $authlib8_4_8::_bzy == 4) { $__un = 0; } if($__un) { if ($__um == 0) { print _bik(); print _biw($__xh, 0); } elsif($authlib8_4_8::_bzy && ($__xh < @{$authlib8_4_8::_bzj}) && ($authlib8_4_8::_bzy != 5)) { print _biw($__xh, 0); print _bio("This is a terminating page. The navigation button(s) only appear on this page in preview mode."); } } if ($__vd) { print _bio("This page only contains quota information and only appears in preview mode."); } if ($__um && exists($authlib8_4_8::_bzk->{'_cl'})) { _biy(); } print $__xg; if (!$authlib8_4_8::_bzy && $__va ne "" && $__xh > 1) { _bin($__va, $__xi); } return (0, "", $__vi); } sub _bij { my ($__xx) = @_; my $__xw = 0; foreach $__xw (@{$__xx}) { delete $__xw->{'_bky'}; } } sub _bik { my $__xy = ""; my %__xz = (); my $__ya = ""; my @__yb = (); foreach $__ya (sort keys %authlib8_4_8::_bxp) { $authlib8_4_8::_byi{$__ya} = $authlib8_4_8::_bxp{$__ya}; push @__yb, $__ya; } if (@__yb) { $authlib8_4_8::_byi{"hid_SavedListNames"} = join(",", @__yb); } my @__yc = sort keys %authlib8_4_8::_byi; if (@__yc > 0) { my $__yd = ""; foreach $__yd (@__yc) { $__xy .= "\n\n"; $__xz{$__yd} = 1; } } my @__ye = sort keys %__xz; if (@__ye > 0) { $__xy .= "\n\n"; } if (exists $authlib8_4_8::_bzk->{'_x'}) { $__xy .= "\n\n"; } return $__xy; } sub _bil { my($__ym) = @_; if (exists($authlib8_4_8::_bwq{$__ym})) { my $__yf = $authlib8_4_8::_bwq{$__ym}; if ($__yf->{'_bgu'} == &authlib8_4_8::_CCA || $__yf->{'_bgu'} == &authlib8_4_8::_CCB) { my $__yg = authlib8_4_8::_bpl($__yf->{'_bgt'}, 1); if (exists $__yg->{'_hn'}) { my $__yh = ""; my $__yi = 0; my $__yj = 0; my $__yk = 0; my $__yl = 0; ($__yh, $__yi, $__yj, $__yk) = acalib8_4_8::_cew($__yg, $__ym, $__yf->{'_bgu'}, 1); if ($__yf->{'_bgu'} == &authlib8_4_8::_CCA) { $__yl = acalib8_4_8::_cex($__yi, $__yk); } elsif ($__yf->{'_bgu'} == &authlib8_4_8::_CCB) { $__yl = acalib8_4_8::_cex($__yj, $__yk); } if ($__yl) { $__ym =~ s/(_Rating|_Importance)\d+/$1$__yl/i; } } } } return $__ym; } sub _bim { my $__yn = ""; if ($authlib8_4_8::_bzy == 0 && $ciwlib8_4_8::_bkn eq "") { $__yn .= "\n\n\n\n"; } return $__yn; } sub _bin { my($__yo, $__yp) = @_; authlib8_4_8::_bnu([["sys_LastQuestion", $__yo]], $__yp, 0); _bis($__yp, $__yo); } sub _bio { my($__yr) = @_; my $__yq = ""; $__yq .= "
"; $__yq .= "Note:
\n"; $__yq .= $__yr; $__yq .= "
"; return $__yq; } sub _bip { my($__za, $__zb, $__zc) = @_; my $__ys = 0; my $__yt = 0; my $__yu = "SELECT `sys_RespStatus` FROM `" . $authlib8_4_8::_bzb . "_data1` WHERE `sys_RespNum` = " . $__zb; my $__yv = 0; my $__yw = 1; eval { $__yv = $authlib8_4_8::_byw->selectrow_hashref(authlib8_4_8::_bmy($__yu, 0)); }; if ($@ || $__yv == 0) { authlib8_4_8::_bqa(208, "Database error.", "Database error. Cannot read data record.", $@); } $__ys = $__yv->{"sys_RespStatus"}; if (exists $ciwlib8_4_8::_bkl{'remove_terminate'}) { $__yw = 0; } if ($__yw && $__ys < 4) { my $__yx = ""; my $__yy = 5; my @__yz = (); if ($__zc) { if (exists $__zc->{'_adb'}) { $__yx = $__zc->{'_adb'}; push @__yz, ["sys_DispositionCode", $__yx]; } if (exists $__zc->{'_ada'}) { $__yy = $__zc->{'_ada'}; } } push @__yz, ["sys_RespStatus", $__yy]; authlib8_4_8::_bnu(\@__yz, $__zb, 1, 0); if ($authlib8_4_8::_bxe > 0) { authlib8_4_8::_boo("acalib8_4_8.pl"); acalib8_4_8::_cey(); } } } sub _biq { my ($__zx, $__zy, $__zz, $__aaa, $__aab, $__aac, $__aad) = @_; my $__zd = ""; my $__ze = ""; if ($ciwlib8_4_8::_bkq == 0) { if(!$ciwlib8_4_8::_bkp) { if (exists $authlib8_4_8::_bzi{"hid_test_mode"} && $__zx == 1 && $ciwlib8_4_8::_bkn eq "") { $__zy = 0; } if ($authlib8_4_8::_bzy == 0) { $__zd .= authlib8_4_8::_bpm(); $authlib8_4_8::_bzs = 0; } $__zd .= authlib8_4_8::_bop(); $__zd .= ""; if (exists($authlib8_4_8::_bzk->{'_ck'})) { $__zd .= $authlib8_4_8::_bzk->{'_ck'}; } $__zd .= "\n"; if ($authlib8_4_8::_bzy == 0) { $__zd .= authlib8_4_8::_btq(); $__zd .= authlib8_4_8::_btr(); $__zd .= "\n"; } $__zd .= authlib8_4_8::_bts(); $__zd .= "\n\n"; if (exists($authlib8_4_8::_bzk->{'_as'})) { $__zd .= "\n{'_as'} . "/" . $authlib8_4_8::_bzk->{'_as'} . ".css\">\n"; } my $__zf = {}; if (exists $authlib8_4_8::_bzk->{'_bw'}) { _biu($__zf, ".indent", "margin-left: " . $authlib8_4_8::_bzk->{'_bw'} . "px"); } if (exists $authlib8_4_8::_bzk->{'_at'}) { _biu($__zf, ".submit_div", "text-align: " . $authlib8_4_8::_bzk->{'_at'}); } if (exists $authlib8_4_8::_bzk->{'_ca'}) { _biu($__zf, "body", "font-family: " . $authlib8_4_8::_bzk->{'_ca'}); } if (exists $authlib8_4_8::_bzk->{'_cm'}) { if (exists $authlib8_4_8::_bzk->{'_cm'}->{'_bfu'}) { _biu($__zf, ".page_header", _bkb($authlib8_4_8::_bzk->{'_cm'}, 0, 0)); } } if (exists $authlib8_4_8::_bzk->{'_bfs'}) { if (exists $authlib8_4_8::_bzk->{'_bfs'}->{'_bfu'}) { _biu($__zf, ".page_footer", _bkb($authlib8_4_8::_bzk->{'_bfs'}, 0, 0)); } } if (exists $authlib8_4_8::_bzk->{'_bg'}) { if (exists $authlib8_4_8::_bzk->{'_bg'}->{'_bfu'}) { _biu($__zf, ".header1", _bkb($authlib8_4_8::_bzk->{'_bg'}, 0, 0)); } } if (exists $authlib8_4_8::_bzk->{'_bk'}) { if (exists $authlib8_4_8::_bzk->{'_bk'}->{'_bfu'}) { _biu($__zf, ".header2", _bkb($authlib8_4_8::_bzk->{'_bk'}, 0, 0)); } } if (exists $authlib8_4_8::_bzk->{'_bo'}) { if (exists $authlib8_4_8::_bzk->{'_bo'}->{'_bfu'}) { _biu($__zf, ".question_text", _bkb($authlib8_4_8::_bzk->{'_bo'}, 0, 0)); } } if (exists $authlib8_4_8::_bzk->{'_bs'}) { if (exists $authlib8_4_8::_bzk->{'_bs'}->{'_bfu'}) { _biu($__zf, ".footer", _bkb($authlib8_4_8::_bzk->{'_bs'}, 0, 0)); } } if (exists $authlib8_4_8::_bzk->{'_bfc'}) { _biu($__zf, ".question", "width:" . $authlib8_4_8::_bzk->{'_bfc'} . "px"); } if (exists $authlib8_4_8::_bzk->{'_by'}) { _biu($__zf, ".question", _bkc($authlib8_4_8::_bzk->{'_by'})); } if (exists $authlib8_4_8::_bzk->{'_ci'}) { my $__zg = $authlib8_4_8::_bzk->{'_ci'}; my $__zh = int($__zg / 2); my $__zi = $__zg - $__zh; _biu($__zf, ".question", "margin-top:" . $__zh . "px"); _biu($__zf, ".question", "margin-bottom:" . $__zi . "px"); } if (exists $authlib8_4_8::_bzk->{'_bz'}) { _biu($__zf, ".question", "background-color: #" . $authlib8_4_8::_bzk->{'_bz'}); } if (exists $authlib8_4_8::_bzk->{'_au'}) { _biu($__zf, ".page", "background-color: #" . $authlib8_4_8::_bzk->{'_au'}); } if (exists $authlib8_4_8::_bzk->{'_ay'}) { _biu($__zf, "body", "background-color: #" . $authlib8_4_8::_bzk->{'_ay'}); } if (exists $authlib8_4_8::_bzk->{'_bef'}) { if (exists $authlib8_4_8::_bzk->{'_bef'}->{'_beg'}) { _biu($__zf, ".alt_color1", "background-color: #" . $authlib8_4_8::_bzk->{'_bef'}->{'_beg'}); } if (exists $authlib8_4_8::_bzk->{'_bef'}->{'_beh'}) { _biu($__zf, ".alt_color2", "background-color: #" . $authlib8_4_8::_bzk->{'_bef'}->{'_beh'}); } } if (exists $authlib8_4_8::_bzk->{'_cb'}) { _biu($__zf, "body", _bkb($authlib8_4_8::_bzk->{'_cb'}, 0, 0)); } if (exists $authlib8_4_8::_bzl->{'_eo'}) { _biu($__zf, ".error_messages", _bkb($authlib8_4_8::_bzl->{'_eo'}, 0, 0)); my $__zj = $authlib8_4_8::_bzl->{'_eo'}->{'_bfu'}; if (exists $__zj->{'_cp'}) { _biu($__zf, ".error_quest_highlight, .error_var_highlight, .error_var_highlight_left, .error_var_highlight_center, .error_var_highlight_right, .error_var_highlight_top, .error_var_highlight_middle, .error_var_highlight_bottom", "border-color: #" . $__zj->{'_cp'} . " !important"); } } if (exists $authlib8_4_8::_bzk->{'_ag'}) { if ($authlib8_4_8::_bzy) { _biu($__zf, ".checkbox input, .radiobox input", "visibility: hidden;"); } if (exists $authlib8_4_8::_bzk->{'_ah'}) { _biu($__zf, ".checkbox", "background:url(\"" . $authlib8_4_8::_bzk->{'_ah'} . "\") no-repeat center center"); } if (exists $authlib8_4_8::_bzk->{'_ai'}) { _biu($__zf, ".checkboxselected", "background:url(\"" . $authlib8_4_8::_bzk->{'_ai'} . "\") no-repeat center center"); } if (exists $authlib8_4_8::_bzk->{'_aj'}) { _biu($__zf, ".radiobox", "background:url(\"" . $authlib8_4_8::_bzk->{'_aj'} . "\") no-repeat center center"); } if (exists $authlib8_4_8::_bzk->{'_ak'}) { _biu($__zf, ".radioboxselected", "background:url(\"" . $authlib8_4_8::_bzk->{'_ak'} . "\") no-repeat center center"); } if (exists $authlib8_4_8::_bzk->{'_sj'}) { _biu($__zf, ".checkbox, .checkboxselected, .radiobox, .radioboxselected", "width:" . $authlib8_4_8::_bzk->{'_sj'} . "px"); } if (exists $authlib8_4_8::_bzk->{'_sk'}) { _biu($__zf, ".checkbox, .checkboxselected, .radiobox, .radioboxselected", "height:" . $authlib8_4_8::_bzk->{'_sk'} . "px"); } } if (exists $authlib8_4_8::_bzk->{'_ac'}) { _biu($__zf, ".graphical_next_button", "background:url(\"" . $authlib8_4_8::_bzk->{'_ac'} . "\") no-repeat center center"); } if (exists $authlib8_4_8::_bzk->{'_ad'}) { _biu($__zf, ".graphical_previous_button", "background:url(\"" . $authlib8_4_8::_bzk->{'_ad'} . "\") no-repeat center center"); } if (exists $authlib8_4_8::_bzk->{'_ae'}) { _biu($__zf, ".graphical_next_button, .graphical_previous_button", "width: " . $authlib8_4_8::_bzk->{'_ae'} . "px"); } if (exists $authlib8_4_8::_bzk->{'_af'}) { _biu($__zf, ".graphical_next_button, .graphical_previous_button", "height: " . $authlib8_4_8::_bzk->{'_af'} . "px"); } if (exists $authlib8_4_8::_bzk->{'_av'}) { _biu($__zf, ".page", "width: " . $authlib8_4_8::_bzk->{'_av'} . "px"); } if (exists $authlib8_4_8::_bzk->{'_aw'}) { _biu($__zf, ".page", "border: " . $authlib8_4_8::_bzk->{'_aw'} . "px solid black"); } if (exists $authlib8_4_8::_bzk->{'_ax'}) { _biu($__zf, ".page", _bkc($authlib8_4_8::_bzk->{'_ax'})); } if (exists $authlib8_4_8::_bzk->{'_ao'}) { _biu($__zf, ".highlight, .highlight td", "background-color: #" . $authlib8_4_8::_bzk->{'_ao'} . " !important"); } if (exists $authlib8_4_8::_bzk->{'_da'}) { my $__zk = $authlib8_4_8::_bzk->{'_da'}; if (exists $__zk->{'_aus'}) { _biu($__zf, ".progress_bar", "width: " . $__zk->{'_aus'} . "px"); } if (exists $__zk->{'_bfw'}) { _biu($__zf, ".progress_bar", _bkc($__zk->{'_bfw'})); } if (exists $__zk->{'_dh'}) { _biu($__zf, ".progress_bar_outer", "background-color: #" . $__zk->{'_dh'}); } if (exists $__zk->{'_dj'}) { _biu($__zf, ".progress_bar_inner", "background-color: #" . $__zk->{'_dj'}); } if (exists $__zk->{'_dk'}) { _biu($__zf, ".progress_bar", "background-color: #" . $__zk->{'_dk'}); } if (exists $__zk->{'_di'}) { _biu($__zf, ".progress_bar", "color: #" . $__zk->{'_di'}); } } my $__zl = ""; foreach my $__zm (sort keys %{$__zf}) { $__zl .= "\n" . $__zm . "\n{\n"; foreach my $__zn (@{$__zf->{$__zm}}) { if ($__zn !~ m/;$/) { $__zn .= ";"; } $__zl .= " " . $__zn . "\n"; } $__zl .= "}\n"; } $__zl .= $__aac; if ($__zl) { $__zd .= ""; } if (exists($authlib8_4_8::_bzk->{'_cj'})) { $__zd .= $authlib8_4_8::_bzk->{'_cj'}; } if ($__aaa) { if(exists($__aaa->{'_bfa'})) { $__zd .= $__aaa->{'_bfa'}; } if (exists($__aaa->{'_bex'})) { $__zd .= "\n\n"; } } $__zd .= "\n\n"; $__zd .= " 0) { $__ze = _bir(); $__zd .= "?hid_s=" . $__ze; } $__zd .= "\">\n"; } if (exists $authlib8_4_8::_bzi{"hid_test_mode"}) { $__zd .= "\n"; my $__zr = ""; if(exists $ciwlib8_4_8::_bkl{'print_study_mode'} && exists $authlib8_4_8::_bzi{"hid_test_mode_settings"}) { $__zr = $authlib8_4_8::_bzi{"hid_test_mode_settings"}; } else { $__zd .= "
Test SurveyOptions
"; $__zd .= _bjt(); } $__zd .= "\n"; } $__zd .= "\n
\n"; if ($authlib8_4_8::_bzu == 1) { $__zd .= authlib8_4_8::_boq(0); } $__zd .= " 1) { $__zd .= $__zy . "," . $authlib8_4_8::_bzi{"hid_checksum"}; } else { $__zd .= ","; } } $__zd .= "," . $__zx . "," . $__zz . "\">\n"; $__zd .= "\n"; if ($__zy > 0 && $authlib8_4_8::_bzy == 0) { $__zd .= "\n"; $__zd .= "\n"; } $__zd .= "\n"; $__zd .= "\n"; $__zd .= "\n"; if ($authlib8_4_8::_byb) { $__zd .= "\n"; $__zd .= "\n"; } if (exists $authlib8_4_8::_bzi{"hid_Random_ACARAT"}) { $__zd .= "\n\n"; } if (exists $authlib8_4_8::_bzi{"hid_Random_ACAIMP"}) { $__zd .= "\n\n"; } if ($__zx < 2) { $__zd .= "\n\n"; } if ((exists $authlib8_4_8::_bzi{"hid_pagenum"}) && ($__zx == 1) && !(exists $authlib8_4_8::_bzi{"hid_test_mode"})) { if ($authlib8_4_8::_bzo) { if (exists $authlib8_4_8::_bzo->{'_bfx'}) { my $__zs = $authlib8_4_8::_bzo->{'_bfx'}; my $__zt = 0; my $__zu = ""; my $__zv = ""; foreach $__zt (@{$__zs->{'_bfy'}}) { $__zv = ""; $__zu = $__zt->{'_bgt'}; if (exists $authlib8_4_8::_bws{uc($__zu)}) { $__zv = authlib8_4_8::_bpy($authlib8_4_8::_bws{uc($__zu)}); } $__zd .= "\n"; } } } } if (exists $authlib8_4_8::_bzk->{'_do'} && (($authlib8_4_8::_bzy == 0) || ($__zx == 0))) { my $__zw = $authlib8_4_8::_bzk->{'_do'}; if (exists $__zw->{'_dp'}) { $__zd .= "
\n"; $__zd .= _bjz($__zw); $__zd .= "
\n"; } } if ($authlib8_4_8::_bzy != 3) { $__zd .= "
\n"; if (exists($authlib8_4_8::_bzk->{'_cm'})) { $__zd .= $authlib8_4_8::_bzk->{'_cm'}->{'_bft'}; } $__zd .= "
\n"; if (exists($authlib8_4_8::_bzk->{'_da'})) { my $__zk = $authlib8_4_8::_bzk->{'_da'}; if (($__zk->{'_aur'} eq "top") && ($__zx > 0)) { $__zd .= _bjw($__zk); } } } $ciwlib8_4_8::_bkq = 1; $__zd = authlib8_4_8::_bqf($__zd, 0); if ($authlib8_4_8::_bzy == 0) { $__zd .= "
\n"; $authlib8_4_8::_bzs = 1; } } return $__zd; } sub _bir { my $__aae = "INSERT INTO `" . $authlib8_4_8::_bzb . "_url_restore` (`timestamp`, `fields`) VALUES(?, ?)"; my $__aaf = 0; my $__aag = 0; my $__aah = 0; my $__aai = time(); if (exists $authlib8_4_8::_bzi{"hid_test_mode"}) { $__aaf = $authlib8_4_8::_bzi{"hid_test_mode"}; } if (exists $authlib8_4_8::_bzi{"hid_checksum"}) { $__aah = $authlib8_4_8::_bzi{"hid_checksum"}; } eval { my $__aaj = $authlib8_4_8::_byw->prepare(authlib8_4_8::_bmy($__aae, 0)); my $__aak = $authlib8_4_8::_bzi{"hid_respnum"}; $__aaj->execute($__aai, "{'resp_num' => '$__aak', 'checksum' => '$__aah', 'test_mode' => '$__aaf', 'previous' => '$authlib8_4_8::_byl', 'study_name' => '" . $authlib8_4_8::_byz . "'}"); }; if ($@) { authlib8_4_8::_bqa(298, "Database error.", "Database error. Cannot insert url_restore row.", $@); } my $__aal = authlib8_4_8::_bnb($authlib8_4_8::_bzb . "_url_restore", "id"); return authlib8_4_8::_bnj($__aal, $__aah, $__aaf, $__aai); } sub _bis { my($__aaz, $__aba) = @_; my $__aam = ""; my $__aan = ""; my $__aao = ""; my $__aap = 0; my $__aaq = 0; my $__aar = 0; my $__aas = 0; my $__aat = 0; my $__aau = 0; if (exists $authlib8_4_8::_bzi{"hid_s"}) { my $__aav = $authlib8_4_8::_bzi{"hid_s"}; ($__aam, $__aap, $__aan, $__aaq, $__aar, $__aas, $__aat, $__aau) = authlib8_4_8::_bnl($__aav); } if ($__aap) { my $__aaw = "{'resp_num' => " . $__aaz . ", 'last_question' => '" . $__aba . "'"; if (exists $authlib8_4_8::_bzi{"hid_test_mode_settings"}) { $__aaw .= ", 'test_mode_settings' => '" . $authlib8_4_8::_bzi{"hid_test_mode_settings"} . "'"; } $__aaw .= ", 'test_mode' => '$__aar', 'previous' => '$__aau', 'checksum' => '$__aaq', 'study_name' => '$authlib8_4_8::_byz'"; $__aaw .= "}"; eval { my $__aax = "UPDATE `" . $authlib8_4_8::_bzb . "_url_restore` SET `fields` = ? WHERE `id` = " . $__aap; my $__aay = $authlib8_4_8::_byw->prepare(authlib8_4_8::_bmy($__aax, 0)); $__aay->execute($__aaw); $authlib8_4_8::_byw->commit(); }; if ($@) { authlib8_4_8::_bqa(299, "Database error.", "Cannot update url_restore table.", $@); } } } sub _bit { my ($__abe) = @_; my $__abb = "SELECT `timestamp`, `fields` FROM `" . $authlib8_4_8::_bzb . "_url_restore` WHERE `id` = " . int($__abe); my $__abc = 0; my $__abd = 0; eval { $__abc = $authlib8_4_8::_byw->selectrow_hashref(authlib8_4_8::_bmy($__abb, 0)); }; if ($@ || $__abc == 0) { authlib8_4_8::_bqa(300, "Database error.", "Database error. Cannot read url_restore table.", $@); } $__abd = eval($__abc->{"fields"}); if ($@) { authlib8_4_8::_bqa(301, "", "Evaluating url_restore data.", $@); } $__abd->{"timestamp"} = $__abc->{"timestamp"}; return $__abd; } sub _biu { my ($__abf, $__abg, $__abh) = @_; if(!exists $__abf->{$__abg}) { $__abf->{$__abg} = []; } push(@{$__abf->{$__abg}}, $__abh); } sub _biv { my ($__abn, $__abo) = @_; my $__abi = ""; my $__abj = 0; if ($authlib8_4_8::_bzy != 3) { if($authlib8_4_8::_bzy != 4) { if (exists($authlib8_4_8::_bzk->{'_da'})) { $__abj = $authlib8_4_8::_bzk->{'_da'}; if (($__abj->{'_aur'} eq "bottom") && ($__abn > 0)) { $__abi .= _bjw($__abj); } } } $__abi .= "
\n"; if (exists($authlib8_4_8::_bzk->{'_bfs'})) { $__abi .= $authlib8_4_8::_bzk->{'_bfs'}->{'_bft'}; } $__abi .= "\n
\n"; } if ($authlib8_4_8::_bzi{"hid_javascript"} == 1 && $authlib8_4_8::_bzy == 0) { $__abi .= "\n\n\n\n"; } my $__abm = 1; if($authlib8_4_8::_bzy == 4 || ($authlib8_4_8::_bzy == 5 && (exists $authlib8_4_8::_bzi{"hid_print_study_html"}))) { $__abm = 0; if ($__abn == @{$authlib8_4_8::_bzj}) { $__abm = 1; } else { $__abi .= "
\n"; } } if($__abm) { $__abi .= "\n"; if ($authlib8_4_8::_bzy == 0) { $__abi .= "\n"; } $__abi .= ""; $__abi .= "
\"Loading...\"
"; $__abi .= "\n"; $__abi .= "\n"; } $__abi = authlib8_4_8::_bqf($__abi, 0); return $__abi; } sub _biw { my ($__abw, $__abx) = @_; my $__abp = ""; my $__abq = $authlib8_4_8::_bzi{"hid_respnum"}; my $__abr = $authlib8_4_8::_bzk->{'_at'}; $__abp .= "\n
\n"; my $__abs = ""; if ($__abx) { my $__abt = "ciwweb" . $authlib8_4_8::_bwy . "?hid_skip_transition=1&"; my $__abu = ""; my $__abv = ""; foreach $__abu (sort keys(%authlib8_4_8::_bzi)) { $__abv = $authlib8_4_8::_bzi{$__abu}; if ($__abu eq "hid_respnum") { next; } elsif ($__abu eq "hid_pagenum") { $__abv = 1; } elsif ($__abu eq "hid_backup") { $__abv = $authlib8_4_8::_byz . "," . $__abq . "," . $authlib8_4_8::_bzi{"hid_checksum"} . "," . $__abw . "," . authlib8_4_8::JAVASCRIPT(); } $__abv = authlib8_4_8::_bru($__abv); $__abt .= $__abu . "=" . $__abv . "&"; } $__abs .= "window.open('" . $__abt . "','','"; $__abs .= _bjx($authlib8_4_8::_bzk->{'_do'}); $__abs .= "'); return false;"; } $__abp .= _bix($__abq, $__abw, $__abs); $__abp .= "
\n"; return $__abp; } sub _bix { my($__ach, $__aci, $__acj) = @_; my $__aby = ""; my $__abz = 0; my $__aca = ""; if ($authlib8_4_8::_bzi{"hid_javascript"}) { $__abz = 1; } if (exists $authlib8_4_8::_bzk->{'_aa'}) { if (authlib8_4_8::_boh($__ach, $__aci)) { $__aby .= "
\n"; if($authlib8_4_8::_bzy == 1) { $__aca = "TempWeb" . ($__aci - 1) . ".html"; $__aby .= "
"; } $__aby .= "\n"; if (exists $authlib8_4_8::_bzk->{'_ab'} && ($__abz || $authlib8_4_8::_bzy)) { if($authlib8_4_8::_bzy == 1) { $__aby .= ""; if($authlib8_4_8::_bzy == 1) { $__aby .= ""; } else { $__aby .= ""; } } else { my $__acb = ""; if (exists $authlib8_4_8::_bzk->{'_z'}) { $__acb = authlib8_4_8::_bqf($authlib8_4_8::_bzk->{'_z'}, 0); $__acb =~ s/"//g; } if (authlib8_4_8::_bpy($__acb) eq "") { $__acb = "<<"; } $__aby .= "\n"; if($authlib8_4_8::_bzy == 1) { $__aca = "TempWeb" . ($__aci + 1) . ".html"; $__aby .= ""; } my $__acd = 1; my $__ace = 0; if (exists $authlib8_4_8::_bzk->{'_ab'} && ($__abz || $authlib8_4_8::_bzy)) { my $__acf = ""; $__acd = 0; if ($__aci == 1 && $authlib8_4_8::_bzy == 0) { $__ace = 1; $__acd = 1; } if($authlib8_4_8::_bzy == 1) { $__acf .= "Submit this page to apply the Test Options set above.
"; $__acf .= ""; } if ($__ace) { $__aby .= "\n"; } else { $__aby .= $__acf; } } if ($__acd) { my $__acg = ""; if (exists $authlib8_4_8::_bzk->{'_y'}) { $__acg = authlib8_4_8::_bqf($authlib8_4_8::_bzk->{'_y'}, 0); $__acg =~ s/"//g; } if (authlib8_4_8::_bpy($__acg) eq "") { $__acg = ">>"; } if ($__ace) { $__aby .= "