|
|
|
|
≡商品ジャンル≡
|
EOF
#「ランキング」の表示/非表示
if ($rank_on){
if ($mode eq rank){
print <<"EOF";
売れ筋ランキング
|
EOF
}else{
print <<"EOF";
売れ筋ランキング
|
EOF
}
}
if ($mode eq recom){
print <<"EOF";
おすすめ商品
|
EOF
}else{
print <<"EOF";
おすすめ商品
|
EOF
}
#「商品一覧」の表示/非表示
if ($all_items){
if ($mode eq all){
print <<"EOF";
商品一覧
|
|
EOF
}else{
print <<"EOF";
商品一覧
|
|
EOF
}
}
#カテゴリー表示ここから
foreach $m (@menu){
@n=split(/\*/,$m);
$cat=$cat2=$n[0];
$cat2=~s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
$count=@n;
if($n[1]){
$w_category = $cat;
if($w_category eq $cat){
#---カテゴリー/サブカテゴリーともに有効にする場合---
#print <<"EOF";
# $cat |
#EOF
#---カテゴリー/サブカテゴリーともに有効にする場合ここまで---
#---サブカテゴリーのみ有効にする場合---
print <<"EOF";
$cat |
EOF
#---サブカテゴリーのみ有効にする場合ここまで---
for ($j=1; $j<$count-1; $j++){
$subcat=$subcat2=$n[$j];
$subcat2 =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
if ($subcategory eq $subcat){
print <<"EOF";
├ $subcat
|
EOF
}else{
print <<"EOF";
├$subcat
|
EOF
}
}
$last=$last2=$n[$count-1];
$last2=~s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
if ($subcategory eq $last){
print <
└ $last
|
EOF
}else{
print <
└$last
|
EOF
}
}else{
#---カテゴリー/サブカテゴリーともに有効にする場合---
# if($category eq $cat){
#print <
# $cat
# |
#EOF
# }else{
#print <
# $cat
# |
#EOF
# }
#---カテゴリー/サブカテゴリーともに有効にする場合ここまで---
#---サブカテゴリーのみ有効にする場合---
$first=$first2=$n[1];
$first2 =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
print <
$cat
|
EOF
#---サブカテゴリーのみ有効にする場合ここまで---
}
}else{
if($category eq $cat){
print <
$cat
|
EOF
}else{
print <
$cat
|
EOF
}
}
}
#カテゴリー表示ここまで
print <<"EOF";
|
|
|
EOF
#---------
#表示切替
#---------
if(!$h_type){
$h_type=$default;
}
if ($h_type=="1"){
print <<"EOF";
\n";
}else{
print <<"EOF";
|
EOF
}
#------------
# 商品表示部(バナーとタイトル)
#------------
print <<"EOF";
|