[- $args = shift @param; &EMU::debug("contact editor"); $nick = $EMU::query->param('orig'); foreach $d (split(':', $EMU::userdb{"addresses.$nick"})) { $d =~ s/\"/\"/g; push(@data, $d); } foreach $n (grep {/^addresses\./} keys %EMU::userdb) { $n =~ s/^addresses\.//; push(@nicknames, lc($n)); } $orig = $nick; $orig =~ s/'/\\'/g; # the first 2 entries are fullname and email, so the addrbook_* entries # really start at $data[2], so when accessing it, we must add 1 -] [+ $EMU::c{publisher_name} +] - Contact [# Open Header #] [- &Execute("$args->{DOCROOT}/header.html", $args) -] [# Close Header #]
 
[# Open Toolbar #] [- &Execute("$args->{DOCROOT}/toolbar.html", $args) -] [# Close Toolbar #]
[$ if ($nick) $]
Editing Contact
[$ else $]
Adding New Contact
[$ endif $]
[$ if (&EMU::get_status()) $]
[+ &EMU::get_status() +]
 
[$ endif $] [- ($safenick = $nick) =~ s/'/\'/g; -]
 General Information
Full Name: Home Phone:
Nickname: Business Phone:
** Email Address 1: Send an email to this address Cell Phone:
Email 2: Send an email to this address Fax:
Email 3: Send an email to this address Website:
 Business Address  Home Address
Company: Street Address 1:
Job Title: Street Address 2:
Street Address 1: City:
Street Address 2: State / Province:
City: Postal Code:
State / Province: Country:
Postal Code: ** This is the default email address referenced when the contact "nickname" is used on the Compose page.
Red labels denote required fields.
Country:
Notes: