Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

mcogan1966's scratchpad

by mcogan1966 (Monk)
on Jul 07, 2004 at 12:28 UTC ( [id://372359]=scratchpad: print w/replies, xml ) Need Help??

<html> <head> <title>Columbus North high School Class of 1985 20 year Reunion</title +> <link href="http://192.168.0.209/css_main.css" rel="stylesheet" ty +pe="text/css"> </head> <body> <table border="0" width="600"> <tr> <td id="welcome" colspan="2"> <img border="0" src="images/ColumbusNorthHighSchoolCla +ssof8520thYearReunionSmall.gif" alt="Columbus North High School Class + of 85 Reunion"> </td> </tr> <tr> <td id="sect_nav" align="right" colspan="2"> <!--div id="sect_nav" --> <ul> <li class="inline"><a href="login.html">Login< +/a> </li> <li class="inline"><img src="images/hor_list_s +ep.gif"></li> <li class="inline"><a href="FAQ.html">FAQ</a>< +/li> <li class="inline"><img src="images/hor_list_s +ep.gif"></li> <li class="inline"><a href="information.html"> +Information</a> </li> <li class="inline"><img src="images/hor_list_s +ep.gif"></li> <li class="inline"><a href="news.html">News</a +> </li> <li class="inline"><img src="images/hor_list_s +ep.gif"></li> <li class="inline"><a href="classmates.html">C +lassmates</a> </li> <li class="inline"><img src="images/hor_list_s +ep.gif"></li> <li class="inline"><a href="discounts.html">Di +scounts</a></li> <li class="inline"><img src="images/hor_list_s +ep.gif"></li> <li class="last"><a href="cookies.html">Cookie +s</a> </li> </ul> <!-- /div --> </td> </tr> <tr> <td colspan="2"> <!-- span id="news_box" --> <table class="news_box" border="1"> <caption>News Updates</caption> <tr> <td class="news_item_title">Help Finding Class +mates</td> </tr><tr> <td class="news_item">We need your help locati +ng classmates. Please browse through the list of people we are tryin +g to locate. If you know how to locate someone, click on their name +and let us know how to contact them. Better yet, please contact them + and refer them to us (this web site, or the phone number listed belo +w)</td> </tr> <tr> <td class="news_item_title">Holiday Inn Discou +nts</td> </tr><tr> <td class="news_item">If you are travelling fr +om out of town, or just need a place to stay, there is a discount at +the Holiday Inn. Please ask for the Columbus North High School disco +unt.</td> </tr> </table> <!-- /span --> </td> </tr> <tr> <td colspan="2"> <!-- /div --><!-- end main --> <div id="copyright"> <p>Owned By: <a href="mailto:bill.linder@linderhome.com">B +ill Linder</a> last updated: <!--#config timefmt="%d %b %y" --><!--#echo var="last_modi +fied" --></p> </div> </td> </tr> </table> </body> </html> <!-- <tr> <td>$First</td><td>$Middle</td><td>$Maiden</td><td>$Last</td><td>( +$SpouseName)</td></tr> <tr> <td></td><td>$Address1</td> <td>$Phone1</td><td>$Email</td></t +r> <tr> <td></td><td>$Address2</td> <td>$Phone2</td></tr> <tr> <td></td><td>$City</td><td>$Phone3</td></tr> <tr> <td></td><td>$State</td><td>$Phone4</td></tr> <tr> <td></td><td>$Zip</td><td>$TimeToCall</td></tr> <tr><td>$Attending</td><td>$Contacted</td><td>$Helping</td></tr> <tr> <td></td><td>$ParentsFirst</td><td>$ParentsLast</td></tr> <tr> <td></td><td>$ParentsAddress</td><td>$ParentsPhone</td></tr> <tr> <td></td><td>$ParentsContacted</td></tr> <tr> <td></td><td>$DadFirst</td></tr> <tr> <td></td><td>$DadLast</td></tr> <tr> <td></td><td>$DadPhone</td></tr> <tr> <td></td><td>$DadContacted</td></tr> <tr> <td></td><td>$MotherContacted</td></tr> _EOL_ } } sub setPerson { ## Starting a new person, only add their name. Phones and address +es are added seperately. my $firstname = shift; my $middlename = shift; my $lastname = shift; my $maidenname = shift; $person{'Addresses'}[0]{'street1'}; $person{'Addresses'}[0]{'street2'}; $person{'Addresses'}[0]{'street3'}; $person{'Addresses'}[0]{'city'}; $person{'Addresses'}[0]{'state'}; $person{'Addresses'}[0]{'zip'}; $person{'Addresses'}[0]{'type'}; ## Work, home, second, etc. $person{'poc'}[0]{'who'} = $person2; $person{'poc'}[0]{'type'} = '';## One of Family, Friend, Spouse, E +x-Spouse, Military,... $person{'poc'}[0]{'preferred'} = 0; ## Order of contact preference $person{'poc'}[1]{'who'} = $person3; $person{'poc'}[1]{'type'} = '';## One of Family, Friend, Spouse, E +x-Spouse, Military,... $person{'poc'}[1]{'preferred'} = 0; ## Order of contact preference } sub page_news { return <<_EOT_; _EOT_ } sub page_bottom { my $page_bottom; $page_bottom = ''; } sub table_studentsortoptions { my $currentoption = shift; return <<_HTML_; <tr> <td colwidth="4" rowspan="4"> Sort List by:<br> <select name="sortby_first"> <option>First Name <option>Last Name <option>Maiden Name </td> <td rwospan="4"> Filter List by:<br> <input type="checkbox" name="Confirmed">Status + Confirmed<br> <input type="checkbox" name="NoReply">Message/ +EMail left, no response<br> <input type="checkbox" name="NoContact">Not co +ntacted<br> <input type="text" name="partialName">Search f +or this in a name </td> <td> <input type="checkbox" name="hide" value="1">H +ide selected<br> <input type="submit" name="resort" value="Reso +rt"> </td> </tr> <td> </td> </tr> _HTML_ } sub studentlist { my $table_studentList; my ($numberattending,$paidamount,$phone_parents,$recnum,$name_firs +t,$name_last,$name_maiden,$name_middle,$status,$phone_home,$phone_cel +l,$phone_work,$email,$phone_parents_home,$poc,$active); my $student; foreach $student (@Students) { next unless ($student->{'NAME'}{'FIRST'}); $table_studentList .= table_studentcell( $student); } return $table_studentList; } ## ============================= All page sections ================== +============================== ## ============================= All page bits ====================== +============================== sub page_people { my $page_people; } sub table_studentcell { my $table_studentrow; return $table_studentrow; } -->
Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (4)
As of 2024-12-10 15:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Which IDE have you been most impressed by?













    Results (56 votes). Check out past polls.