<% 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 )
<% } else { print "画像なし"; } %>