| 記事No | ： 14963 |
| 投稿日 | ： 2016/07/04(Mon) 17:07:34 |
| タイトル | ： cart.cgi の買い物カートに商品画像 |
| ID情報 | ： rikorun |
| 投稿者 | ： カビンパンナ |
| URL | ： http://www.kent-web.com/cart/cart/cart.cgi |
いつもお世話になっております。
cart.cgiを使用しています。
この度お客様よりカート画面に商品写真を掲載できないかとの問い合わせをいただきました。(cart.htmlに掲載希望)
過去も質問された方いらしたようですが、回答が付いてなかったのでご質問させていただきました。
URLはダミーです。
ご確認よろしくお願い致します。
| 記事No | ： 14964 |
| 投稿日 | ： 2016/07/04(Mon) 20:55:26 |
| タイトル | ： Re: cart.cgi の買い物カートに商品画像 |
| ID情報 | ： hamel |
| 投稿者 | ： HUMMEL |
| URL | ： http://drc3.news-site.net/script1/ |
> いつもお世話になっております。
> cart.cgiを使用しています。
> この度お客様よりカート画面に商品写真を掲載できないかとの問い合わせをいただきました。(cart.htmlに掲載希望)
> 過去も質問された方いらしたようですが、回答が付いてなかったのでご質問させていただきました。
>
> URLはダミーです。
> ご確認よろしくお願い致します。
【lib/menu_list.pl】内 288行目
sub cart_in {
中略
308行目あたり
# 追加データ定義
$pick = qq|$no<>$in{"num:$key"}<>$in{"size:$key"}<>$in{"color:$key"}<>$item<>$price<>$code<>$cate|;
↑を↓のように変更
# 追加データ定義
$pick = qq|$no<>$in{"num:$key"}<>$in{"size:$key"}<>$in{"color:$key"}<>$item<>$price<>$code<>$cate<>$img1|;
344行目あたり
my ($no,$num,$size,$col,$item,$pri,$code,$cat) = split(/<>/,$cart);
# 同一商品購入の場合
↑を↓のように変更
my ($no,$num,$size,$col,$item,$pri,$code,$cat,$img1) = split(/<>/,$cart);
# 同一商品購入の場合
365行目あたり
# 格納データ
$wpic = "$no<>$num<>$size<>$col<>$item<>$pri<>$code<>$cat";
↑を↓のように変更
# 格納データ
$wpic = "$no<>$num<>$size<>$col<>$item<>$pri<>$code<>$cat<>$img1";
【lib/look_cart.pl】内47行目
my ($no,$num,$size,$col,$item,$pri,$code,$cat) = split(/<>/,$cart);
↑を↓のように変更
my ($no,$num,$size,$col,$item,$pri,$code,$cat,$img1) = split(/<>/,$cart);
55行目
# 新セッション設定
$ses->param("cart:$chg", "$no<>$in{\"num:$chg\"}<>$size<>$col<>$item<>$pri<>$code<>$cat");
↑を↓のように変更
# 新セッション設定
$ses->param("cart:$chg", "$no<>$in{\"num:$chg\"}<>$size<>$col<>$item<>$pri<>$code<>$cat<>$img1");
98行目
foreach (@cart) {
my ($id,$no,$num,$size,$col,$item,$pri,$code,$cat) = split(/<>/);
↑を↓のように変更
foreach (@cart) {
my ($id,$no,$num,$size,$col,$item,$pri,$code,$cat,$img1) = split(/<>/);
104行目
$opt .= "[$cf{op2}]$col" if ($col);
↑の下に下記を追加挿入
# メイン画像
my $image;
if ($img1) {
my ($ex,$w,$h) = split(/,/,$img1);
$image = image(1,$no,$ex,$w,$h) . "<br />";
}
121行目
$tmp =~ s/!option!/$opt/g;
print $tmp;
↑を↓のように変更
$tmp =~ s/!option!/$opt/g;
$tmp =~ s/!image!/$image/g;
print $tmp;
look_cart.plの一番下にある「 1; 」のすぐ上に下記を追加挿入
#-----------------------------------------------------------
# 画像表示
#-----------------------------------------------------------
sub image {
my ($i,$no,$ex,$w,$h) = @_;
my $image;
if (-f "$cf{imgdir}/$no-s-$i$ex") {
$image = qq|<img src="$cf{imgurl}/$no-s-$i$ex" alt="" />|;
} else {
($w,$h) = resize($w,$h);
$image = qq|<img src="$cf{imgurl}/$no-$i$ex" width="$w" height="$h" alt="" />|;
}
return qq|<a href="$cf{imgurl}/$no-$i$ex" target="_blank">$image</a>|;
}
【tmpl/cart.html】内65行目あたり
<!-- loop_begin -->
<tr>
<td>!item!<br />!code!</td>
↑を↓のように変更
<!-- loop_begin -->
<tr>
<td>!item!<br />!code! !image!</td>
以上で一応選択された商品の画像が表示されると思います。
表示位置等はHTMLタグとスタイルシートで調整して下さい。
| 記事No | ： 14981 |
| 投稿日 | ： 2016/07/07(Thu) 17:09:05 |
| タイトル | ： Re^2: cart.cgi の買い物カートに商品画像 |
| ID情報 | ： rikorun |
| 投稿者 | ： カビんパンナ |
HUMMEL様
ありがとうございます！
反映しました！嬉しいです！