IDB 2.0A.(BCompactInlineasH c 288C/&s9Uv1b2IDString:^^^^ Data7 P =] OneLineDefault product templateDefaultGraphic over textOne LineX   D;\   &:[ ATopGraphicCompact product templateInline product templateo ' ;] Inline w/ graphic over textoCompactGraphic/& T s:\ Compact w/ graphic over textInlineGraphicj " / zb;^ A/&s9U, " <:p] .sH c 2L(B/&s9Uv1bA/&s9Uv1e local($num) = $CUR_REC{'number'}; local($name) = &Field('Name'); local($strippedname) = &IgnoreHTML($name); local($message); printf STDOUT &plSSMsgCatGet(SSMSGAddingProduct, "\n
Adding Product [%s]...\n"), $name; local($filename) = &Field('File name'); if (!($filename =~ /\S+/)) { $filename = "product".$num.".html"; } local($image) = &Field('Graphic'); local($description) = &Field('Product Description'); local($namestyle) = &Field('Name Style'); local($namesize) = &Field('Name Size'); local($price) = &Field('Price'); if (index($delimiter,"Comma",0) >= 0 ) {$price =~ s/\./\,/; } local($pricestyle) = &Field('Price Style'); local($pricesize) = &Field('Price Size'); local($sku) = &Field('SKU'); local($skustyle) = &Field('SKU Style'); local($skusize) = &Field('SKU Size'); local($descstyle) = &Field('Description Style'); local($descsize) = &Field('Description Size'); local($textwrap) = &Field('Text Wrap'); local($moreinfo) = &Field('Display more information page?'); local($moretext) = &Field('More information text'); local($moretag); local($OrderBtn); local($CheckoutBtn); local($saleamount) = &Field('Sale Amount'); local($saleon) = &Field('Sale On'); local($pstring); local($pastring); local($spstring); local($spastring); if ($moreinfo eq "checked") { $moretag=""; } print < EoStuffOne if ($imagealignment eq "center") { print("
\n"); } if ((&Field('Display Graphic?') eq "checked") && ($image ne "none")) { if (($textwrap eq "On") || ($CURALIGN eq "center")) { if ($CURALIGN eq "right") { (($image =~ s/\balign="?(.*)"?\b/align=right/g) || ($image.=" align=right")); } elsif ($CURALIGN eq "left") { (($image =~ s/\balign="?(.*)"?\b/align=left/g) || ($image.=" align=left")); } if ($moretag) { print("$moretag"); print(""); print("\n"); } else { print("\n"); } if ($CURALIGN eq "center") { print("
\n"); } } else { print("\n\n\n\n\n\n
\n"); if ($CURALIGN eq "left") { if ($moretag) { print("$moretag"); print(""); print("\n"); } else { print("\n"); } print("\n"); } } } if ((&Field('Display Name?') eq "checked") && ($name)) { if ($namestyle eq "Bold") { $name = "".$name.""; } elsif ($namestyle eq "Italic") { $name = "".$name.""; } elsif ($namestyle eq "Typewriter") { $name = "".$name.""; } if ($namesize eq "Big") { $name = "".$name.""; } elsif ($namesize eq "Small") { $name = "".$name.""; } if ($moretag) { print("\n$moretag"); print("$name"); print("\n
"); } else { print("\n$name
\n"); } } local(@SUBITEMS); $SUBITEMS[0]=undef; $SUBITEMS[1]=undef; @SUBITEMS = &NextItem; local($numitems) = &GetItem(*CUR_DB, *CUR_REC); if ($numitems > 0) { local($subname, $subprice); local($SubOrderBtn); local($SubCheckoutBtn); if ($description) { print ("$description\n
\n"); } do { if (!defined($SUBITEMS[0]) || !defined($SUBITEMS[1])) { last; } &NewDB( $SUBITEMS[0] ); &SetRecord( $SUBITEMS[1] ); if (&Field('Display Name?') eq "checked") { $subname = &Field('Name'); print("\n$subname "); } if (&Field('Display Price?') eq "checked") { $subprice = &Field('Price'); $subsaleon = &Field('Sale On'); $subsaleamount = &Field('Sale Amount'); if ($subprice) { if (index($delimiter,"Comma",0)>= 0 ) { $subprice =~ s/\./\,/; } $pstring = &pricestring($subprice); $pastring = &apricestring($subprice); if (($subsaleon eq "checked") && ($subsaleamount)) { $subsaleamount = &CalcSale($subprice,$subsaleamount); $spstring = &pricestring($subsaleamount); $spastring = &apricestring($subsaleamount); $subprice = "".$pstring.""; $subsaleamount = "".$spstring.""; print "\n$subprice $subsaleamount"; if ($pastring ne "") { $subprice = " ".$pastring.""; $subsaleamount = "".$spastring.""; print "$subprice  $subsaleamount"; } print(" $Saletext\n"); } else { print("$pstring "); if ($pastring ne "") { print(" $pastring "); } } } } if ($PRODUCT_TYPE == $SSM_PRO){ $SubOrderBtn = &Field('Order Button'); $SubCheckoutBtn = &Field('Checkout Button'); } else { $SubOrderBtn = $Order; $SubCheckoutBtn = $Checkout; } if ($SubOrderBtn ne "") { print ("$SubOrderBtn "); } if ($SubCheckoutBtn ne "") { print ("$SubCheckoutBtn\n"); } print ("
"); &EndNewDB; $SUBITEMS[0]=undef; $SUBITEMS[1]=undef; @SUBITEMS = &NextItem; }while ($SUBITEMS[0]); } else { if ((&Field('Display Price?') eq "checked") && ($price)) { $pstring = &pricestring($price); $pastring = &apricestring($price); if (($saleon eq "checked") && ($saleamount)) { $saleamount = &CalcSale($price,$saleamount); $spstring = &pricestring($saleamount); $spastring = &apricestring($saleamount); $price = "".$pstring.""; $saleamount = "".$spstring.""; print "\n$price $saleamount"; if ($pastring ne "") { $price = " ".$pastring.""; $saleamount = "".$spastring.""; print "$price  $saleamount"; } print(" $Saletext
\n"); } else { if ($pricestyle eq "Bold") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricestyle eq "Italic") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricestyle eq "Typewriter") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } if ($pricesize eq "Big") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricesize eq "Small") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } print("\n$price"); if ($pastring ne "") { print("  $pastring"); } print("
\n"); } } if ((&Field('Display SKU?') eq "checked") && ($sku)) { if ($skustyle eq "Bold") { $sku = "".$sku.""; } elsif ($skustyle eq "Italic") { $sku = "".$sku.""; } elsif ($skustyle eq "Typewriter") { $sku = "".$sku.""; } if ($skusize eq "Big") { $sku = "".$sku.""; } elsif ($skusize eq "Small") { $sku = "".$sku.""; } print("\n$sku
\n"); } if ($description) { if ($descstyle eq "Bold") { $description = "".$description.""; } elsif ($descstyle eq "Italic") { $description = "".$description.""; } elsif ($descstyle eq "Typewriter") { $description = "".$description.""; } if ($descsize eq "Big") { $description = "".$description.""; } elsif ($descsize eq "Small") { $description = "".$description.""; } print ("$description\n
\n"); } if ($PRODUCT_TYPE == $SSM_PRO){ $OrderBtn = &Field('Order Button'); $CheckoutBtn = &Field('Checkout Button'); } else { $OrderBtn = $Order; $CheckoutBtn = $Checkout; } if ($OrderBtn ne "") { print ("$OrderBtn "); } if ($CheckoutBtn ne "") { print ("$CheckoutBtn\n"); } } if ($CURALIGN eq "center") { print("\n"); } if ((&Field('Display Graphic?') eq "checked") && ($image ne "none") && ($textwrap eq "Off") && ($CURALIGN ne "center")) { if ($CURALIGN eq "right") { print("\n		\n"); print("\n"); } print("
\n"); } if ($moretag) { if (!(-e "$OUTPUT_DIR/$filename") || (!(-M "$OUTPUT_DIR/$filename" <= 0) && (&IsIn($num, "products")) ) ) { $message = sprintf(&plSSMsgCatGet(SSMSGErrOpeningDirFile, "Error opening %s/%s"), $OUTPUT_DIR, $filename); &NewFile("$OUTPUT_DIR/$filename") || die $message; print < $strippedname SubProdOne &EmitFile("$DATA_DIR/uheader.dat"); if ($CURALIGN eq "center") { print("
\n"); } local($moregraphic) = &Field('More information graphic'); if ((&Field('Display Graphic?') eq "checked") && ($moregraphic ne "none")) { if ($CURALIGN eq "right") { (($moregraphic =~ s/\balign="?(.*)"?\b/align=right/g) || ($moregraphic.=" align=right")); } elsif ($CURALIGN eq "left") { (($moregraphic =~ s/\balign="?(.*)"?\b/align=left/g) || ($moregraphic.=" align=left")); } print("\n"); if ($CURALIGN eq "center") { print("
\n"); } } if ((&Field('Display Name?') eq "checked") && ($name)) { $name = &Field('Name'); print("\n

$name


\n"); } if ($moretext) { if ($descstyle eq "Bold") { $moretext = "".$moretext.""; } elsif ($descstyle eq "Italic") { $moretext = "".$moretext.""; } elsif ($descstyle eq "Typewriter") { $moretext = "".$moretext.""; } if ($descsize eq "Big") { $moretext = "".$moretext.""; } elsif ($descsize eq "Small") { $moretext = "".$moretext.""; } } local(@SUBITEMS2); $SUBITEMS2[0]=undef; $SUBITEMS2[1]=undef; &ResetRecord; @SUBITEMS2 = &NextItem; local($numitems) = &GetItem(*CUR_DB, *CUR_REC); if ($numitems > 0) { print ("\n
\n"); if ($moretext) { print ("$moretext\n
\n"); } do { if (!defined($SUBITEMS2[0]) || !defined($SUBITEMS2[1])) { last; } &NewDB( $SUBITEMS2[0] ); &SetRecord( $SUBITEMS2[1] ); if (&Field('Display Name?') eq "checked") { $subname = &Field('Name'); print("\n$subname "); } if (&Field('Display Price?') eq "checked") { $subprice = &Field('Price'); $subsaleamount = &Field('Sale Amount'); $subsaleon = &Field('Sale On'); if ($subprice) { if (index($delimiter,"Comma",0)>= 0 ) { $subprice =~ s/\./\,/; } $pstring = &pricestring($subprice); $pastring = &apricestring($subprice); if (($subsaleon eq "checked") && ($subsaleamount)) { $subsaleamount = &CalcSale($subprice,$subsaleamount); $spstring = &pricestring($subsaleamount); $spastring = &apricestring($subsaleamount); $subprice = "".$pstring.""; $subsaleamount = "".$spstring.""; print "\n$subprice $subsaleamount"; if ($pastring ne "") { $subprice = " ".$pastring.""; $subsaleamount = "".$spastring.""; print "$subprice  $subsaleamount"; } print(" $Saletext\n"); } else { print("$pstring "); if ($pastring ne "") { print("  $pastring "); } } } } if ($PRODUCT_TYPE == $SSM_PRO){ $SubOrderBtn = &Field('Order Button'); $SubCheckoutBtn = &Field('Checkout Button'); } else { $SubOrderBtn = $Order; $SubCheckoutBtn = $Checkout; } if ($SubOrderBtn ne ""){ print ("$SubOrderBtn "); } if ($SubCheckoutBtn ne "") { print ("$SubCheckoutBtn\n"); } print("
"); &EndNewDB; $SUBITEMS2[0]=undef; $SUBITEMS2[1]=undef; @SUBITEMS2 = &NextItem; }while ($SUBITEMS2[0]); } else { if ((&Field('Display Price?') eq "checked") && ($price)) { $price = &Field('Price'); $pstring = &pricestring($price); $pastring = &apricestring($price); if (($saleon eq "checked") && ($saleamount)) { $saleamount = &Field('Sale Amount'); $saleamount = &CalcSale($price,$saleamount); $spstring = &pricestring($saleamount); $spastring = &apricestring($saleamount); $price = "".$pstring.""; $saleamount = "".$spstring.""; print "\n$price $saleamount"; if ($pastring ne "") { $price = " ".$pastring.""; $saleamount = "".$spastring.""; print "$price  $saleamount"; } print(" $Saletext
\n"); } else { print("\n$pstring"); if ($pastring ne "") { print("  $pastring"); } print("
\n"); } } if ((&Field('Display SKU?') eq "checked") && ($sku)) { print("\n$sku\n
\n"); } if ($moretext) { print ("\n
$moretext\n
\n"); } print ("
\n"); if ($OrderBtn ne "") { print ("$OrderBtn "); } if ($CheckoutBtn ne "") { print ("$CheckoutBtn\n"); } print ("
\n"); } if ($CURALIGN eq "center") { print("
\n"); } &EmitFile("$DATA_DIR/ufooter.dat"); print("\n\n"); &EndNewFile } } 1;  toName .Name:^^^^  IDString 2IDString:^^^^ Data +Data^^^^e local($num) = $CUR_REC{'number'}; local($name) = &Field('Name'); local($strippedname) = &IgnoreHTML($name); printf STDOUT &plSSMsgCatGet(SSMSGAddingProduct, "\n
Adding Product [%s]...\n"), $name; local($filename) = &Field('File name'); if (!($filename =~ /\S+/)) { $filename = "product".$num.".html"; } local($image) = &Field('Graphic'); local($description) = &Field('Product Description'); local($namestyle) = &Field('Name Style'); local($namesize) = &Field('Name Size'); local($price) = &Field('Price'); if (index($delimiter,"Comma",0) >= 0 ) {$price =~ s/\./\,/; } local($pricestyle) = &Field('Price Style'); local($pricesize) = &Field('Price Size'); local($sku) = &Field('SKU'); local($skustyle) = &Field('SKU Style'); local($skusize) = &Field('SKU Size'); local($descstyle) = &Field('Description Style'); local($descsize) = &Field('Description Size'); local($textwrap) = &Field('Text Wrap'); local($moreinfo) = &Field('Display more information page?'); local($moretext) = &Field('More information text'); local($moretag); local($OrderBtn); local($CheckoutBtn); local($saleamount) = &Field('Sale Amount'); local($saleon) = &Field('Sale On'); local($pstring); local($pastring); local($spstring); local($spastring); if ($moreinfo eq "checked") { $moretag=""; } print < EoStuffOne if ($imagealignment eq "center") { print("
\n"); } if ((&Field('Display Graphic?') eq "checked") && ($image ne "none")) { if ($moretag) { print("$moretag"); print(""); print("\n"); } else { print("\n"); } print("
\n"); } if ((&Field('Display Name?') eq "checked") && ($name)) { if ($namestyle eq "Bold") { $name = "".$name.""; } elsif ($namestyle eq "Italic") { $name = "".$name.""; } elsif ($namestyle eq "Typewriter") { $name = "".$name.""; } if ($namesize eq "Big") { $name = "".$name.""; } elsif ($namesize eq "Small") { $name = "".$name.""; } if ($moretag) { print("\n$moretag"); print("$name"); print("
\n"); } else { print("\n$name
\n"); } } local(@SUBITEMS); $SUBITEMS[0]=undef; $SUBITEMS[1]=undef; @SUBITEMS = &NextItem; local($numitems) = &GetItem(*CUR_DB, *CUR_REC); if ($numitems > 0) { local($subname, $subprice); local($SubOrderBtn); local($SubCheckoutBtn); if ($description) { print ("$description\n
\n"); } do { if (!defined($SUBITEMS[0]) || !defined($SUBITEMS[1])) { last; } &NewDB( $SUBITEMS[0] ); &SetRecord( $SUBITEMS[1] ); if (&Field('Display Name?') eq "checked") { $subname = &Field('Name'); print("\n$subname "); } if (&Field('Display Price?') eq "checked") { $subprice = &Field('Price'); $subsaleon = &Field('Sale On'); $subsaleamount = &Field('Sale Amount'); if ($subprice) { if (index($delimiter,"Comma",0)>= 0 ) { $subprice =~ s/\./\,/; } $pstring = &pricestring($subprice); $pastring = &apricestring($subprice); if (($subsaleon eq "checked") && ($subsaleamount)) { $subsaleamount = &CalcSale($subprice,$subsaleamount); $spstring = &pricestring($subsaleamount); $spastring = &apricestring($subsaleamount); $subprice = "".$pstring.""; $subsaleamount = "".$spstring.""; print "\n$subprice $subsaleamount"; if ($pastring ne "") { $subprice = " ".$pastring.""; $subsaleamount = "".$spastring.""; print "$subprice  $subsaleamount"; } print(" $Saletext\n"); } else { print("$pstring "); if ($pastring ne "") { print(" $pastring "); } } } } if ($PRODUCT_TYPE == $SSM_PRO){ $SubOrderBtn = &Field('Order Button'); $SubCheckoutBtn = &Field('Checkout Button'); } else { $SubOrderBtn = $Order; $SubCheckoutBtn = $Checkout; } if ($SubOrderBtn ne "") { print ("$SubOrderBtn "); } if ($SubCheckoutBtn ne "") { print ("$SubCheckoutBtn\n"); } print("
"); &EndNewDB; $SUBITEMS[0]=undef; $SUBITEMS[1]=undef; @SUBITEMS = &NextItem; }while ($SUBITEMS[0]); } else { if ((&Field('Display Price?') eq "checked") && ($price)) { $pstring = &pricestring($price); $pastring = &apricestring($price); if (($saleon eq "checked") && ($saleamount)) { $saleamount = &CalcSale($price,$saleamount); $spstring = &pricestring($saleamount); $spastring = &apricestring($saleamount); $price = "".$pstring.""; $saleamount = "".$spstring.""; print "\n$price $saleamount"; if ($pastring ne "") { $price = " ".$pastring.""; $saleamount = "".$spastring.""; print "$price  $saleamount"; } print(" $Saletext
\n"); } else { if ($pricestyle eq "Bold") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricestyle eq "Italic") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricestyle eq "Typewriter") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } if ($pricesize eq "Big") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricesize eq "Small") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } print("\n$price"); if ($pastring ne "") { print("  $pastring"); } print("
\n"); } } if ((&Field('Display SKU?') eq "checked") && ($sku)) { if ($skustyle eq "Bold") { $sku = "".$sku.""; } elsif ($skustyle eq "Italic") { $sku = "".$sku.""; } elsif ($skustyle eq "Typewriter") { $sku = "".$sku.""; } if ($skusize eq "Big") { $sku = "".$sku.""; } elsif ($skusize eq "Small") { $sku = "".$sku.""; } print("\n$sku
\n"); } if ($description) { if ($descstyle eq "Bold") { $description = "".$description.""; } elsif ($descstyle eq "Italic") { $description = "".$description.""; } elsif ($descstyle eq "Typewriter") { $description = "".$description.""; } if ($descsize eq "Big") { $description = "".$description.""; } elsif ($descsize eq "Small") { $description = "".$description.""; } print ("\n$description\n
\n"); } if ($PRODUCT_TYPE == $SSM_PRO){ $OrderBtn = &Field('Order Button'); $CheckoutBtn = &Field('Checkout Button'); } else { $OrderBtn = $Order; $CheckoutBtn = $Checkout; } if ($OrderBtn ne "") { print ("$OrderBtn "); } if ($CheckoutBtn ne "") { print ("$CheckoutBtn\n"); } } if ($CURALIGN eq "center") { print("
\n"); } if ($moretag) { if (!(-e "$OUTPUT_DIR/$filename") || (!(-M "$OUTPUT_DIR/$filename" <= 0) && (&IsIn($num, "products")) ) ) { $message = sprintf(&plSSMsgCatGet(SSMSGErrOpeningDirFile, "Error opening %s/%s"), $OUTPUT_DIR, $filename); &NewFile("$OUTPUT_DIR/$filename") || die $message; print < $strippedname SubProdOne &EmitFile("$DATA_DIR/uheader.dat"); if ($CURALIGN eq "center") { print("
\n"); } local($moregraphic) = &Field('More information graphic'); if ((&Field('Display Graphic?') eq "checked") && ($moregraphic ne "none")) { if ($CURALIGN eq "right") { (($moregraphic =~ s/\balign="?(.*)"?\b/align=right/g) || ($moregraphic.=" align=right")); } elsif ($CURALIGN eq "left") { (($moregraphic =~ s/\balign="?(.*)"?\b/align=left/g) || ($moregraphic.=" align=left")); } print("\n"); if ($CURALIGN eq "center") { print("
\n"); } } if ((&Field('Display Name?') eq "checked") && ($name)) { $name = &Field('Name'); print("\n

$name


\n"); } if ($moretext) { if ($descstyle eq "Bold") { $moretext = "".$moretext.""; } elsif ($descstyle eq "Italic") { $moretext = "".$moretext.""; } elsif ($descstyle eq "Typewriter") { $moretext = "".$moretext.""; } if ($descsize eq "Big") { $moretext = "".$moretext.""; } elsif ($descsize eq "Small") { $moretext = "".$moretext.""; } } local(@SUBITEMS2); $SUBITEMS2[0]=undef; $SUBITEMS2[1]=undef; &ResetRecord; @SUBITEMS2 = &NextItem; local($numitems) = &GetItem(*CUR_DB, *CUR_REC); if ($numitems > 0) { print ("\n
\n"); if ($moretext) { print ("$moretext\n
\n"); } do { if (!defined($SUBITEMS2[0]) || !defined($SUBITEMS2[1])) { last; } &NewDB( $SUBITEMS2[0] ); &SetRecord( $SUBITEMS2[1] ); if (&Field('Display Name?') eq "checked") { $subname = &Field('Name'); print("\n$subname "); } if (&Field('Display Price?') eq "checked") { $subprice = &Field('Price'); $subsaleon = &Field('Sale On'); $subsaleamount = &Field('Sale Amount'); if ($subprice) { if (index($delimiter,"Comma",0)>= 0 ) { $subprice =~ s/\./\,/; } $pstring = &pricestring($subprice); $pastring = &apricestring($subprice); if (($subsaleon eq "checked") && ($subsaleamount)) { $subsaleamount = &CalcSale($subprice,$subsaleamount); $spstring = &pricestring($subsaleamount); $spastring = &apricestring($subsaleamount); $subprice = "".$pstring.""; $subsaleamount = "".$spstring.""; print "\n$subprice $subsaleamount"; if ($pastring ne "") { $subprice = " ".$pastring.""; $subsaleamount = "".$spastring.""; print "$subprice  $subsaleamount"; } print(" $Saletext\n"); } else { print("$pstring "); if ($pastring ne "") { print("  $pastring "); } } } } if ($PRODUCT_TYPE == $SSM_PRO){ $SubOrderBtn = &Field('Order Button'); $SubCheckoutBtn = &Field('Checkout Button'); } else { $SubOrderBtn = $Order; $SubCheckoutBtn = $Checkout; } if ($SubOrderBtn ne ""){ print ("$SubOrderBtn "); } if ($SubCheckoutBtn ne ""){ print ("$SubCheckoutBtn\n"); } print("
"); &EndNewDB; $SUBITEMS2[0]=undef; $SUBITEMS2[1]=undef; @SUBITEMS2 = &NextItem; }while ($SUBITEMS2[0]); } else { if ((&Field('Display Price?') eq "checked") && ($price)) { $price = &Field('Price'); $pstring = &pricestring($price); $pastring = &apricestring($price); if (($saleon eq "checked") && ($saleamount)) { $saleamount = &Field('Sale Amount'); $saleamount = &CalcSale($price,$saleamount); $spstring = &pricestring($saleamount); $spastring = &apricestring($saleamount); $price = "".$pstring.""; $saleamount = "".$spstring.""; print "\n$price $saleamount"; if ($pastring ne "") { $price = " ".$pastring.""; $saleamount = "".$spastring.""; print "$price  $saleamount"; } print(" $Saletext
\n"); } else { print("\n$pstring"); if ($pastring ne "") { print("  $pastring"); } print("
\n"); } } if ((&Field('Display SKU?') eq "checked") && ($sku)) { print("\n$sku\n
\n"); } if ($moretext) { print ("\n
$moretext\n
\n"); } print ("
\n"); if ($OrderBtn ne "") { print ("$OrderBtn "); } if ($CheckoutBtn ne "") { print ("$CheckoutBtn\n"); } print ("
\n"); } if ($CURALIGN eq "center") { print("
\n"); } &EmitFile("$DATA_DIR/ufooter.dat"); print("\n\n"); &EndNewFile } } 1; }e local($num) = $CUR_REC{'number'}; local($name) = &Field('Name'); local($strippedname) = &IgnoreHTML($name); printf STDOUT &plSSMsgCatGet(SSMSGAddingProduct, "\n
Adding Product [%s]...\n"), $name; local($filename) = &Field('File name'); if (!($filename =~ /\S+/)) { $filename = "product".$num.".html"; } local($image) = &Field('Graphic'); local($description) = &Field('Product Description'); local($namestyle) = &Field('Name Style'); local($namesize) = &Field('Name Size'); local($price) = &Field('Price'); if (index($delimiter,"Comma",0) >= 0 ) {$price =~ s/\./\,/; } local($pricestyle) = &Field('Price Style'); local($pricesize) = &Field('Price Size'); local($sku) = &Field('SKU'); local($skustyle) = &Field('SKU Style'); local($skusize) = &Field('SKU Size'); local($descstyle) = &Field('Description Style'); local($descsize) = &Field('Description Size'); local($textwrap) = &Field('Text Wrap'); local($moreinfo) = &Field('Display more information page?'); local($moretext) = &Field('More information text'); local($moretag); local($OrderBtn); local($CheckoutBtn); local($saleamount) = &Field('Sale Amount'); local($saleon) = &Field('Sale On'); local($pstring); local($pastring); local($spstring); local($spastring); if ($moreinfo eq "checked") { $moretag=""; } print < EoStuffOne if ((&Field('Display Graphic?') eq "checked") && ($image ne "none")) { if ($moretag) { print("$moretag"); print(""); print("\n"); } else { print("\n"); } } if ((&Field('Display Name?') eq "checked") && ($name)) { if ($namestyle eq "Bold") { $name = "".$name.""; } elsif ($namestyle eq "Italic") { $name = "".$name.""; } elsif ($namestyle eq "Typewriter") { $name = "".$name.""; } if ($namesize eq "Big") { $name = "".$name.""; } elsif ($namesize eq "Small") { $name = "".$name.""; } if ($moretag) { print("\n$moretag"); print("$name"); print("\n"); } else { print("\n$name\n"); } } local(@SUBITEMS); $SUBITEMS[0]=undef; $SUBITEMS[1]=undef; @SUBITEMS = &NextItem; local($numitems) = &GetItem(*CUR_DB, *CUR_REC); if ($numitems > 0) { print ("\n
\n"); local($subname, $subprice); local($SubOrderBtn); local($SubCheckoutBtn); if($description) { print ("$description\n
\n"); } do { if (!defined($SUBITEMS[0]) || !defined($SUBITEMS[1])) { last; } &NewDB( $SUBITEMS[0] ); &SetRecord( $SUBITEMS[1] ); if (&Field('Display Name?') eq "checked") { $subname = &Field('Name'); print("\n$subname "); } if (&Field('Display Price?') eq "checked") { $subprice = &Field('Price'); $subsaleon = &Field('Sale On'); $subsaleamount = &Field('Sale Amount'); if ($subprice) { if (index($delimiter,"Comma",0)>= 0 ) { $subprice =~ s/\./\,/; } $pstring = &pricestring($subprice); $pastring = &apricestring($subprice); if (($subsaleon eq "checked") && ($subsaleamount)) { $subsaleamount = &CalcSale($subprice,$subsaleamount); $spstring = &pricestring($subsaleamount); $spastring = &apricestring($subsaleamount); $subprice = "".$pstring.""; $subsaleamount = "".$spstring.""; print "\n$subprice $subsaleamount"; if ($pastring ne "") { $subprice = " ".$pastring.""; $subsaleamount = "".$spastring.""; print "$subprice  $subsaleamount"; } print(" $Saletext\n"); } else { print("$pstring "); if ($pastring ne "") { print(" $pastring "); } } } } if ($PRODUCT_TYPE == $SSM_PRO){ $SubOrderBtn = &Field('Order Button'); $SubCheckoutBtn = &Field('Checkout Button'); } else { $SubOrderBtn = $Order; $SubCheckoutBtn = $Checkout; } if ($SubOrderBtn ne "") { print ("$SubOrderBtn "); } if ($SubCheckoutBtn ne "") { print ("$SubCheckoutBtn\n"); } print("
"); &EndNewDB; $SUBITEMS[0]=undef; $SUBITEMS[1]=undef; @SUBITEMS = &NextItem; }while ($SUBITEMS[0]); } else { if ((&Field('Display Price?') eq "checked") && ($price)) { $pstring = &pricestring($price); $pastring = &apricestring($price); if (($saleon eq "checked") && ($saleamount)) { $saleamount = &CalcSale($price,$saleamount); $spstring = &pricestring($saleamount); $spastring = &apricestring($saleamount); $price = "".$pstring.""; $saleamount = "".$spstring.""; print "\n$price $saleamount"; if ($pastring ne "") { $price = " ".$pastring.""; $saleamount = "".$spastring.""; print "$price  $saleamount"; } print(" $Saletext\n"); } else { if ($pricestyle eq "Bold") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricestyle eq "Italic") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricestyle eq "Typewriter") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } if ($pricesize eq "Big") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricesize eq "Small") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } print("\n$price "); if ($pastring ne "") { print(" $pastring "); } } } if ((&Field('Display SKU?') eq "checked") && ($sku)) { if ($skustyle eq "Bold") { $sku = "".$sku.""; } elsif ($skustyle eq "Italic") { $sku = "".$sku.""; } elsif ($skustyle eq "Typewriter") { $sku = "".$sku.""; } if ($skusize eq "Big") { $sku = "".$sku.""; } elsif ($skusize eq "Small") { $sku = "".$sku.""; } print("\n$sku "); } if ($PRODUCT_TYPE == $SSM_PRO){ $OrderBtn = &Field('Order Button'); $CheckoutBtn = &Field('Checkout Button'); } else { $OrderBtn = $Order; $CheckoutBtn = $Checkout; } if ($OrderBtn ne "") { print ("$OrderBtn "); } if ($CheckoutBtn ne "") { print ("$CheckoutBtn"); } if ($description) { if ($descstyle eq "Bold") { $description = "".$description.""; } elsif ($descstyle eq "Italic") { $description = "".$description.""; } elsif ($descstyle eq "Typewriter") { $description = "".$description.""; } if ($descsize eq "Big") { $description = "".$description.""; } elsif ($descsize eq "Small") { $description = "".$description.""; } print ("\n
$description\n"); } } if ($moretag) { if (!(-e "$OUTPUT_DIR/$filename") || (!(-M "$OUTPUT_DIR/$filename" <= 0) && (&IsIn($num, "products")) ) ) { $message = sprintf(&plSSMsgCatGet(SSMSGErrOpeningDirFile, "Error opening %s/%s"), $OUTPUT_DIR, $filename); &NewFile("$OUTPUT_DIR/$filename") || die $message; print < $strippedname SubProdOne &EmitFile("$DATA_DIR/uheader.dat"); if ($CURALIGN eq "center") { print("
\n"); } local($moregraphic) = &Field('More information graphic'); if ((&Field('Display Graphic?') eq "checked") && ($moregraphic ne "none")) { if ($CURALIGN eq "right") { (($moregraphic =~ s/\balign="?(.*)"?\b/align=right/g) || ($moregraphic.=" align=right")); } elsif ($CURALIGN eq "left") { (($moregraphic =~ s/\balign="?(.*)"?\b/align=left/g) || ($moregraphic.=" align=left")); } print("\n"); if ($CURALIGN eq "center") { print("
\n"); } } if (&Field('Display Name?') eq "checked") { $name = &Field('Name'); print("\n

$name


\n"); } if ($moretext) { if ($descstyle eq "Bold") { $moretext = "".$moretext.""; } elsif ($descstyle eq "Italic") { $moretext = "".$moretext.""; } elsif ($descstyle eq "Typewriter") { $moretext = "".$moretext.""; } if ($descsize eq "Big") { $moretext = "".$moretext.""; } elsif ($descsize eq "Small") { $moretext = "".$moretext.""; } } local(@SUBITEMS2); $SUBITEMS2[0]=undef; $SUBITEMS2[1]=undef; &ResetRecord; @SUBITEMS2 = &NextItem; local($numitems) = &GetItem(*CUR_DB, *CUR_REC); if ($numitems > 0) { print ("\n
\n"); print ("$moretext\n
\n"); do { if (!defined($SUBITEMS2[0]) || !defined($SUBITEMS2[1])) { last; } &NewDB( $SUBITEMS2[0] ); &SetRecord( $SUBITEMS2[1] ); if (&Field('Display Name?') eq "checked") { $subname = &Field('Name'); print("\n$subname "); } if (&Field('Display Price?') eq "checked") { $subprice = &Field('Price'); $subsaleon = &Field('Sale On'); $subsaleamount = &Field('Sale Amount'); if ($subprice) { if (index($delimiter,"Comma",0)>= 0 ) { $subprice =~ s/\./\,/; } $pstring = &pricestring($subprice); $pastring = &apricestring($subprice); if (($subsaleon eq "checked") && ($subsaleamount)) { $subsaleamount = &CalcSale($subprice,$subsaleamount); $spstring = &pricestring($subsaleamount); $spastring = &apricestring($subsaleamount); $subprice = "".$pstring.""; $subsaleamount = "".$spstring.""; print "\n$subprice $subsaleamount"; if ($pastring ne "") { $subprice = " ".$pastring.""; $subsaleamount = "".$spastring.""; print "$subprice  $subsaleamount"; } print(" $Saletext\n"); } else { print("$pstring "); if ($pastring ne "") { print("  $pastring "); } } } } if ($PRODUCT_TYPE == $SSM_PRO){ $SubOrderBtn = &Field('Order Button'); $SubCheckoutBtn = &Field('Checkout Button'); } else { $SubOrderBtn = $Order; $SubCheckoutBtn = $Checkout; } if ($SubOrderBtn ne ""){ print ("$SubOrderBtn "); } if ($SubCheckoutBtn ne "") { print ("$SubCheckoutBtn"); } print("
"); &EndNewDB; $SUBITEMS2[0]=undef; $SUBITEMS2[1]=undef; @SUBITEMS2 = &NextItem; }while ($SUBITEMS2[0]); } else { if ((&Field('Display Price?') eq "checked") && ($price)) { $price = &Field('Price'); $pstring = &pricestring($price); $pastring = &apricestring($price); if (($saleon eq "checked") && ($saleamount)) { $saleamount = &Field('Sale Amount'); $saleamount = &CalcSale($price,$saleamount); $spstring = &pricestring($saleamount); $spastring = &apricestring($saleamount); $price = "".$pstring.""; $saleamount = "".$spstring.""; print "\n$price $saleamount"; if ($pastring ne "") { $price = " ".$pastring.""; $saleamount = "".$spastring.""; print "$price  $saleamount"; } print(" $Saletext
\n"); } else { print("\n$pstring"); if ($pastring ne "") { print("  $pastring"); } print("
\n"); } } if ((&Field('Display SKU?') eq "checked") && ($sku)) { print("\n$sku\n
\n"); } if ($moretext) { print ("\n
$moretext\n
\n"); } print ("
\n"); if ($OrderBtn ne "") { print ("$OrderBtn "); } if ($CheckoutBtn ne ""){ print ("$CheckoutBtn"); } print ("
\n"); } if ($CURALIGN eq "center") { print("
\n"); } &EmitFile("$DATA_DIR/ufooter.dat"); print("\n\n"); &EndNewFile } } 1; e local($num) = $CUR_REC{'number'}; local($name) = &Field('Name'); local($strippedname) = &IgnoreHTML($name); printf STDOUT &plSSMsgCatGet(SSMSGAddingProduct, "\n
Adding Product [%s]...\n"), $name; local($filename) = &Field('File name'); if (!($filename =~ /\S+/)) { $filename = "product".$num.".html"; } local($image) = &Field('Graphic'); local($description) = &Field('Product Description'); local($namestyle) = &Field('Name Style'); local($namesize) = &Field('Name Size'); local($price) = &Field('Price'); if ($delimiter eq "Comma") { $price =~ s/\./\,/; } local($pricestyle) = &Field('Price Style'); local($pricesize) = &Field('Price Size'); local($sku) = &Field('SKU'); local($skustyle) = &Field('SKU Style'); local($skusize) = &Field('SKU Size'); local($descstyle) = &Field('Description Style'); local($descsize) = &Field('Description Size'); local($textwrap) = &Field('Text Wrap'); local($moreinfo) = &Field('Display more information page?'); local($moretext) = &Field('More information text'); local($moretag); local($OrderBtn); local($CheckoutBtn); local($saleamount) = &Field('Sale Amount'); local($saleon) = &Field('Sale On'); local($pstring); local($pastring); local($spstring); local($spastring); if ($moreinfo eq "checked") { $moretag=""; } print < EoStuffOne if ((&Field('Display Graphic?') eq "checked") && ($image ne "none")) { if ($moretag) { print("$moretag"); print(""); print("
\n"); } else { print("
\n"); } } if ((&Field('Display Name?') eq "checked") && ($name)) { if ($namestyle eq "Bold") { $name = "".$name.""; } elsif ($namestyle eq "Italic") { $name = "".$name.""; } elsif ($namestyle eq "Typewriter") { $name = "".$name.""; } if ($namesize eq "Big") { $name = "".$name.""; } elsif ($namesize eq "Small") { $name = "".$name.""; } if ($moretag) { print("\n$moretag"); print("$name"); print(" "); } else { print("\n$name "); } } local(@SUBITEMS); $SUBITEMS[0]=undef; $SUBITEMS[1]=undef; @SUBITEMS = &NextItem; local($numitems) = &GetItem(*CUR_DB, *CUR_REC); if ($numitems > 0) { print ("\n
\n"); local($subname, $subprice); local($SubOrderBtn); local($SubCheckoutBtn); if ($description) { print ("$description\n
\n"); } do { if (!defined($SUBITEMS[0]) || !defined($SUBITEMS[1])) { last; } &NewDB( $SUBITEMS[0] ); &SetRecord( $SUBITEMS[1] ); if (&Field('Display Name?') eq "checked") { $subname = &Field('Name'); print("\n$subname "); } if (&Field('Display Price?') eq "checked") { $subprice = &Field('Price'); $subsaleon = &Field('Sale On'); $subsaleamount = &Field('Sale Amount'); if ($subprice) { if ($delimter eq "Comma") { $subprice =~ s/\./\,/; } $pstring = &pricestring($subprice); $pastring = &apricestring($subprice); if (($subsaleon eq "checked") && ($subsaleamount)) { $subsaleamount = &CalcSale($subprice,$subsaleamount); $spstring = &pricestring($subsaleamount); $spastring = &apricestring($subsaleamount); $subprice = "".$pstring.""; $subsaleamount = "".$spstring.""; print "\n$subprice $subsaleamount"; if ($pastring ne "") { $subprice = " ".$pastring.""; $subsaleamount = "".$spastring.""; print "$subprice  $subsaleamount"; } print(" $Saletext\n"); } else { print("$pstring "); if ($pastring ne "") { print(" $pastring "); } } } } if ($PRODUCT_TYPE == $SSM_PRO){ $SubOrderBtn = &Field('Order Button'); $SubCheckoutBtn = &Field('Checkout Button'); } else { $SubOrderBtn = $Order; $SubCheckoutBtn = $Checkout; } if ($SubOrderBtn ne "") { print ("$SubOrderBtn "); } if ($SubCheckoutBtn ne "") { print ("$SubCheckoutBtn\n"); } print("
"); &EndNewDB; $SUBITEMS[0]=undef; $SUBITEMS[1]=undef; @SUBITEMS = &NextItem }while ($SUBITEMS[0]); } else { if ((&Field('Display Price?') eq "checked") && ($price)) { $pstring = &pricestring($price); $pastring = &apricestring($price); if (($saleon eq "checked") && ($saleamount)) { $saleamount = &CalcSale($price,$saleamount); $spstring = &pricestring($saleamount); $spastring = &apricestring($saleamount); $price = "".$pstring.""; $saleamount = "".$spstring.""; print "\n$price $saleamount"; if ($pastring ne "") { $price = " ".$pastring.""; $saleamount = "".$spastring.""; print "$price  $saleamount"; } print(" $Saletext\n"); } else { if ($pricestyle eq "Bold") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricestyle eq "Italic") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricestyle eq "Typewriter") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } if ($pricesize eq "Big") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricesize eq "Small") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } print("\n$price "); if ($pastring ne "") { print(" $pastring "); } } } if ((&Field('Display SKU?') eq "checked") && ($sku)) { if ($skustyle eq "Bold") { $sku = "".$sku.""; } elsif ($skustyle eq "Italic") { $sku = "".$sku.""; } elsif ($skustyle eq "Typewriter") { $sku = "".$sku.""; } if ($skusize eq "Big") { $sku = "".$sku.""; } elsif ($skusize eq "Small") { $sku = "".$sku.""; } print("\n$sku "); } if ($PRODUCT_TYPE == $SSM_PRO){ $OrderBtn = &Field('Order Button'); $CheckoutBtn = &Field('Checkout Button'); } else { $OrderBtn = $Order; $CheckoutBtn = $Checkout; } if ($OrderBtn ne "") { print ("$OrderBtn "); } if ($CheckoutBtn ne "") { print ("$CheckoutBtn\n"); } if($description) { if ($descstyle eq "Bold") { $description = "".$description.""; } elsif ($descstyle eq "Italic") { $description = "".$description.""; } elsif ($descstyle eq "Typewriter") { $description = "".$description.""; } if ($descsize eq "Big") { $description = "".$description.""; } elsif ($descsize eq "Small") { $description = "".$description.""; } print ("\n
$description\n"); } } if ($moretag) { if (!(-e "$OUTPUT_DIR/$filename") || (!(-M "$OUTPUT_DIR/$filename" <= 0) && (&IsIn($num, "products")) ) ) { $message = sprintf(&plSSMsgCatGet(SSMSGErrOpeningDirFile, "Error opening %s/%s"), $OUTPUT_DIR, $filename); &NewFile("$OUTPUT_DIR/$filename") || die $message; print < $strippedname SubProdOne &EmitFile("$DATA_DIR/uheader.dat"); if ($CURALIGN eq "center") { print("
\n"); } local($moregraphic) = &Field('More information graphic'); if ((&Field('Display Graphic?') eq "checked") && ($moregraphic ne "none")) { if ($CURALIGN eq "right") { (($moregraphic =~ s/\balign="?(.*)"?\b/align=right/g) || ($moregraphic.=" align=right")); } elsif ($CURALIGN eq "left") { (($moregraphic =~ s/\balign="?(.*)"?\b/align=left/g) || ($moregraphic.=" align=left")); } print("\n"); if ($CURALIGN eq "center") { print("
\n"); } } if ((&Field('Display Name?') eq "checked") && ($name)) { $name = &Field('Name'); print("\n

$name


\n"); } if ($moretext) { if ($descstyle eq "Bold") { $moretext = "".$moretext.""; } elsif ($descstyle eq "Italic") { $moretext = "".$moretext.""; } elsif ($descstyle eq "Typewriter") { $moretext = "".$moretext.""; } if ($descsize eq "Big") { $moretext = "".$moretext.""; } elsif ($descsize eq "Small") { $moretext = "".$moretext.""; } } local(@SUBITEMS2); $SUBITEMS2[0]=undef; $SUBITEMS2[1]=undef; &ResetRecord; @SUBITEMS2 = &NextItem; local($numitems) = &GetItem(*CUR_DB, *CUR_REC); if ($numitems > 0) { print ("\n
\n"); if ($moretext) { print ("$moretext\n
\n"); } do { if (!defined($SUBITEMS2[0]) || !defined($SUBITEMS2[1])) { last; } &NewDB( $SUBITEMS2[0] ); &SetRecord( $SUBITEMS2[1] ); if (&Field('Display Name?') eq "checked") { $subname = &Field('Name'); print("\n$subname "); } if (&Field('Display Price?') eq "checked") { $subprice = &Field('Price'); $subsaleon = &Field('Sale On'); $subsaleamount = &Field('Sale Amount'); if ($subprice) { if ($delimiter eq "Comma") { $subprice =~ s/\./\,/; } $pstring = &pricestring($subprice); $pastring = &apricestring($subprice); if (($subsaleon eq "checked") && ($subsaleamount)) { $subsaleamount = &CalcSale($subprice,$subsaleamount); $spstring = &pricestring($subsaleamount); $spastring = &apricestring($subsaleamount); $subprice = "".$pstring.""; $subsaleamount = "".$spstring.""; print "\n$subprice $subsaleamount"; if ($pastring ne "") { $subprice = " ".$pastring.""; $subsaleamount = "".$spastring.""; print "$subprice  $subsaleamount"; } print(" $Saletext\n"); } else { print("$pstring "); if ($pastring ne "") { print("  $pastring "); } } } } if ($PRODUCT_TYPE == $SSM_PRO){ $SubOrderBtn = &Field('Order Button'); $SubCheckoutBtn = &Field('Checkout Button'); } else { $SubOrderBtn = $Order; $SubCheckoutBtn = $Checkout; } if ($SubOrderBtn ne ""){ print ("$SubOrderBtn "); } if ($SubCheckoutBtn ne "") { print ("$SubCheckoutBtn\n"); } print("
"); &EndNewDB; $SUBITEMS2[0]=undef; $SUBITEMS2[1]=undef; $SUBITEMS2 = &NextItem; }while (@SUBITEMS2[0]); } else { if ((&Field('Display Price?') eq "checked") && ($price)) { $price = &Field('Price'); $pstring = &pricestring($price); $pastring = &apricestring($price); if (($saleon eq "checked") && ($saleamount)) { $saleamount = &Field('Sale Amount'); $saleamount = &CalcSale($price,$saleamount); $spstring = &pricestring($saleamount); $spastring = &apricestring($saleamount); $price = "".$pstring.""; $saleamount = "".$spstring.""; print "\n$price $saleamount"; if ($pastring ne "") { $price = " ".$pastring.""; $saleamount = "".$spastring.""; print "$price  $saleamount"; } print(" $Saletext
\n"); } else { print("\n$pstring"); if ($pastring ne "") { print("  $pastring"); } print("
\n"); } } if ((&Field('Display SKU?') eq "checked") && ($sku)) { print("\n$sku\n
\n"); } if ($moretext) { print ("\n
$moretext\n
\n"); } print ("
\n"); if ($OrderBtn ne "") { print ("$OrderBtn "); } if ($CheckoutBtn ne "") { print ("$CheckoutBtn\n"); } print ("
\n"); } if ($CURALIGN eq "center") { print("
\n"); } &EmitFile("$DATA_DIR/ufooter.dat"); print("\n\n"); &EndNewFile } } 1; !e local($num) = $CUR_REC{'number'}; local($name) = &Field('Name'); local($strippedname) = &IgnoreHTML($name); printf STDOUT &plSSMsgCatGet(SSMSGAddingProduct, "\n
Adding Product [%s]...\n"), $name; local($filename) = &Field('File name'); if (!($filename =~ /\S+/)) { $filename = "product".$num.".html"; } local($image) = &Field('Graphic'); local($description) = &Field('Product Description'); local($namestyle) = &Field('Name Style'); local($namesize) = &Field('Name Size'); local($price) = &Field('Price'); if (index($delimiter,"Comma",0) >= 0 ) {$price =~ s/\./\,/; } local($pricestyle) = &Field('Price Style'); local($pricesize) = &Field('Price Size'); local($sku) = &Field('SKU'); local($skustyle) = &Field('SKU Style'); local($skusize) = &Field('SKU Size'); local($descstyle) = &Field('Description Style'); local($descsize) = &Field('Description Size'); local($textwrap) = &Field('Text Wrap'); local($moreinfo) = &Field('Display more information page?'); local($moretext) = &Field('More information text'); local($moretag); local($OrderBtn); local($CheckoutBtn); local($saleamount) = &Field('Sale Amount'); local($saleon) = &Field('Sale On'); local($pstring); local($pastring); local($spstring); local($spastring); if ($moreinfo eq "checked") { $moretag=""; } print < EoStuffOne if ((&Field('Display Graphic?') eq "checked") && ($image ne "none")) { if ($moretag) { print("$moretag"); print(""); print("\n"); } else { print("\n"); } } if ((&Field('Display Name?') eq "checked") && ($name)) { if ($namestyle eq "Bold") { $name = "".$name.""; } elsif ($namestyle eq "Italic") { $name = "".$name.""; } elsif ($namestyle eq "Typewriter") { $name = "".$name.""; } if ($namesize eq "Big") { $name = "".$name.""; } elsif ($namesize eq "Small") { $name = "".$name.""; } if ($moretag) { print("\n$moretag"); print("$name"); print("\n"); } else { print("\n$name\n"); } } local(@SUBITEMS); $SUBITEMS[0]=undef; $SUBITEMS[1]=undef; @SUBITEMS = &NextItem; local($numitems) = &GetItem(*CUR_DB, *CUR_REC); if ($numitems > 0) { print ("\n
\n"); local($subname, $subprice); local($SubOrderBtn); local($SubCheckoutBtn); if ($description) { print ("$description\n
\n"); } do { if (!defined($SUBITEMS[0]) || !defined($SUBITEMS[1])) { last; } &NewDB( $SUBITEMS[0] ); &SetRecord( $SUBITEMS[1] ); if (&Field('Display Name?') eq "checked") { $subname = &Field('Name'); print("\n$subname "); } if (&Field('Display Price?') eq "checked") { $subprice = &Field('Price'); $subsaleon = &Field('Sale On'); $subsaleamount = &Field('Sale Amount'); if ($subprice) { if (index($delimiter,"Comma",0)>= 0 ) { $subprice =~ s/\./\,/; } $pstring = &pricestring($subprice); $pastring = &apricestring($subprice); if (($subsaleon eq "checked") && ($subsaleamount)) { $subsaleamount = &CalcSale($subprice,$subsaleamount); $spstring = &pricestring($subsaleamount); $spastring = &apricestring($subsaleamount); $subprice = "".$pstring.""; $subsaleamount = "".$spstring.""; print "\n$subprice $subsaleamount"; if ($pastring ne "") { $subprice = " ".$pastring.""; $subsaleamount = "".$spastring.""; print "$subprice  $subsaleamount"; } print(" $Saletext\n"); } else { print("$pstring "); if ($pastring ne "") { print(" $pastring "); } } } } if ($PRODUCT_TYPE == $SSM_PRO){ $SubOrderBtn = &Field('Order Button'); $SubCheckoutBtn = &Field('Checkout Button'); } else { $SubOrderBtn = $Order; $SubCheckoutBtn = $Checkout; } if ($SubOrderBtn ne "") { print ("$SubOrderBtn "); } if ($SubCheckoutBtn ne "") { print ("$SubCheckoutBtn\n"); } print("
"); &EndNewDB; $SUBITEMS[0]=undef; $SUBITEMS[1]=undef; @SUBITEMS = &NextItem; }while ($SUBITEMS[0]); } else { if ((&Field('Display Price?') eq "checked") && ($price)) { $pstring = &pricestring($price); $pastring = &apricestring($price); if (($saleon eq "checked") && ($saleamount)) { $saleamount = &CalcSale($price,$saleamount); $spstring = &pricestring($saleamount); $spastring = &apricestring($saleamount); $price = "".$pstring.""; $saleamount = "".$spstring.""; print "\n$price $saleamount"; if ($pastring ne "") { $price = " ".$pastring.""; $saleamount = "".$spastring.""; print "$price  $saleamount"; } print(" $Saletext \n"); } else { if ($pricestyle eq "Bold") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricestyle eq "Italic") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricestyle eq "Typewriter") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } if ($pricesize eq "Big") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricesize eq "Small") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } print("\n$price "); if ($pastring ne "") { print(" $pastring "); } } } if ((&Field('Display SKU?') eq "checked") && ($sku)) { if ($skustyle eq "Bold") { $sku = "".$sku.""; } elsif ($skustyle eq "Italic") { $sku = "".$sku.""; } elsif ($skustyle eq "Typewriter") { $sku = "".$sku.""; } if ($skusize eq "Big") { $sku = "".$sku.""; } elsif ($skusize eq "Small") { $sku = "".$sku.""; } print("\n$sku \n"); } if($description) { if ($descstyle eq "Bold") { $description = "".$description.""; } elsif ($descstyle eq "Italic") { $description = "".$description.""; } elsif ($descstyle eq "Typewriter") { $description = "".$description.""; } if ($descsize eq "Big") { $description = "".$description.""; } elsif ($descsize eq "Small") { $description = "".$description.""; } print ("\n
$description\n
\n"); } if ($PRODUCT_TYPE == $SSM_PRO){ $OrderBtn = &Field('Order Button'); $CheckoutBtn = &Field('Checkout Button'); } else { $OrderBtn = $Order; $CheckoutBtn = $Checkout; } if ($OrderBtn ne "") { print ("$OrderBtn "); } if ($CheckoutBtn ne "") { print ("$CheckoutBtn\n"); } } if ($moretag) { if (!(-e "$OUTPUT_DIR/$filename") || (!(-M "$OUTPUT_DIR/$filename" <= 0) && (&IsIn($num, "products")) ) ) { $message = sprintf(&plSSMsgCatGet(SSMSGErrOpeningDirFile, "Error opening %s/%s"), $OUTPUT_DIR, $filename); &NewFile("$OUTPUT_DIR/$filename") || die $message; print < $strippedname SubProdOne &EmitFile("$DATA_DIR/uheader.dat"); if ($CURALIGN eq "center") { print("
\n"); } local($moregraphic) = &Field('More information graphic'); if ((&Field('Display Graphic?') eq "checked") && ($moregraphic ne "none")) { if ($CURALIGN eq "right") { (($moregraphic =~ s/\balign="?(.*)"?\b/align=right/g) || ($moregraphic.=" align=right")); } elsif ($CURALIGN eq "left") { (($moregraphic =~ s/\balign="?(.*)"?\b/align=left/g) || ($moregraphic.=" align=left")); } print("\n"); if ($CURALIGN eq "center") { print("
\n"); } } if ((&Field('Display Name?') eq "checked") && ($name)) { $name = &Field('Name'); print("\n

$name


\n"); } if ($moretext) { if ($descstyle eq "Bold") { $moretext = "".$moretext.""; } elsif ($descstyle eq "Italic") { $moretext = "".$moretext.""; } elsif ($descstyle eq "Typewriter") { $moretext = "".$moretext.""; } if ($descsize eq "Big") { $moretext = "".$moretext.""; } elsif ($descsize eq "Small") { $moretext = "".$moretext.""; } } local(@SUBITEMS2); $SUBITEMS2[0]=undef; $SUBITEMS2[1]=undef; &ResetRecord; @SUBITEMS2 = &NextItem; local($numitems) = &GetItem(*CUR_DB, *CUR_REC); if ($numitems > 0) { print ("\n
\n"); if ($moretext) { print ("$moretext\n
\n"); } do { if (!defined($SUBITEMS2[0]) || !defined($SUBITEMS2[1])) { last; } &NewDB( $SUBITEMS2[0] ); &SetRecord( $SUBITEMS2[1] ); if (&Field('Display Name?') eq "checked") { $subname = &Field('Name'); print("\n$subname "); } if (&Field('Display Price?') eq "checked") { $subprice = &Field('Price'); $subsaleon = &Field('Sale On'); $subsaleamount = &Field('Sale Amount'); if ($subprice) { if (index($delimiter,"Comma",0)>= 0 ) { $subprice =~ s/\./\,/; } $pstring = &pricestring($subprice); $pastring = &apricestring($subprice); if (($subsaleon eq "checked") && ($subsaleamount)) { $subsaleamount = &CalcSale($subprice,$subsaleamount); $spstring = &pricestring($subsaleamount); $spastring = &apricestring($subsaleamount); $subprice = "".$pstring.""; $subsaleamount = "".$spstring.""; print "\n$subprice $subsaleamount"; if ($pastring ne "") { $subprice = " ".$pastring.""; $subsaleamount = "".$spastring.""; print "$subprice  $subsaleamount"; } print(" $Saletext\n"); } else { print("$pstring "); if ($pastring ne "") { print("  $pastring "); } } } } if ($PRODUCT_TYPE == $SSM_PRO){ $SubOrderBtn = &Field('Order Button'); $SubCheckoutBtn = &Field('Checkout Button'); } else { $SubOrderBtn = $Order; $SubCheckoutBtn = $Checkout; } if ($SubOrderBtn ne ""){ print ("$SubOrderBtn "); } if ($SubCheckoutBtn ne "") { print ("$SubCheckoutBtn\n"); } print("
"); &EndNewDB; $SUBITEMS2[0]=undef; $SUBITEMS2[1]=undef; @SUBITEMS2 = &NextItem; }while ($SUBITEMS2[0]); } else { if ((&Field('Display Price?') eq "checked") && ($price)) { $price = &Field('Price'); $pstring = &pricestring($price); $pastring = &apricestring($price); if (($saleon eq "checked") && ($saleamount)) { $saleamount = &Field('Sale Amount'); $saleamount = &CalcSale($price,$saleamount); $spstring = &pricestring($saleamount); $spastring = &apricestring($saleamount); $price = "".$pstring.""; $saleamount = "".$spstring.""; print "\n$price $saleamount"; if ($pastring ne "") { $price = " ".$pastring.""; $saleamount = "".$spastring.""; print "$price  $saleamount"; } print(" $Saletext
\n"); } else { print("\n$pstring"); if ($pastring ne "") { print("  $pastring"); } print("
\n"); } } if ((&Field('Display SKU?') eq "checked") && ($sku)) { print("\n$sku\n
\n"); } print ("\n
$moretext\n
\n"); print ("
\n"); if ($OrderBtn ne "") { print ("$OrderBtn "); } if ($CheckoutBtn ne "") { print ("$CheckoutBtn\n"); } print ("
\n"); } if ($CURALIGN eq "center") { print("
\n"); } &EmitFile("$DATA_DIR/ufooter.dat"); print("\n\n"); &EndNewFile } } 1; Fe local($num) = $CUR_REC{'number'}; local($name) = &Field('Name'); local($strippedname) = &IgnoreHTML($name); printf STDOUT &plSSMsgCatGet(SSMSGAddingProduct, "\n
Adding Product [%s]...\n"), $name; local($filename) = &Field('File name'); if (!($filename =~ /\S+/)) { $filename = "product".$num.".html"; } local($image) = &Field('Graphic'); local($description) = &Field('Product Description'); local($namestyle) = &Field('Name Style'); local($namesize) = &Field('Name Size'); local($price) = &Field('Price'); if (index($delimiter,"Comma",0) >= 0 ) {$price =~ s/\./\,/; } local($pricestyle) = &Field('Price Style'); local($pricesize) = &Field('Price Size'); local($sku) = &Field('SKU'); local($skustyle) = &Field('SKU Style'); local($skusize) = &Field('SKU Size'); local($descstyle) = &Field('Description Style'); local($descsize) = &Field('Description Size'); local($textwrap) = &Field('Text Wrap'); local($moreinfo) = &Field('Display more information page?'); local($moretext) = &Field('More information text'); local($moretag); local($OrderBtn); local($CheckoutBtn); local($saleamount) = &Field('Sale Amount'); local($saleon) = &Field('Sale On'); local($pstring); local($pastring); local($spstring); local($spastring); if ($moreinfo eq "checked") { $moretag=""; } print < EoStuffOne if ((&Field('Display Graphic?') eq "checked") && ($image ne "none")) { if ($moretag) { print("$moretag"); print(""); print("
\n"); } else { print("
\n"); } } if ((&Field('Display Name?') eq "checked") && ($name)) { if ($namestyle eq "Bold") { $name = "".$name.""; } elsif ($namestyle eq "Italic") { $name = "".$name.""; } elsif ($namestyle eq "Typewriter") { $name = "".$name.""; } if ($namesize eq "Big") { $name = "".$name.""; } elsif ($namesize eq "Small") { $name = "".$name.""; } if ($moretag) { print("\n$moretag"); print("$name"); print("\n"); } else { print("\n$name\n"); } } local(@SUBITEMS); $SUBITEMS[0]=undef; $SUBITEMS[1]=undef; @SUBITEMS = &NextItem; local($numitems) = &GetItem(*CUR_DB, *CUR_REC); if ($numitems > 0) { print ("\n
\n"); local($subname, $subprice); local($SubOrderBtn); local($SubCheckoutBtn); if ($description) { print ("$description\n
\n"); } do { if (!defined($SUBITEMS[0]) || !defined($SUBITEMS[1])) { last; } &NewDB( $SUBITEMS[0] ); &SetRecord( $SUBITEMS[1] ); if (&Field('Display Name?') eq "checked") { $subname = &Field('Name'); print("\n$subname "); } if (&Field('Display Price?') eq "checked") { $subprice = &Field('Price'); $subsaleon = &Field('Sale On'); $subsaleamount = &Field('Sale Amount'); if ($subprice) { if (index($delimiter,"Comma",0)>= 0 ) { $subprice =~ s/\./\,/; } $pstring = &pricestring($subprice); $pastring = &apricestring($subprice); if (($subsaleon eq "checked") && ($subsaleamount)) { $subsaleamount = &CalcSale($subprice,$subsaleamount); $spstring = &pricestring($subsaleamount); $spastring = &apricestring($subsaleamount); $subprice = "".$pstring.""; $subsaleamount = "".$spstring.""; print "\n$subprice $subsaleamount"; if ($pastring ne "") { $subprice = " ".$pastring.""; $subsaleamount = "".$spastring.""; print "$subprice  $subsaleamount"; } print(" $Saletext\n"); } else { print("$pstring "); if ($pastring ne "") { print(" $pastring "); } } } } if ($PRODUCT_TYPE == $SSM_PRO){ $SubOrderBtn = &Field('Order Button'); $SubCheckoutBtn = &Field('Checkout Button'); } else { $SubOrderBtn = $Order; $SubCheckoutBtn = $Checkout; } if ($SubOrderBtn ne "") { print ("$SubOrderBtn "); } if ($SubCheckoutBtn ne "") { print ("$SubCheckoutBtn\n"); } print("
"); &EndNewDB; $SUBITEMS[0]=undef; $SUBITEMS[1]=undef; @SUBITEMS = &NextItem; }while ($SUBITEMS[0]); } else { if ((&Field('Display Price?') eq "checked") && ($price)) { $pstring = &pricestring($price); $pastring = &apricestring($price); if (($saleon eq "checked") && ($saleamount)) { $saleamount = &CalcSale($price,$saleamount); $spstring = &pricestring($saleamount); $spastring = &apricestring($saleamount); $price = "".$pstring.""; $saleamount = "".$spstring.""; print "\n$price $saleamount"; if ($pastring ne "") { $price = " ".$pastring.""; $saleamount = "".$spastring.""; print "$price  $saleamount"; } print(" $Saletext \n"); } else { if ($pricestyle eq "Bold") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricestyle eq "Italic") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricestyle eq "Typewriter") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } if ($pricesize eq "Big") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricesize eq "Small") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } print("\n$price "); if ($pastring ne "") { print(" $pastring "); } } } if ((&Field('Display SKU?') eq "checked") && ($sku)) { if ($skustyle eq "Bold") { $sku = "".$sku.""; } elsif ($skustyle eq "Italic") { $sku = "".$sku.""; } elsif ($skustyle eq "Typewriter") { $sku = "".$sku.""; } if ($skusize eq "Big") { $sku = "".$sku.""; } elsif ($skusize eq "Small") { $sku = "".$sku.""; } print("\n$sku\n"); } if ($description) { if ($descstyle eq "Bold") { $description = "".$description.""; } elsif ($descstyle eq "Italic") { $description = "".$description.""; } elsif ($descstyle eq "Typewriter") { $description = "".$description.""; } if ($descsize eq "Big") { $description = "".$description.""; } elsif ($descsize eq "Small") { $description = "".$description.""; } print ("\n
$description\n
\n"); } if ($PRODUCT_TYPE == $SSM_PRO){ $OrderBtn = &Field('Order Button'); $CheckoutBtn = &Field('Checkout Button'); } else { $OrderBtn = $Order; $CheckoutBtn = $Checkout; } if ($OrderBtn ne "") { print ("$OrderBtn "); } if ($CheckoutBtn ne "") { print ("$CheckoutBtn\n"); } } if ($moretag) { if (!(-e "$OUTPUT_DIR/$filename") || (!(-M "$OUTPUT_DIR/$filename" <= 0) && (&IsIn($num, "products")) ) ) { $message = sprintf(&plSSMsgCatGet(SSMSGErrOpeningDirFile, "Error opening %s/%s"), $OUTPUT_DIR, $filename); &NewFile("$OUTPUT_DIR/$filename") || die $message; print < $strippedname SubProdOne &EmitFile("$DATA_DIR/uheader.dat"); if ($CURALIGN eq "center") { print("
\n"); } local($moregraphic) = &Field('More information graphic'); if ((&Field('Display Graphic?') eq "checked") && ($moregraphic ne "none")) { if ($CURALIGN eq "right") { (($moregraphic =~ s/\balign="?(.*)"?\b/align=right/g) || ($moregraphic.=" align=right")); } elsif ($CURALIGN eq "left") { (($moregraphic =~ s/\balign="?(.*)"?\b/align=left/g) || ($moregraphic.=" align=left")); } print("\n"); if ($CURALIGN eq "center") { print("
\n"); } } if (&Field('Display Name?') eq "checked") { $name = &Field('Name'); print("\n

$name


\n"); } if ($moretext) { if ($descstyle eq "Bold") { $moretext = "".$moretext.""; } elsif ($descstyle eq "Italic") { $moretext = "".$moretext.""; } elsif ($descstyle eq "Typewriter") { $moretext = "".$moretext.""; } if ($descsize eq "Big") { $moretext = "".$moretext.""; } elsif ($descsize eq "Small") { $moretext = "".$moretext.""; } } local(@SUBITEMS2); $SUBITEMS2[0]=undef; $SUBITEMS2[1]=undef; &ResetRecord; @SUBITEMS2 = &NextItem; local($numitems) = &GetItem(*CUR_DB, *CUR_REC); if ($numitems > 0) { print ("\n
\n"); if($moretext) { print ("$moretext\n
\n"); } do { if (!defined($SUBITEMS2[0]) || !defined($SUBITEMS2[1])) { last; } &NewDB( $SUBITEMS2[0] ); &SetRecord( $SUBITEMS2[1] ); if (&Field('Display Name?') eq "checked") { $subname = &Field('Name'); print("\n$subname "); } if (&Field('Display Price?') eq "checked") { $subprice = &Field('Price'); $subsaleon = &Field('Sale On'); $subsaleamount = &Field('Sale Amount'); if($subprice) { if (index($delimiter,"Comma",0)>= 0 ) { $subprice =~ s/\./\,/; } } $pstring = &pricestring($subprice); $pastring = &apricestring($subprice); if (($subsaleon eq "checked") && ($subsaleamount)) { $subsaleamount = &CalcSale($subprice,$subsaleamount); $spstring = &pricestring($subsaleamount); $spastring = &apricestring($subsaleamount); $subprice = "".$pstring.""; $subsaleamount = "".$spstring.""; print "\n$subprice $subsaleamount"; if ($pastring ne "") { $subprice = " ".$pastring.""; $subsaleamount = "".$spastring.""; print "$subprice  $subsaleamount"; } print(" $Saletext\n"); } else { print("$pstring "); if ($pastring ne "") { print("  $pastring "); } } } if ($PRODUCT_TYPE == $SSM_PRO){ $SubOrderBtn = &Field('Order Button'); $SubCheckoutBtn = &Field('Checkout Button'); } else { $SubOrderBtn = $Order; $SubCheckoutBtn = $Checkout; } if ($SubOrderBtn ne ""){ print ("$SubOrderBtn "); } if ($SubCheckoutBtn ne "") { print ("$SubCheckoutBtn\n"); } print("
"); &EndNewDB; $SUBITEMS2[0]=undef; $SUBITEMS2[1]=undef; @SUBITEMS2 = &NextItem; }while ($SUBITEMS2[0]); } else { if ((&Field('Display Price?') eq "checked") && ($price)) { $price = &Field('Price'); $pstring = &pricestring($price); $pastring = &apricestring($price); if (($saleon eq "checked") && ($saleamount)) { $saleamount = &Field('Sale Amount'); $saleamount = &CalcSale($price,$saleamount); $spstring = &pricestring($saleamount); $spastring = &apricestring($saleamount); $price = "".$pstring.""; $saleamount = "".$spstring.""; print "\n$price $saleamount"; if ($pastring ne "") { $price = " ".$pastring.""; $saleamount = "".$spastring.""; print "$price  $saleamount"; } print(" $Saletext
\n"); } else { print("\n$pstring"); if ($pastring ne "") { print("  $pastring"); } print("
\n"); } } if ((&Field('Display SKU?') eq "checked") && ($price)) { $sku = &Field('SKU'); print("\n$sku\n
\n"); } if ($moretext) { print ("\n
$moretext\n
\n"); } print ("
\n"); if ($OrderBtn ne "") { print ("$OrderBtn "); } if ($CheckoutBtn ne "") { print ("$CheckoutBtn\n"); } print ("
\n"); } if ($CURALIGN eq "center") { print("
\n"); } &EmitFile("$DATA_DIR/ufooter.dat"); print("\n\n"); &EndNewFile } } 1; /e local($num) = $CUR_REC{'number'}; local($name) = &Field('Name'); local($strippedname) = &IgnoreHTML($name); printf STDOUT &plSSMsgCatGet(SSMSGAddingProduct, "\n
Adding Product [%s]...\n"), $name; local($filename) = &Field('File name'); if (!($filename =~ /\S+/)) { $filename = "product".$num.".html"; } local($image) = &Field('Graphic'); local($description) = &Field('Product Description'); local($namestyle) = &Field('Name Style'); local($namesize) = &Field('Name Size'); local($price) = &Field('Price'); if (index($delimiter,"Comma",0) >= 0 ) {$price =~ s/\./\,/; } local($pricestyle) = &Field('Price Style'); local($pricesize) = &Field('Price Size'); local($sku) = &Field('SKU'); local($skustyle) = &Field('SKU Style'); local($skusize) = &Field('SKU Size'); local($descstyle) = &Field('Description Style'); local($descsize) = &Field('Description Size'); local($textwrap) = &Field('Text Wrap'); local($moreinfo) = &Field('Display more information page?'); local($moretext) = &Field('More information text'); local($moretag); local($OrderBtn); local($CheckoutBtn); local($saleamount) = &Field('Sale Amount'); local($saleon) = &Field('Sale On'); local($pstring); local($pastring); local($spstring); local($spastring); if ($moreinfo eq "checked") { $moretag=""; } print < EoStuffOne if ((&Field('Display Graphic?') eq "checked") && ($image ne "none")) { if ($moretag) { print("$moretag"); print(""); print(" "); } else { print(" "); } } if ((&Field('Display Name?') eq "checked") && ($name)) { if ($namestyle eq "Bold") { $name = "".$name.""; } elsif ($namestyle eq "Italic") { $name = "".$name.""; } elsif ($namestyle eq "Typewriter") { $name = "".$name.""; } if ($namesize eq "Big") { $name = "".$name.""; } elsif ($namesize eq "Small") { $name = "".$name.""; } if ($moretag) { print("\n$moretag"); print("$name"); print(" "); } else { print("$name "); } } local(@SUBITEMS); $SUBITEMS[0]=undef; $SUBITEMS[1]=undef; @SUBITEMS = &NextItem; local($numitems) = &GetItem(*CUR_DB, *CUR_REC); if ($numitems > 0) { local($subname, $subprice); local($SubOrderBtn); local($SubCheckoutBtn); if ($description) { print ("$description "); } do { if (!defined($SUBITEMS[0]) || !defined($SUBITEMS[1])) { last; } print("
\n"); &NewDB( $SUBITEMS[0] ); &SetRecord( $SUBITEMS[1] ); if (&Field('Display Name?') eq "checked") { $subname = &Field('Name'); print("$subname "); } if (&Field('Display Price?') eq "checked") { $subprice = &Field('Price'); $subsaleon = &Field('Sale On'); $subsaleamount = &Field('Sale Amount'); if ($subprice) { if (index($delimiter,"Comma",0)>= 0 ) { $subprice =~ s/\./\,/; } $pstring = &pricestring($subprice); $pastring = &apricestring($subprice); if (($subsaleon eq "checked") && ($subsaleamount)) { $subsaleamount = &CalcSale($subprice,$subsaleamount); $spstring = &pricestring($subsaleamount); $spastring = &apricestring($subsaleamount); $subprice = "".$pstring.""; $subsaleamount = "".$spstring.""; print "\n$subprice $subsaleamount"; if ($pastring ne "") { $subprice = " ".$pastring.""; $subsaleamount = "".$spastring.""; print "$subprice  $subsaleamount"; } print(" $Saletext\n"); } else { print("$pstring "); if ($pastring ne "") { print(" $pastring "); } } } } if ($PRODUCT_TYPE == $SSM_PRO){ $SubOrderBtn = &Field('Order Button'); $SubCheckoutBtn = &Field('Checkout Button'); } else { $SubOrderBtn = $Order; $SubCheckoutBtn = $Checkout; } if ($SubOrderBtn ne "") { print ("$SubOrderBtn "); } if ($SubCheckoutBtn ne "") { print ("$SubCheckoutBtn\n"); } &EndNewDB; $SUBITEMS[0]=undef; $SUBITEMS[1]=undef; @SUBITEMS = &NextItem; }while ($SUBITEMS[0]); } else { if ((&Field('Display SKU?') eq "checked") && ($sku)) { if ($skustyle eq "Bold") { $sku = "".$sku.""; } elsif ($skustyle eq "Italic") { $sku = "".$sku.""; } elsif ($skustyle eq "Typewriter") { $sku = "".$sku.""; } if ($skusize eq "Big") { $sku = "".$sku.""; } elsif ($skusize eq "Small") { $sku = "".$sku.""; } print("$sku "); } if($description) { if ($descstyle eq "Bold") { $description = "".$description.""; } elsif ($descstyle eq "Italic") { $description = "".$description.""; } elsif ($descstyle eq "Typewriter") { $description = "".$description.""; } if ($descsize eq "Big") { $description = "".$description.""; } elsif ($descsize eq "Small") { $description = "".$description.""; } print ("$description "); } if ((&Field('Display Price?') eq "checked") && ($price)) { $pstring = &pricestring($price); $pastring = &apricestring($price); if (($saleon eq "checked") && ($saleamount)) { $saleamount = &CalcSale($price,$saleamount); $spstring = &pricestring($saleamount); $spastring = &apricestring($saleamount); $price = "".$pstring.""; $saleamount = "".$spstring.""; print "\n$price $saleamount"; if ($pastring ne "") { $price = " ".$pastring.""; $saleamount = "".$spastring.""; print "$price  $saleamount"; } print(" $Saletext \n"); } else { if ($pricestyle eq "Bold") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricestyle eq "Italic") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricestyle eq "Typewriter") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } if ($pricesize eq "Big") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } elsif ($pricesize eq "Small") { $price = "".$pstring.""; if ($pastring ne "") { $pastring = "".$pastring.""; } } print("\n$price "); if ($pastring ne "") { print(" $pastring "); } } } if ($PRODUCT_TYPE == $SSM_PRO){ $OrderBtn = &Field('Order Button'); $CheckoutBtn = &Field('Checkout Button'); } else { $OrderBtn = $Order; $CheckoutBtn = $Checkout; } if ($OrderBtn ne "") { print ("$OrderBtn "); } if ($CheckoutBtn ne "") { print ("$CheckoutBtn\n"); } } if ($moretag) { if (!(-e "$OUTPUT_DIR/$filename") || (!(-M "$OUTPUT_DIR/$filename" <= 0) && (&IsIn($num, "products")) ) ) { $message = sprintf(&plSSMsgCatGet(SSMSGErrOpeningDirFile, "Error opening %s/%s"), $OUTPUT_DIR, $filename); &NewFile("$OUTPUT_DIR/$filename") || die $message; print < $strippedname SubProdOne &EmitFile("$DATA_DIR/uheader.dat"); if ($CURALIGN eq "center") { print("
\n"); } local($moregraphic) = &Field('More information graphic'); if ((&Field('Display Graphic?') eq "checked") && ($moregraphic ne "none")) { if ($CURALIGN eq "right") { (($moregraphic =~ s/\balign="?(.*)"?\b/align=right/g) || ($moregraphic.=" align=right")); } elsif ($CURALIGN eq "left") { (($moregraphic =~ s/\balign="?(.*)"?\b/align=left/g) || ($moregraphic.=" align=left")); } print("\n"); if ($CURALIGN eq "center") { print("
\n"); } } if ((&Field('Display Name?') eq "checked") && ($name)) { $name = &Field('Name'); print("\n

$name


\n"); } if ($moretext) { if ($descstyle eq "Bold") { $moretext = "".$moretext.""; } elsif ($descstyle eq "Italic") { $moretext = "".$moretext.""; } elsif ($descstyle eq "Typewriter") { $moretext = "".$moretext.""; } if ($descsize eq "Big") { $moretext = "".$moretext.""; } elsif ($descsize eq "Small") { $moretext = "".$moretext.""; } } local(@SUBITEMS2); $SUBITEMS2[0]=undef; $SUBITEMS2[1]=undef; &ResetRecord; @SUBITEMS2 = &NextItem; local($numitems) = &GetItem(*CUR_DB, *CUR_REC); if ($numitems > 0) { print ("\n
\n"); if ($moretext) { print ("$moretext\n
\n"); } do { if (!defined($SUBITEMS2[0]) || !defined($SUBITEMS2[1])) { last; } &NewDB( $SUBITEMS2[0] ); &SetRecord( $SUBITEMS2[1] ); if (&Field('Display Name?') eq "checked") { $subname = &Field('Name'); print("\n$subname "); } if (&Field('Display Price?') eq "checked") { $subprice = &Field('Price'); $subsaleon = &Field('Sale On'); $subsaleamount = &Field('Sale Amount'); if ($subprice) { if (index($delimiter,"Comma",0)>= 0 ) { $subprice =~ s/\./\,/; } $pstring = &pricestring($subprice); $pastring = &apricestring($subprice); if (($subsaleon eq "checked") && ($subsaleamount)) { $subsaleamount = &CalcSale($subprice,$subsaleamount); $spstring = &pricestring($subsaleamount); $spastring = &apricestring($subsaleamount); $subprice = "".$pstring.""; $subsaleamount = "".$spstring.""; print "\n$subprice $subsaleamount"; if ($pastring ne "") { $subprice = " ".$pastring.""; $subsaleamount = "".$spastring.""; print "$subprice  $subsaleamount"; } print(" $Saletext\n"); } else { print("$pstring "); if ($pastring ne "") { print("  $pastring "); } } } } if ($PRODUCT_TYPE == $SSM_PRO){ $SubOrderBtn = &Field('Order Button'); $SubCheckoutBtn = &Field('Checkout Button'); } else { $SubOrderBtn = $Order; $SubCheckoutBtn = $Checkout; } if ($SubOrderBtn ne ""){ print ("$SubOrderBtn "); } if ($SubCheckoutBtn ne "") { print ("$SubCheckoutBtn\n"); } print("
"); &EndNewDB; $SUBITEMS2[0]=undef; $SUBITEMS2[1]=undef; @SUBITEMS2 = &NextItem; }while ($SUBITEMS2[0]); } else { if ((&Field('Display Price?') eq "checked") && ($price)) { $price = &Field('Price'); $pstring = &pricestring($price); $pastring = &apricestring($price); if (($saleon eq "checked") && ($saleamount)) { $saleamount = &Field('Sale Amount'); $saleamount = &CalcSale($price,$saleamount); $spstring = &pricestring($saleamount); $spastring = &apricestring($saleamount); $price = "".$pstring.""; $saleamount = "".$spstring.""; print "\n$price $saleamount"; if ($pastring ne "") { $price = " ".$pastring.""; $saleamount = "".$spastring.""; print "$price  $saleamount"; } print(" $Saletext
\n"); } else { print("\n$pstring"); if ($pastring ne "") { print("  $pastring"); } print("
\n"); } } if ((&Field('Display SKU?') eq "checked") && ($sku)) { print("\n$sku\n
\n"); } print ("\n
$moretext\n
\n"); print ("
\n"); if ($OrderBtn ne "") { print ("$OrderBtn "); } if ($CheckoutBtn ne "") { print ("$CheckoutBtn\n"); } print ("
\n"); } if ($CURALIGN eq "center") { print("
\n"); } &EmitFile("$DATA_DIR/ufooter.dat"); print("\n\n"); &EndNewFile } } 1; ne