привожу часть кода
| Код |
sub show_list_user{
print "Cписок <a href=./contact_add.cgi>Добавляем контакт</a><hr><br>";
my $row;
my @list_group=("начальство","заместители","бренд-менеджеры","техники","менеджеры","другое");
my $item;
foreach $item (@list_group) {
get_person_list($item);
}
}
sub get_person_list{
my $item=shift;
my $row;
my $stmt = (qq {SELECT * FROM persons WHERE corp_position = '$item' ORDER BY last_name});
$sth = $dbh->prepare($stmt);
$sth -> execute ();
$sth ->finish();
if ($sth -> execute ()!= 0) {
print "<h3><font color=red>$item</font></h3>";
print "<table border=0 width=100% cellpadding=3 cellspacing=3><tr bgcolor=lightblue>
<td bgcolor=#990000 width=1> </td>
<td width=20%>ФИО</td>
<td><IMG SRC=/images/spacer.gif border=0 width=15 height=1></td>
<td width=10%>Компания</td>
<td width=10%>Телефон</td>
<td width=10%>Профессия</td>
<td width=30%>Вкусы</td>
<td width=20%>Связи</td><td> </td>
</tr>";
while ($row = $sth->fetchrow_hashref())
{
my ($day,$month,$year,$email,$icq);
# даты
if (($day=$row->{b_day}) eq "день") {$day="";} else{$day=$day;}
if (($month=$row->{b_month}) eq "месяц"){$month="";} else{$month=$month;}
if (($year=$row->{b_year}) eq "год"){$year=""} else{$year=$year;}
my $data=qq(<div class=time>$day $month $year</div>);
# редактировать - удалить
my $edit_url = sprintf ("%s?choice=edit;id=%d", url (), $row->{id});
my $delete_url = sprintf ("%s?choice=delete;id=%d", url (), $row->{id});
# почта
if ($email=$row->{e_mail}){$email=qq(<a href=mailto:$row->{e_mail}><IMG SRC=/images/email.gif alt=$row->{e_mail} title=$row->{e_mail} border=0></a>);} else{$email="";}
if ($icq=$row->{icq}){$icq=qq(<IMG SRC=/images/icq.gif alt=$row->{icq} title=$row->{icq} border=0>);} else{$icq="";}
print "<tr bgcolor=#E1E1E1>
<td>",checkbox(),"</td>
<td>$data $row->{last_name}<br>$row->{first_name} $row->{sub_last_name}</td>
<td align=center>$email<br><br>$icq</td>
<td>$row->{company}</td>
<td>$row->{phone}<br>$row->{phone_mob}</td>
<td>$row->{proff_list}</td>
<td>$row->{taste}</td><td>$row->{communication}</td>
<td nowrap>", a ({-href => $edit_url}, "<IMG SRC=/images/edit.gif alt=редактировать title=редактировать border=0 hspace=3>"),
a ({-href => $delete_url}, "<IMG SRC=/images/del.gif alt=удалить title=удалить border=0 hspace=3>"),"</td></tr>";
}
print "</table>";
print "<br>";
}
else {print " список <i>$item</i> пуст <br>";}
}
|
|
