#!/usr/bin/perl -w
use CGI qw(:standard -debug);
use CGI::Pretty ":standard";
use CGI::Carp qw(fatalsToBrowser);

########### Credits #################
# Script written by R. Todd Vandenbark
#####################################

#----------- define variables ----------
my $orgzn;          # input from previous form
my $orgname;        # Greek organization name
my $contfn;         # contact first name
my $contln;         # contact last name
my $cphone;         # contact phone
my $contem;         # contact email
my $outfile='../org.txt';  # file containing org info
my @orglist="";
my $key;

# ---- process input -----
$orgzn = param("orgnzn");  chomp $orgzn;
($orgname,$contfn,$contln,$cphone,$contem) = split (/:/, $orgzn);


# ----- create editing form -------
$method = 'post';
$action = 'updateorg.cgi';
$encoding = 'application/x-www-form-urlencoded';
my $css = '<link rel="stylesheet" ' .
    'type="text/css" href="../studylog3.css" />';

print header();
print start_html(-title => $title,
                      -head => $css,
                      -class => 'oneColFixCtrHdr');
print '<div id="container"><div id="header">';
print h1("Update organization information");
print '</div> <!-- end #header -->';
print '<div id="mainContent">';
print p("Please edit information, then click the UPDATE button.");

# ---- form -----
print startform($method,$action,$encoding);

print <<EOF;
   <table><tr>
   <td class="textRight"><label for="orgName">Organization name: </label></td>
   <td class="textLeft"><input type="text" name="orgName" id="orgName" />
    $orgname</td></tr>
   <tr><td class="textRight">
    <label for="contactFirstName">Contact's first name: </label>
    </td>
    <td class="textLeft"><input type="text" name="contactFirstName" id="contactFirstName" />
    $contfn </td></tr>
     <tr>
     <td class="textRight"><label for="contactLastName">Contact's last name:
     </label></td>
     <td class="textLeft">
     <input type="text" name="contactLastName" id="contactLastName" />
     $contln</td></tr>
     <tr><td class="textRight"><span class="textLeft">
            <label for="cphone">Contact's phone:</label>
          </span></td>
          <td class="textLeft"><input type="text" name="cphone" id="cphone" />
         $contph</td>
        </tr>
        <tr>
          <td class="textRight"><label for="contactEmail">Contact's email address:
          </label></td>
          <td class="textLeft"><input type="text" name="contactEmail" id="contactEmail" />
          $contem</td>
        </tr> 
        <tr>
          <td class="textRight"><input name="reset" type="reset" value="Clear form" />&nbsp;</td>
          <td class="textLeft"><input name="add" type="submit" value="Update" />&nbsp;</td>
        </tr>
        </table>
EOF
    
print end_form;
print '<!-- end #mainContent --></div>'.
    '<div id="footer">'.
    '<p>Created by Michael Pierce, Todd Vandenbark, Crystal White'.
    '<br />S517: Web Programming <br />'.
     'March 28th, 2009 <br />'.
    '<a href="http://studylog.firesidelibrarian.com/contact.htm">'.
    'Contact Us</a></p>'.
    '<!-- end #footer --></div>'.
    '<!-- end #container --></div>';
          
         
        
print end_html