~; if ($form_data{'id_no'} eq "") { print qq~ This information is completely anonymous, your ID number is required by this program for statistical purposes only. Your information will NEVER be released to the instructor or administration.
\n~; } e"neric_footer; exit; } # # all necessary information here, put it in the correct format else { &fix_data; } # menu choices, states which form to load if ($menu_choice eq "Shoot") { #shooting applet e"t_db_data; &Shoot_form; } elsif ($menu_choice eq "Overview") { #forms e"t_db_data; &overview_form; } elsif ($menu_choice eq "Instructor") { &instructor_form; } elsif ($menu_choice eq "Work/Tests") { &hw_form; } elsif ($menu_choice eq "Class") { &class_form; } elsif ($menu_choice eq "Text") { &text_form; } elsif ($menu_choice eq "Finish") { &end_form; } elsif ($menu_choice eq "Submit Data") { &submit_it; } else { print "Eeeek, you shouldn't be able to see this!!!"; } ####################################################################### # Overview Form # ####################################################################### sub Shoot_form { print qq~
This applet is designed to give weekly feedback about an instructor. All results due to this are compiled together and will be presented as a sum total of all entries.
Click on "rotten fruit" or "gold star" to show whether you are pleased with your instructor or not. Then, click on the instructor''s photo as many times are you feel you need to. When you are done, click on "done" and your anonymous results will be added to the rest.
To leave more specific information, explaining why you feel the way you do, feel free to click any checkboxes that match your feeling.
~; } ####################################################################### # Overview Form # ####################################################################### # # This first sheet will accomplish 2 things # 1) goes out and grabs information from the database # 2) pushes forth a form to fill out. Should get info behind # scenes but will need to use temp files -- ugh! # sub overview_form { e"neric_header("Overview of $class_name"); print qq~

| SELF | |
| What was your ability in the subject before the class? | |
| What was your ability in subject after the course? | |
| How motivated were you to learn? | |
| How much did you learn? | |
| Do you feel you learned as much as you could have? | |
| How much did you enjoy the class? | |
| How much time did you spend on it per week? | hours |
INSTRUCTOR | |
| Rate the instructor''s overall teaching ability | |
| Rate their knowledge of the subject matter | |
| Given the choice, would you take another class from this instructor? | |
CLASS | |
| Were the prerequisites for this class important to do well? | |
| Would you suggest that this class be kept/added as a required class? | |
| Rate the room you took the class in. | |
BOOK | |
| How many textbooks did you have for the class? | |
| What was the overall quality of your textbook? | |

| How well does $prof_name ... | |
|---|---|
| Show respect and concern for students? | |
| Encourage student feedback/listen? | |
| Pay attention to what helps you learn? | |
| Able to answer the students'' questions? | |
| Provide a good pace for the class? | |
| Flexibile in changing schedule to meet student''s needs? | |
| Able to make material interesting? | |
| Successful in getting you to think? | |
| Organized? | |
| Grade fairly and consistently? | |
| Available to students? | |
| Stay on track/focused class? | |
| Encourage student interactions? | |
| Have appropriate assumptions of your pre-existing knowledge? | |
| Have appropriate expectations? | |
| Let you know his/her expectations? | |
| Have clear verbal presentation? | |
| Have clear handwriting? | |

| Handouts | |
| Were syllabus and schedule available? | |
| Were they helpful | |
| What was the overall quality/legibility of handouts? | |
| How accessible were they? | |
Homework | |
| How many assignments were there? | |
| About how much time was spent on them weekly? | hours |
| How relevant were they to lecture? | |
| What was the average difficulty level? | |
| What was the percentage of busy to helpful work? | |
Tests | |
| How many were there? | |
| How relevant were they to lecture? | |
| How relevant were they to knowledge of subject matter? | |
| What was the average difficulty level? | |
| What was the average length? | |
| What was the level of detail? | |

| Why did you take this class? | |
| How helpful were the recitation/lab/etc., | |
| How practical was this class? | |
| How organized did the class itself seem? | |
| Was this a UNITE (televised) class? | |
|
Would you recommend this class to another (independent of instructor)? |

| Was the book truly helpful? | ~; local $x = $i*12+1; print qq~ |
| How well written was it? | ~; $x++; print qq~ |
| How correct were the materials and problems? | ~; $x++; print qq~ |
| How substantial was this book | ~; $x++; print qq~ |
| Rate the clarity of the text | ~; $x++; print qq~ |
| How was the structure and organization? | ~; $x++; print qq~ |
| Was the speed of the presentation of the materials appropriate? | ~; $x++; print qq~ |
|
What was the interest/fun level of it (did you stay awake)? | ~; $x++; print qq~ |
| Was the cost appropriate? | ~; $x++; print qq~ |
| Was it available when you needed to buy it? | ~; $x++; print qq~ |
| Do you plan on keeping this book? | ~; $x++; print qq~ |
| Would you recommend this book to another? | ~; $x++; print qq~ |

NOTE:The calculated grade for your professor is (Please change it if it is incorrect).
The calculated overall grade for the class itself is (Please change it if it is incorrect).
In addition, please add any comments below on ways to improve this
instructor evaluation process. Any comments you make will go solely to
the developers of this program, to the instructor.
Please send email to $support_email with any problems, corrections or questions you may have.
~; } ####################################################################### # Generic Header # ####################################################################### sub generic_header { local ($title) = @_; print qq~