[- $args = shift @param; my @data = &EMU::get_addrs_array(); @addrnums = @{ $data[0] }; %addrdata = %{ $data[1] }; $theme = $args->{theme}; foreach $a (@addrnums) { $nick = $addrdata{"n$a"}; push(@nicknames, $nick); } -] [+ $EMU::c{publisher_name} +] - Addressbook [# Open Header #] [- &Execute("$args->{DOCROOT}/header.html", $args) -] [# Close Header #]
 
[# Open Toolbar #] [- &Execute("$args->{DOCROOT}/toolbar.html", $args) -] [# Close Toolbar #]
[$ if (&EMU::get_var('passed') eq 'address') $] [$endif $]
Addressbook
[$ if (@addrnums) $] [$ endif $] [$ if ($EMU::c{ldap_search_host}) $] [$ endif $]
[$ if (!@addrnums) $]
 
Your Addressbook is empty.

 
Add Contact

 
[$ else $] [- $i = 0; -] [$ foreach $a (@addrnums) $] [- # A few specifics $nick = $addrdata{"n$a"} || '[Blank]'; ($safenick = $nick) =~ s/'/\'/g; $email = $addrdata{"e$a"}; $email =~ s/<(.*?)>/$1/; $full = $addrdata{"f$a"}; $email =~ s!\\'!'!g; -] [- $i++; -] [$ endforeach $]
Nickname Name Email
[+ $nick +] [+ $full +] [+ $email +]
[$ endif $]
[$ if (@addrnums) $] [$ endif $] [$ if ($EMU::c{ldap_search_host}) $] [$ endif $]