| Published |
-
my @skus = split(/\,/,$ITEM{bundle_covers});
my $count=0;
my $totals = $#skus+1;
foreach (@skus) {
my $cn = get_one("Select misc13 from INVENTORY where SKU=?",$_);
my $dn = $cn;
$cn=~s#\s#-#ig;
$cn=~s#(---|--)#-#ig;
$cn=~s#(,|!|\?|:|\.|\(|\)|\[|])##ig;
$cn.="-eBook.html";
$_=$dn;
/(\d\d\d\d)(\d\d)/;
print qq~ | $2-$1 | ~;
}
-
my @skus = split(/\,/,$ITEM{bundle_covers});
my $count=0;
my $totals = $#skus+1;
foreach (@skus) {
my $cn = get_one("Select misc13 from INVENTORY where SKU=?",$_);
my $dn = $cn;
$cn=~s#\s#-#ig;
$cn=~s#(---|--)#-#ig;
$cn=~s#(,|!|\?|:|\.|\(|\)|\[|])##ig;
$cn.="-eBook.html";
$_=$dn;
/(\d\d\d\d)(\d\d)/;
print qq~ | $2-$1 | ~;
}
-
my @skus = split(/\,/,$ITEM{bundle_covers});
my $count=0;
my $totals = $#skus+1;
foreach (@skus) {
my $cn = get_one("Select misc13 from INVENTORY where SKU=?",$_);
my $dn = $cn;
$cn=~s#\s#-#ig;
$cn=~s#(---|--)#-#ig;
$cn=~s#(,|!|\?|:|\.|\(|\)|\[|])##ig;
$cn.="-eBook.html";
$_=$dn;
/(\d\d\d\d)(\d\d)/;
print qq~ | $2-$1 | ~;
}
