<% push(@$column, ':family_name', ':family_name_kana', ':first_name',
':first_name_kana', ':sex', ':birth'); %>
(*) 姓 |
<% print $query->textfield(':family_name',
$cv->{family_name}, 60); %> |
(*) 姓(カナ) |
<% print $query->textfield(':family_name_kana',
$cv->{family_name_kana}, 60); %> |
(*) 名 |
<% print $query->textfield(':first_name',
$cv->{first_name}, 60); %> |
(*) 名(カナ) |
<% print $query->textfield(':first_name_kana',
$cv->{first_name_kana}, 60); %> |
(*) 性別 |
<% print $query->popup_menu(':sex', $dbi->{misc}{sex},
$cv->{sex}, $dbi->{code}{sex}) %> |
(*) 生年月日 |
<% my ($by, $bm, $bd) = split('/', $cv->{birth});
$bm =~ s/^0//; $bd =~ s/^0//;
print $query->popup_menu(':birth?0',
[ '', (1881 .. (localtime)[5]+1900) ], $by), '年';
print $query->popup_menu(':birth?1',
[ '', (1 .. 12) ], $bm), '月';
print $query->popup_menu(':birth?2',
[ '', (1 .. 31) ], $bd), '日'; %> |
<% push(@$column, ':zip', ':address', ':tel', ':photo'); %>
郵便番号 |
<% print $query->textfield(':zip', $cv->{zip}, 20); %> |
現住所 |
<% print $query->textfield(':address', $cv->{address}, 60); %> |
電話番号 |
<% print $query->textfield(':tel', $cv->{tel}, 40); %> |
写真 |
<% DBIPgConf::uploadform($dbi, 'photo', $cv,
$var{errwarn}{error}{cv}[0], $var{restore}{cv}[0]);
%> |