% my $dbi = $nvar{dbi}; %>
| 姓 | <% print $cv->{family_name} %> |
| 名 | <% print $cv->{first_name} %> |
| 姓(カナ) | <% print $cv->{family_name_kana} %> |
| 名(カナ) | <% print $cv->{first_name_kana} %> |
| 性別 | <% print $dbi->{code}{sex}{ $cv->{sex} } %> |
| 生年月日 | <% print $cv->{birth} %> |
| 郵便番号 | <% print $cv->{zip} %> |
| 現住所 | <% print $cv->{address} %> |
| 電話番号 | <% print $cv->{tel} %> |
| 写真 | <%
if($cv->{photo}) {
my ($imguri, $imgpath) = $dbi->fileinfo($var{data}{cv}{photo});
my $size = int((stat($imgpath))[7] / 1024);
my $tnuri = $dbi->fileinfo($var{data}{cv}{photo_s}); %>
画像あり
( <% print $size %> kBytes ) |