#!C:/perl/bin/perl.exe use CGI::Carp qw(fatalsToBrowser); use CGI; $query = new CGI; # Randomize 60 items in the interest inventory, with 6 randomized items per page and present different questionnaires on different pages $pass= $query->param('pass'); $class= $query->param('class'); $R= $query->param('R'); $I= $query->param('I'); $A= $query->param('A'); $S= $query->param('S'); $E= $query->param('E'); $C= $query->param('C'); $a0= $query->param('a0'); $a1= $query->param('a1'); $a2= $query->param('a2'); $a3= $query->param('a3'); $a4= $query->param('a4'); $a5= $query->param('a5'); $b0= $query->param('b0'); $b1= $query->param('b1'); $b2= $query->param('b2'); $b3= $query->param('b3'); $b4= $query->param('b4'); $b5= $query->param('b5'); $c0= $query->param('c0'); $c1= $query->param('c1'); $c2= $query->param('c2'); $c3= $query->param('c3'); $c4= $query->param('c4'); $c5= $query->param('c5'); $d0= $query->param('d0'); $d1= $query->param('d1'); $d2= $query->param('d2'); $d3= $query->param('d3'); $d4= $query->param('d4'); $d5= $query->param('d5'); $e0= $query->param('e0'); $e1= $query->param('e1'); $e2= $query->param('e2'); $e3= $query->param('e3'); $e4= $query->param('e4'); $e5= $query->param('e5'); $f0= $query->param('f0'); $f1= $query->param('f1'); $f2= $query->param('f2'); $f3= $query->param('f3'); $f4= $query->param('f4'); $f5= $query->param('f5'); $g0= $query->param('g0'); $g1= $query->param('g1'); $g2= $query->param('g2'); $g3= $query->param('g3'); $g4= $query->param('g4'); $g5= $query->param('g5'); $h0= $query->param('h0'); $h1= $query->param('h1'); $h2= $query->param('h2'); $h3= $query->param('h3'); $h4= $query->param('h4'); $h5= $query->param('h5'); $j0= $query->param('j0'); $j1= $query->param('j1'); $j2= $query->param('j2'); $j3= $query->param('j3'); $j4= $query->param('j4'); $j5= $query->param('j5'); $k0= $query->param('k0'); $k1= $query->param('k1'); $k2= $query->param('k2'); $k3= $query->param('k3'); $k4= $query->param('k4'); $k5= $query->param('k5'); @questIndex= $query->param('questIndex'); # Information about the questionnaires $aa0 = "Build kitchen cabinets"; $aa1 = "Study ways to reduce water pollution"; $aa2 = "Write books or plays"; $aa3 = "Teach an individual an exercise routine"; $aa4 = "Buy and sell stocks and bonds"; $aa5 = "Develop a spreadsheet using computer software"; $bb0= "Lay brick or tile"; $bb1= "Conduct chemical experiments"; $bb2= "Play a musical instrument"; $bb3= "Help people with personal or emotional problems"; $bb4= "Manage a retail store"; $bb5= "Proofread records or forms"; $cc0= "Monitor a machine on an assembly line"; $cc1= "Study the movement of planets"; $cc2= "Compose or arrange music"; $cc3= "Teach children how to read"; $cc4= "Operate a beauty salon or barber shop"; $cc5= "Load computer software into a large computer network"; $dd0= "Repair household appliances"; $dd1= "Examine blood samples using a microscope"; $dd2= "Draw pictures"; $dd3= "Give career guidance to people"; $dd4= "Manage a department within a large company"; $dd5= "Operate a calculator"; $ee0= "Raise fish in a fish hatchery"; $ee1= "Investigate the cause of a fire"; $ee2= "Create special effects for movies"; $ee3= "Perform rehabilitation therapy"; $ee4= "Start your own business"; $ee5= "Keep shipping and receiving records"; $ff0= "Assemble electronic parts"; $ff1= "Develop a way to better predict the weather"; $ff2= "Paint sets for plays"; $ff3= "Do volunteer work at a non-profit organization"; $ff4= "Negotiate business contracts"; $ff5= "Calculate the wages of employees"; $gg0= "Drive a truck to deliver packages to offices and homes"; $gg1= "Work in a biology lab"; $gg2= "Design sets for plays"; $gg3= "Teach sign language to people with hearing disabilities"; $gg4= "Represent a client in a lawsuit"; $gg5= "Inventory supplies using a hand-held computer"; $hh0= "Test the quality of parts before shipment"; $hh1= "Invent a replacement for sugar"; $hh2= "Write scripts for movies or television shows"; $hh3= "Help conduct a group therapy session"; $hh4= "Market a new line of clothing"; $hh5= "Record rent payments"; $jj0= "Repair and install locks"; $jj1= "Study weather conditions"; $jj2= "Perform jazz or tap dance"; $jj3= "Take care of children at a day-care center"; $jj4= "Sell merchandise at a department store"; $jj5= "Keep inventory records"; $kk0= "Set up and operate machines to make products"; $kk1= "Do laboratory tests to identify diseases"; $kk2= "Edit movies"; $kk3= "Teach a high-school class"; $kk4= "Manage a clothing store"; $kk5= "Stamp/sort/distribute mail for an organization"; @avariableNames = (a0,a1,a2,a3,a4,a5); @bvariableNames = (b0,b1,b2,b3,b4,b5); @cvariableNames = (c0,c1,c2,c3,c4,c5); @dvariableNames = (d0,d1,d2,d3,d4,d5); @evariableNames = (e0,e1,e2,e3,e4,e5); @fvariableNames = (f0,f1,f2,f3,f4,f5); @gvariableNames = (g0,g1,g2,g3,g4,g5); @hvariableNames = (h0,h1,h2,h3,h4,h5); @jvariableNames = (j0,j1,j2,j3,j4,j5); @kvariableNames = (k0,k1,k2,k3,k4,k5); @aaitems = ($aa0,$aa1,$aa2,$aa3,$aa4,$aa5); @bbitems = ($bb0,$bb1,$bb2,$bb3,$bb4,$bb5); @ccitems = ($cc0,$cc1,$cc2,$cc3,$cc4,$cc5); @dditems = ($dd0,$dd1,$dd2,$dd3,$dd4,$dd5); @eeitems = ($ee0,$ee1,$ee2,$ee3,$ee4,$ee5); @ffitems = ($ff0,$ff1,$ff2,$ff3,$ff4,$ff5); @ggitems = ($gg0,$gg1,$gg2,$gg3,$gg4,$gg5); @hhitems = ($hh0,$hh1,$hh2,$hh3,$hh4,$hh5); @jjitems = ($jj0,$jj1,$jj2,$jj3,$jj4,$jj5); @kkitems = ($kk0,$kk1,$kk2,$kk3,$kk4,$kk5); if($pass < 1){ $pass = 0; } print $query->header; print $query->start_html(-title=>'Randomized Interest Inventory'); print ""; if($pass == 12){ # get individual interest type from the subroutine in the end $class= &class ($R,$I,$A,$S,$E,$C); # provide customized feedback to inventory taker print "
"; print "Your mean scores for six interest areas from the present inventory are: R: $R (Realistic) I: $I (Investigative) A: $A (Artistic) S: $S (Social) E: $E (Enterprising) C: $C (Conventional) "; print "According to your scores, your primary interest area is $class. You can check the results table on the right for a review of other participants' interest areas. "; print "What Does Your Primary Interest Area Mean? You can think of occupational interests as your liking or preference for certain work activities. The Interest Profiler measures interests in each of the six Interest Areas described below. Read over the definitions of your Primary and Secondary Interest Areas to get a better understanding of your occupational interests. "; print "R (Realistic): People with Realistic interests like work activities that include practical, hands-on problems and solutions. They enjoy dealing with plants, animals, and real-world materials, like wood, tools, and machinery. They enjoy outside work. Often people with Realistic interests do not like occupations that mainly involve doing paperwork or working closely with others. "; print "I (Investigative): People with Investigative interests like work activities that have to do with ideas and thinking more than with physical activity. They like to search for facts and figure out problems mentally rather than to persuade or lead people. "; print "A (Artistic): People with Artistic interests like work activities that deal with the artistic side of things, such as forms, designs, and patterns. They like selfexpression in their work. They prefer settings where work can be done without following a clear set of rules. "; print "S (Social): People with Social interests like work activities that assist others and promote learning and personal development. They prefer to communicate more than to work with objects, machines, or data. They like to teach, to give advice, to help, or otherwise be of service to people. "; print "E (Enterprising): People with Enterprising interests like work activities that have to do with starting up and carrying out projects, especially business ventures. They like persuading and leading people and making decisions. They like taking risks for profit. These people prefer action rather than thought. "; print "C (Conventional): People with Conventional interests like work activities that follow set procedures and routines. They prefer working with data and detail more than with ideas. They prefer work in which there are precise standards rather than work in which you have to judge things by yourself. These people like working where the lines of authority are clear. "; print "Undifferentiated: Your scores indicate that you are equally interested in more thatn 3 areas. You may want to think over your vocational interests or seek help from a career counselor. "; print " |