% 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 ) |