| 記事No | ： 15706 |
| 投稿日 | ： 2017/12/15(Fri) 22:31:33 |
| タイトル | ： [Web Mart]生年月日を追加したい |
| ID情報 | ： diktsm |
| 投稿者 | ： TUSIMA |
| URL | ： http://www.applet1181.jp/furusatobin/tamuracidre/index.html |
はじめまして。いつも「Web Mart」を利用させていただいております。ありがとうございます。
さて、現在運営しているサイトで、
注文者情報入力時に「ご注文者の生年月日」を
入力する欄を設けるようにと
税務署から指導を受けてしまい、
どうしたらいいものか困っております。
この場合、改造作業（有償）が必要になるのでしょうか。
もしくは、どこを修正したらいいのかご教示ください。
よろしくお願いいたします。
| 記事No | ： 15707 |
| 投稿日 | ： 2017/12/19(Tue) 19:13:43 |
| タイトル | ： Re: [Web Mart]生年月日を追加したい |
| ID情報 | ： hirayama |
| 投稿者 | ： hirayama |
けっこう変更か所が多いので、有償で改造してもらうがいいのかもしれませんが、
どういう修正が必要かまとめてみました。
まず、tmplディレクトリ内テンプレートファイル「addr.html」「conf.html」「reply.txt」「order.txt」を以下のように修正します。
注文者フォームのテンプレート「addr.html」は
ふりがな入力フォームの下あたりに
</tr><tr>
<td class="w-key"><div class="req">生年月日</div></td>
<td><input type="text" name="birth" size="30" value="!c_birth!" class="picker" />
(例 : 1970/01/01)</td>
のような感じで生年月日入力フォームを追加します。その下の配送先のフォームにも
</tr><tr>
<td class="w-key"><div class="req">生年月日</span></td>
<td><input type="text" name="birth2" size="30" value="!c_birth2!" class="picker" />
(例 : 1970/01/01)</td>
のような感じで追加します。
内容確認ページのテンプレート「conf.html」にも注文者のふりがな下あたりに
</tr><tr>
<td class="w-key">生年月日</td>
<td>!c_birth!</td>
配送先のふりがなの下にも
</tr><tr>
<td class="w-key">生年月日</td>
<td>!c_birth2!</td>
のように追加します。
メール送信用テンプレートは
注文者返信用の「reply.txt」、オーダーメール用の「order.txt」それぞれの
注文者のふりがなの下に
生年月日 : !birth!
配送先のふりがなの下に
生年月日 : !birth2!
を追加します。テンプレートの修正は以上です。
CGIファイルの修正はorder.cgiだけです。主に追加したbirth、birth2というパラメータも処理するための修正です。
58行目あたり
# 復号化
($c{name},$c{kana},$c{email},$c{zip},$c{pref},$c{addr},$c{tel},$c{fax},$c{name2},$c{kana2},$c{zip2},$c{pref2},$c{addr2},$c{tel2},$c{fax2},$c{deliv}) = decrypt_cust(@cust);
↓
# 復号化
($c{name},$c{kana},$c{birth},$c{email},$c{zip},$c{pref},$c{addr},$c{tel},$c{fax},$c{name2},$c{kana2},$c{birth2},$c{zip2},$c{pref2},$c{addr2},$c{tel2},$c{fax2},$c{deliv}) = decrypt_cust(@cust);
257行目あたり
# 顧客情報暗号化
my @cust = encrypt_cust($in{name},$in{kana},$in{email},$in{zip},$in{pref},$in{addr},$in{tel},$in{fax},$in{name2},$in{kana2},$in{zip2},$in{pref2},$in{addr2},$in{tel2},$in{fax2},$in{deliv});
↓
# 顧客情報暗号化
my @cust = encrypt_cust($in{name},$in{kana},$in{birth},$in{email},$in{zip},$in{pref},$in{addr},$in{tel},$in{fax},$in{name2},$in{kana2},$in{birth2},$in{zip2},$in{pref2},$in{addr2},$in{tel2},$in{fax2},$in{deliv});
415行目あたり
# 次画面用パラメータ
foreach (qw(payment date deli name kana email zip pref addr tel fax name2 kana2 zip2 pref2 addr2 tel2 fax2 memo deliv)) {
↓
# 次画面用パラメータ
foreach (qw(payment date deli name kana birth email zip pref addr tel fax name2 kana2 birth2 zip2 pref2 addr2 tel2 fax2 memo deliv)) {
これでだいたいOkだと思いますが、生年月日のフォーマットが違っていた場合のエラーメッセージも追加しておきます。
845行目
if ($in{name} eq '') { $er{name} = '名前が未入力です'; }
の下に
if ($in{birth} !~ m|^(\d+)/(\d+)/(\d+)|) {
$er{birth} = '生年月日は「年/月/日」で入力してください';
}
を追加。
そのちょっと下の
if ($in{name2} eq '') { $er{name2} = '配送先の名前が未入力です'; }
の下に
if ($in{birth2} !~ m|^(\d+)/(\d+)/(\d+)|) {
$er{birth2} = '生年月日は「年/月/日」で入力してください';
}
を追加。
さらにちょっと下の
} else {
$in{name2} = $in{kana2} = $in{zip2} = $in{addr2} = $in{pref2} = $in{tel2} = $in{fax2} = '';
は
} else {
$in{name2} = $in{kana2} = $in{birth2} = $in{zip2} = $in{addr2} = $in{pref2} = $in{tel2} = $in{fax2} = '';
と変更。
| 記事No | ： 15708 |
| 投稿日 | ： 2017/12/20(Wed) 20:58:12 |
| タイトル | ： Re^2: [Web Mart]生年月日を追加したい |
| ID情報 | ： diktsm |
| 投稿者 | ： TUSIMA |
| URL | ： http://www.applet1181.jp/furusatobin/tamuracidre/index.html |
> けっこう変更か所が多いので、有償で改造してもらうがいいのかもしれませんが、
> どういう修正が必要かまとめてみました。
>
> まず、tmplディレクトリ内テンプレートファイル「addr.html」「conf.html」「reply.txt」「order.txt」を以下のように修正します。
>
> 注文者フォームのテンプレート「addr.html」は
> ふりがな入力フォームの下あたりに
>
> </tr><tr>
> <td class="w-key"><div class="req">生年月日</div></td>
> <td><input type="text" name="birth" size="30" value="!c_birth!" class="picker" />
> (例 : 1970/01/01)</td>
>
> のような感じで生年月日入力フォームを追加します。その下の配送先のフォームにも
>
> </tr><tr>
> <td class="w-key"><div class="req">生年月日</span></td>
> <td><input type="text" name="birth2" size="30" value="!c_birth2!" class="picker" />
> (例 : 1970/01/01)</td>
>
> のような感じで追加します。
> 内容確認ページのテンプレート「conf.html」にも注文者のふりがな下あたりに
>
> </tr><tr>
> <td class="w-key">生年月日</td>
> <td>!c_birth!</td>
>
> 配送先のふりがなの下にも
>
> </tr><tr>
> <td class="w-key">生年月日</td>
> <td>!c_birth2!</td>
>
> のように追加します。
>
> メール送信用テンプレートは
> 注文者返信用の「reply.txt」、オーダーメール用の「order.txt」それぞれの
> 注文者のふりがなの下に
>
> 生年月日 : !birth!
>
> 配送先のふりがなの下に
>
> 生年月日 : !birth2!
>
> を追加します。テンプレートの修正は以上です。
>
> CGIファイルの修正はorder.cgiだけです。主に追加したbirth、birth2というパラメータも処理するための修正です。
> 58行目あたり
>
> # 復号化
> ($c{name},$c{kana},$c{email},$c{zip},$c{pref},$c{addr},$c{tel},$c{fax},$c{name2},$c{kana2},$c{zip2},$c{pref2},$c{addr2},$c{tel2},$c{fax2},$c{deliv}) = decrypt_cust(@cust);
>
> ↓
>
> # 復号化
> ($c{name},$c{kana},$c{birth},$c{email},$c{zip},$c{pref},$c{addr},$c{tel},$c{fax},$c{name2},$c{kana2},$c{birth2},$c{zip2},$c{pref2},$c{addr2},$c{tel2},$c{fax2},$c{deliv}) = decrypt_cust(@cust);
>
> 257行目あたり
>
> # 顧客情報暗号化
> my @cust = encrypt_cust($in{name},$in{kana},$in{email},$in{zip},$in{pref},$in{addr},$in{tel},$in{fax},$in{name2},$in{kana2},$in{zip2},$in{pref2},$in{addr2},$in{tel2},$in{fax2},$in{deliv});
>
> ↓
>
> # 顧客情報暗号化
> my @cust = encrypt_cust($in{name},$in{kana},$in{birth},$in{email},$in{zip},$in{pref},$in{addr},$in{tel},$in{fax},$in{name2},$in{kana2},$in{birth2},$in{zip2},$in{pref2},$in{addr2},$in{tel2},$in{fax2},$in{deliv});
>
> 415行目あたり
>
> # 次画面用パラメータ
> foreach (qw(payment date deli name kana email zip pref addr tel fax name2 kana2 zip2 pref2 addr2 tel2 fax2 memo deliv)) {
>
> ↓
>
> # 次画面用パラメータ
> foreach (qw(payment date deli name kana birth email zip pref addr tel fax name2 kana2 birth2 zip2 pref2 addr2 tel2 fax2 memo deliv)) {
>
>
> これでだいたいOkだと思いますが、生年月日のフォーマットが違っていた場合のエラーメッセージも追加しておきます。
> 845行目
>
> if ($in{name} eq '') { $er{name} = '名前が未入力です'; }
> の下に
>
> if ($in{birth} !~ m|^(\d+)/(\d+)/(\d+)|) {
> $er{birth} = '生年月日は「年/月/日」で入力してください';
> }
>
> を追加。
> そのちょっと下の
>
> if ($in{name2} eq '') { $er{name2} = '配送先の名前が未入力です'; }
>
> の下に
>
> if ($in{birth2} !~ m|^(\d+)/(\d+)/(\d+)|) {
> $er{birth2} = '生年月日は「年/月/日」で入力してください';
> }
>
> を追加。
> さらにちょっと下の
>
> } else {
> $in{name2} = $in{kana2} = $in{zip2} = $in{addr2} = $in{pref2} = $in{tel2} = $in{fax2} = '';
>
> は
>
> } else {
> $in{name2} = $in{kana2} = $in{birth2} = $in{zip2} = $in{addr2} = $in{pref2} = $in{tel2} = $in{fax2} = '';
>
> と変更。
| 記事No | ： 15709 |
| 投稿日 | ： 2017/12/20(Wed) 20:59:36 |
| タイトル | ： Re^2: [Web Mart]生年月日を追加したい |
| ID情報 | ： diktsm |
| 投稿者 | ： TUSIMA |
| URL | ： http://www.applet1181.jp/furusatobin/tamuracidre/index.html |
hirayama様
ありがとうございます！できました！！！！！助かりました！！