Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
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 an uproarious good time at the Monastery: (6)
As of 2024-04-19 04:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found