<& form_components/header.cmp, %ARGS &> <%perl> my $desc = $ARGS{desc} ? "" : "asc"; my $sortby = $ARGS{sortby} || "p.lastname"; my $filter = $ARGS{filterby} ? "and g.group_id = " . $ARGS{filterby} : ""; my %headings = ( state => "Online", 'p.firstname' => "First Name", 'p.lastname' => "Last Name", 'p.company' => "Company", 'p.title' => "Title", 'p.homephone' => "Home Phone", 'p.workphone' => "Work Phone", 'p.email' => "Email", 'groupname' => "Group" ); my @order = qw(state p.firstname p.lastname p.company p.title p.workphone p.email groupname); % # evil javascript for onChange on the drop menu <%perl> my %user = %{$ARGS{userinfo}}; # Admins get to see all records. #my $admin; #if ($ARGS{userinfo}{f_admin}) { $admin = "or 1 = 1"; } my $sth = $dbh->prepare(<execute($ARGS{companyinfo}{subscriber_id}, $ARGS{userinfo}{id}, $ARGS{userinfo}{f_admin}); my $oncolor = "green"; my $offcolor = "red"; my $onimg = "/images/icons/online.gif"; my $offimg = "/images/icons/offline.gif"; my $sth2 = $dbh->prepare(<execute();
To send an instant message, click on a contact's online icon. To send one message to multiple contacts, check off the contacts you want. Type your message in the text box below and click send.

Customize the display of your directory by clicking the down arrow on "Show Group:" and select your preference. You can sort your display by clicking on the column heading you would like to sort by. Click the column heading again to change the order of ascendance.


% foreach (@order) { % } % if ($user{f_admin}) { % } % my $col = 0; # keep an index for checkboxes % while (defined(my $hash = $sth->fetchrow_hashref())) { % my %data = %{$hash}; % my $class = ($data{f_private})?"tablec2l":"tablec1l"; % $col++; % if ($data{state} eq "Online") { # they are online % } else { # or they aren't % } # end if % if ($user{f_admin}) { % } % } # end while
Show group:
 <% $headings{$_}%><% ($ARGS{sortby} eq $_) ? " " . (($desc eq "desc") ? "^ ": "v") : "" %>EditMore Info
<% $data{firstname} %>  <% $data{lastname} %>  <% $data{company} %>  <% $data{title} %>  <% $data{workphone} %>  <% $data{email} %>  <% $data{groupname} %> EditMore
Text Box for Batch Messages
<& form_components/footer.cmp &>