IDB 2.0 }+V(LeftGraphicDi0sU'f)kMs<X >7kng:^^^^ Data7 K #8C DefaultText 3 on left sideSideBarDefault page templatebS / *k#C Page graphic down left sideLeftUniHeader   P#xD     "pE Theme-ColumnTheme-ColumnTheme-Mondrian{  vX$E Page links on left side7Universal Header down left side[  )K Theme-MatteTheme-MatteTheme-MondrianLeftPageLinks! h" *M Theme-LeftyTheme-Lefty h" n*N    h" !D  o7Y'1Theme-TopnotchTheme-Topnotch >e local($num) = $CUR_REC{'number'}; local($name) = &Field('Name'); local($strippedname) = &IgnoreHTML($name); push(@CURSTACK, $CURALIGN); local($tc) = &Field('Text Color'); local($bg) = &Field('Background Color'); local($lc) = &Field('Link Color'); local($alc) = &Field('Active Link Color'); local($vlc) = &Field('Visited Link Color'); local($bgimage) = &Field('Background Image'); local($filename) = &Field('File name'); if (!($filename =~ /\S+/)) { $filename = "page".$num.".html"; } local($image) = &Field('Graphic'); local($text1) = &Field('Text 1'); local($text2) = &Field('Text 2'); local($text3) = &Field('Text 3'); local($pagealignment) = &Field('Lay out'); local($linkwrap) = &Field('Text Wrap'); if (($TYPE eq "LINK") || ($TYPE eq "OLD")) { local($linkname) = &Field('Link Name'); local($linktext) = &Field('Link Text'); local($limage) = &Field('Link Graphic'); print " 
\n"; if (!($linkname) && ($limage eq "none")) { if ($name) { $linkname = $name; } else { $linkname = $filename; } } local($linkg); if ($limage eq "none") { $linkg = ""; } else { $linkg = "\n"); print("\n"); print(""); if ($CURALIGN eq "left") { print("$linkg\n"); } else { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } print("\n\n"); print("\n"); if ($CURALIGN eq "left") { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } else { print("$linkg\n"); } print("\n\n\n"); } else { print(""); print("$linkg"); if ($CURALIGN eq "center") { print("
\n"); } print <$linkname EoStuffOne if ($linktext) {print("
\n$linktext\n");} } } if (($TYPE eq "PAGE") || ($TYPE eq "OLD")) { if (!(-e "$OUTPUT_DIR/$filename") || (!(-M "$OUTPUT_DIR/$filename" <= 0) && (&IsIn($num, "pages")) ) ) { $| = 1; $message = sprintf(&plSSMsgCatGet(SSMSGErrOpeningDirFile, "Error opening %s/%s"), $OUTPUT_DIR, $filename); &NewFile("$OUTPUT_DIR/$filename") || die $message; local($metadesc) = &Field('Meta:Description'); local($metakey) = &Field('Meta:Keywords'); print "\n"; print "\n$strippedname"; if ($metadesc) { print "\n"; } if ($metakey) { print "\n"; } if ($PRODUCT_TYPE == $SSM_PRO) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_STD) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_LIT) { print "\n"; } print "\n"; print("\n\n"); if (&Field('Display Universal Header?') eq "checked") { &EmitFile("$DATA_DIR/uheader.dat"); } if ((&Field('Display graphic?') eq "checked") && ($image ne "none")) { print < ImageTag } if (&Field('Display Name?') eq "checked") { print <

$name

DisplayTag } if ( ($Searchfld eq "Top") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE == $SSM_PRO) ) { print <
ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print < ProdSearch } print("\n
\n$text3"); print(""); local($pw) = &Field('Page Width'); $pw =~ s/\bwide\b//g; if ($text1) { print (""); print ("\n\n\n\n
\n"); print ($text1); print("\n
\n"); } print ("\n\n"); local( $i, @ITEM ); local($column_string) = &Field('Columns'); local($num_columns); local($col_width); if ($column_string eq "One column") { $num_columns = 1; $col_width = 100; } elsif ($column_string eq "Two columns") { $num_columns = 2; $col_width = 50; } elsif ($column_string eq "Three columns") { $num_columns = 3; $col_width = 33; } elsif ($column_string eq "Four columns") { $num_columns = 4; $col_width = 25; } else { $num_columns = 5; $col_width = 20; } $ITEM[0]=undef; $ITEM[1]=undef; for( $i=0; @ITEM = &NextItem ;$i++ ) { if (!defined($ITEM[0]) || !defined($ITEM[1])) {last;} &NewDB( $ITEM[0] ); &SetRecord( $ITEM[1] ); if (!($i%$num_columns)) { if ($i) { print("\n"); } print("\n"); } print("\n\n"); &EndNewDB; $ITEM[0]=undef; $ITEM[1]=undef; } if ($i==0) { print ""; } print <
\n"); if (!defined(&Emit( *CUR_DB, *CUR_REC, "LINK" ))) { printf STDOUT "ERROR EMITTING: %s\n", $@; } print ("
\n"); print ("
EoProducts if ( ($Searchfld eq "Bottom") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE == $SSM_PRO) ) { print < ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print < ProdSearch } if ($text2) { print ("\n\n\n"); print ("\n
\n"); print($text2); print ("
"); } print ("
"); print ("\n\n\n"); print ("\n
\n"); if ($PRODUCT_TYPE == $SSM_LIT) { $reseller_id = AAGetToken("global.aa", "reseller_id"); $pow = AAGetToken("$DATA_DIR/world.aa", "pow"); $ssml_logo = AAGetToken("global.aa", "ssml_logo"); $ssml_logo = "http://sse.shopsite.com/media/poweredbyOMKT.gif" unless $ssml_logo; print <

Powered by Open Market

endOfText } elsif (&Field('Display Universal Footer?') eq "checked") { &EmitFile("$DATA_DIR/ufooter.dat"); } print <

EndoHTML print "\0"; &EndNewFile; } else { } } $CURALIGN = pop(@CURSTACK); 1;   % h" B7)0M +i0sUV(kMs<X >7kName .Name:^^^^  IDString 2IDString:^^^^ Data +Data^^^^e local($num) = $CUR_REC{'number'}; local($name) = &Field('Name'); local($strippedname) = &IgnoreHTML($name); push(@CURSTACK, $CURALIGN); local($tc) = &Field('Text Color'); local($bg) = &Field('Background Color'); local($lc) = &Field('Link Color'); local($alc) = &Field('Active Link Color'); local($vlc) = &Field('Visited Link Color'); local($bgimage) = &Field('Background Image'); local($filename) = &Field('File name'); if (!($filename =~ /\S+/)) { $filename = "page".$num.".html"; } local($image) = &Field('Graphic'); local($text1) = &Field('Text 1'); local($text2) = &Field('Text 2'); local($text3) = &Field('Text 3'); local($pagealignment) = &Field('Lay out'); local($linkwrap) = &Field('Text Wrap'); if (($TYPE eq "LINK") || ($TYPE eq "OLD")) { local($linkname) = &Field('Link Name'); local($linktext) = &Field('Link Text'); local($limage) = &Field('Link Graphic'); print " 
\n"; if (!($linkname) && ($limage eq "none")) { if ($name) { $linkname = $name; } else { $linkname = $filename; } } local($linkg); if ($limage eq "none") { $linkg = ""; } else { $linkg = "\n"); print("\n"); print(""); if ($CURALIGN eq "left") { print("$linkg\n"); } else { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } print("\n\n"); print(""); if ($CURALIGN eq "left") { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } else { print("$linkg\n"); } print("\n\n\n"); } else { print(""); print("$linkg"); if ($CURALIGN eq "center") { print("
\n"); } print <$linkname EoStuffOne if ($linktext) {print("
\n$linktext\n");} } } if (($TYPE eq "PAGE") || ($TYPE eq "OLD")){ if (!(-e "$OUTPUT_DIR/$filename") || (!(-M "$OUTPUT_DIR/$filename" <= 0) && (&IsIn($num, "pages")) ) ) { $| = 1; $message = sprintf(&plSSMsgCatGet(SSMSGErrOpeningDirFile, "Error opening %s/%s"), $OUTPUT_DIR, $filename); &NewFile("$OUTPUT_DIR/$filename") || die $message; local($metadesc) = &Field('Meta:Description'); local($metakey) = &Field('Meta:Keywords'); print "\n"; print "\n$strippedname"; if ($metadesc) { print "\n"; } if ($metakey) { print "\n"; } if ($PRODUCT_TYPE == $SSM_PRO) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_STD) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_LIT) { print "\n"; } print "\n"; print("\n\n"); if (&Field('Display Universal Header?') eq "checked") { &EmitFile("$DATA_DIR/uheader.dat"); } if ((&Field('Display graphic?') eq "checked") && ($image ne "none")) { print < ImageTag } if (&Field('Display Name?') eq "checked") { print <

$name

DisplayTag } if ( ($Searchfld eq "Top") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE == $SSM_PRO) ) { print < ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print < ProdSearch } print <
EoStuffThree local($pw) = &Field('Page Width'); $pw =~ s/\bwide\b//g; if ($text1) { print (""); print ("\n\n\n\n
\n"); print ($text1); print("\n
\n"); } print ("\n\n"); local( $i, @ITEM ); local($column_string) = &Field('Columns'); local($num_columns); local($col_width); if ($column_string eq "One column") { $num_columns = 1; $col_width = 100; } elsif ($column_string eq "Two columns") { $num_columns = 2; $col_width = 50; } elsif ($column_string eq "Three columns") { $num_columns = 3; $col_width = 33; } elsif ($column_string eq "Four columns") { $num_columns = 4; $col_width = 25; } else { $num_columns = 5; $col_width = 20; } $ITEM[0]=undef; $ITEM[1]=undef; for( $i=0; @ITEM = &NextItem ;$i++ ) { if (!defined($ITEM[0]) || !defined($ITEM[1])) {last;} &NewDB( $ITEM[0] ); &SetRecord( $ITEM[1] ); if (!($i%$num_columns)) { if ($i) { print("\n"); } print("\n"); } print("\n\n"); &EndNewDB; $ITEM[0]=undef; $ITEM[1]=undef; } if ($i==0) { print ""; } print <
\n"); if (!defined(&Emit( *CUR_DB, *CUR_REC, "LINK" ))) { print STDOUT "ERROR EMITTING: $@\n"; } print ("
\n"); print ("
EoProducts if ( ($Searchfld eq "Bottom") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE== $SSM_PRO) ) { print < ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print <
ProdSearch } print ("\n\n\n"); print ("\n\n\n
\n"); if ($text2) { print($text2); print "
"; } if ($PRODUCT_TYPE == $SSM_LIT) { $reseller_id = AAGetToken("global.aa", "reseller_id"); $pow = AAGetToken("$DATA_DIR/world.aa", "pow"); $ssml_logo = AAGetToken("global.aa", "ssml_logo"); $ssml_logo = "http://sse.shopsite.com/media/poweredbyOMKT.gif" unless $ssml_logo; print <

Powered by Open Market

endOfText } elsif (&Field('Display Universal Footer?') eq "checked") { &EmitFile("$DATA_DIR/ufooter.dat"); } if ($text3) { print "

"; print ($text3); } print <
EndoHTML print "\0"; &EndNewFile; } else { } } $CURALIGN = pop(@CURSTACK); 1; pe local($num) = $CUR_REC{'number'}; local($name) = &Field('Name'); local($strippedname) = &IgnoreHTML($name); push(@CURSTACK, $CURALIGN); local($tc) = &Field('Text Color'); local($bg) = &Field('Background Color'); local($lc) = &Field('Link Color'); local($alc) = &Field('Active Link Color'); local($vlc) = &Field('Visited Link Color'); local($bgimage) = &Field('Background Image'); local($filename) = &Field('File name'); if (!($filename =~ /\S+/)) { $filename = "page".$num.".html"; } local($image) = &Field('Graphic'); local($text1) = &Field('Text 1'); local($text2) = &Field('Text 2'); local($text3) = &Field('Text 3'); local($pagealignment) = &Field('Lay out'); local($linkwrap) = &Field('Text Wrap'); if (($TYPE eq "LINK") || ($TYPE eq "OLD")) { local($linkname) = &Field('Link Name'); local($linktext) = &Field('Link Text'); local($limage) = &Field('Link Graphic'); print " 
\n"; if (!($linkname) && ($limage eq "none")) { if ($name) { $linkname = $name; } else { $linkname = $filename; } } local($linkg); if ($limage eq "none") { $linkg = ""; } else { $linkg = "\n"); print("\n"); print(""); if ($CURALIGN eq "left") { print("$linkg\n"); } else { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } print("\n\n"); print(""); if ($CURALIGN eq "left") { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } else { print("$linkg\n"); } print("\n\n\n"); } else { print(""); print("$linkg"); if ($CURALIGN eq "center") { print("
\n"); } print <$linkname EoStuffOne if ($linktext) {print("
\n$linktext\n");} } } if (($TYPE eq "PAGE") || ($TYPE eq "OLD")) { if (!(-e "$OUTPUT_DIR/$filename") || (!(-M "$OUTPUT_DIR/$filename" <= 0) && (&IsIn($num, "pages")) ) ) { $| = 1; $message = sprintf(&plSSMsgCatGet(SSMSGErrOpeningDirFile, "Error opening %s/%s"), $OUTPUT_DIR, $filename); &NewFile("$OUTPUT_DIR/$filename") || die $message; local($metadesc) = &Field('Meta:Description'); local($metakey) = &Field('Meta:Keywords'); print "\n"; print "\n$strippedname"; if ($metadesc) { print "\n"; } if ($metakey) { print "\n"; } if ($PRODUCT_TYPE == $SSM_PRO) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_STD) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_LIT) { print "\n"; } print "\n"; print("\n\n"); print("\n
"); if ((&Field('Display graphic?') eq "checked") && ($image ne "none")) { print(""); } print(""); if (&Field('Display Universal Header?') eq "checked") { &EmitFile("$DATA_DIR/uheader.dat"); } if (&Field('Display Name?') eq "checked") { print <

$name

DisplayTag } if ( ($Searchfld eq "Top") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE == $SSM_PRO) ) { print < ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print < ProdSearch } print <
EoStuffThree local($pw) = &Field('Page Width'); $pw =~ s/\bwide\b//g; if ($text1) { print (""); print ("\n\n\n\n
\n"); print ($text1); print("\n
\n"); } print ("\n\n"); local( $i, @ITEM ); local($column_string) = &Field('Columns'); local($num_columns); local($col_width); if ($column_string eq "One column") { $num_columns = 1; $col_width = 100; } elsif ($column_string eq "Two columns") { $num_columns = 2; $col_width = 50; } elsif ($column_string eq "Three columns") { $num_columns = 3; $col_width = 33; } elsif ($column_string eq "Four columns") { $num_columns = 4; $col_width = 25; } else { $num_columns = 5; $col_width = 20; } $ITEM[0]=undef; $ITEM[1]=undef; for( $i=0; @ITEM = &NextItem ;$i++ ) { if (!defined($ITEM[0]) || !defined($ITEM[1])) {last;} &NewDB( $ITEM[0] ); &SetRecord( $ITEM[1] ); if (!($i%$num_columns)) { if ($i) { print("\n"); } print("\n"); } print("\n\n"); &EndNewDB; $ITEM[0]=undef; $ITEM[1]=undef; } if ($i==0) { print ""; } print <
\n"); if (!defined(&Emit( *CUR_DB, *CUR_REC, "LINK" ))) { print STDOUT "ERROR EMITTING: $@\n"; } print ("
\n"); print ("
EoProducts if ( ($Searchfld eq "Bottom") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE == $SSM_PRO) ) { print < ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print <
ProdSearch } print ("\n\n\n"); print ("\n\n\n
\n"); if ($text2) { print($text2); print "
"; } if ($PRODUCT_TYPE == $SSM_LIT) { $reseller_id = AAGetToken("global.aa", "reseller_id"); $pow = AAGetToken("$DATA_DIR/world.aa", "pow"); $ssml_logo = AAGetToken("global.aa", "ssml_logo"); $ssml_logo = "http://sse.shopsite.com/media/poweredbyOMKT.gif" unless $ssml_logo; print <

Powered by Open Market

endOfText } elsif (&Field('Display Universal Footer?') eq "checked") { &EmitFile("$DATA_DIR/ufooter.dat"); } if ($text3) { print "

"; print ($text3); } print <
EndoHTML print "\0"; &EndNewFile; } else { } } $CURALIGN = pop(@CURSTACK); 1; le local($num) = $CUR_REC{'number'}; local($name) = &Field('Name'); local($strippedname) = &IgnoreHTML($name); push(@CURSTACK, $CURALIGN); local($tc) = &Field('Text Color'); local($bg) = &Field('Background Color'); local($lc) = &Field('Link Color'); local($alc) = &Field('Active Link Color'); local($vlc) = &Field('Visited Link Color'); local($bgimage) = &Field('Background Image'); local($filename) = &Field('File name'); if (!($filename =~ /\S+/)) { $filename = "page".$num.".html"; } local($image) = &Field('Graphic'); local($text1) = &Field('Text 1'); local($text2) = &Field('Text 2'); local($text3) = &Field('Text 3'); local($pagealignment) = &Field('Lay out'); local($linkwrap) = &Field('Text Wrap'); if (($TYPE eq "LINK") || ($TYPE eq "OLD")) { local($linkname) = &Field('Link Name'); local($linktext) = &Field('Link Text'); local($limage) = &Field('Link Graphic'); print " 
\n"; if (!($linkname) && ($limage eq "none")) { if ($name) { $linkname = $name; } else { $linkname = $filename; } } local($linkg); if ($limage eq "none") { $linkg = ""; } else { $linkg = "\n"); print("\n"); print(""); if ($CURALIGN eq "left") { print("$linkg\n"); } else { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } print("\n\n"); print(""); if ($CURALIGN eq "left") { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } else { print("$linkg\n"); } print("\n\n\n"); } else { print(""); print("$linkg"); if ($CURALIGN eq "center") { print("
\n"); } print <$linkname EoStuffOne if ($linktext) {print("
\n$linktext\n");} } } if (($TYPE eq "PAGE") ||($TYPE eq "OLD")){ if (!(-e "$OUTPUT_DIR/$filename") || (!(-M "$OUTPUT_DIR/$filename" <= 0) && (&IsIn($num, "pages")) ) ) { $| = 1; $message = sprintf(&plSSMsgCatGet(SSMSGErrOpeningDirFile, "Error opening %s/%s"), $OUTPUT_DIR, $filename); &NewFile("$OUTPUT_DIR/$filename") || die $message; local($metadesc) = &Field('Meta:Description'); local($metakey) = &Field('Meta:Keywords'); print "\n"; print "\n$strippedname"; if ($metadesc) { print "\n"; } if ($metakey) { print "\n"; } if ($PRODUCT_TYPE == $SSM_PRO) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_STD) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_LIT) { print "\n"; } print "\n"; print("\n\n"); if ((&Field('Display graphic?') eq "checked") && ($image ne "none")) { print < ImageTag } if (&Field('Display Name?') eq "checked") { print <

$name

DisplayTag } if ( ($Searchfld eq "Top") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE == $SSM_PRO) ) { print < ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print < ProdSearch } if (&Field('Display Universal Header?') eq "checked") { print("\n
"); &EmitFile("$DATA_DIR/uheader.dat"); print(""); } local($pw) = &Field('Page Width'); $pw =~ s/\bwide\b//g; if ($text1) { print (""); print ("\n\n\n\n
\n"); print ($text1); print("\n
\n"); } print ("\n\n"); local( $i, @ITEM ); local($column_string) = &Field('Columns'); local($num_columns); local($col_width); if ($column_string eq "One column") { $num_columns = 1; $col_width = 100; } elsif ($column_string eq "Two columns") { $num_columns = 2; $col_width = 50; } elsif ($column_string eq "Three columns") { $num_columns = 3; $col_width = 33; } elsif ($column_string eq "Four columns") { $num_columns = 4; $col_width = 25; } else { $num_columns = 5; $col_width = 20; } $ITEM[0]=undef; $ITEM[1]=undef; for( $i=0; @ITEM = &NextItem ;$i++ ) { if (!defined($ITEM[0]) || !defined($ITEM[1])) {last;} &NewDB( $ITEM[0] ); &SetRecord( $ITEM[1] ); if (!($i%$num_columns)) { if ($i) { print("\n"); } print("\n"); } print("\n\n"); &EndNewDB; $ITEM[0]=undef; $ITEM[1]=undef; } if ($i==0) { print ""; } print <
\n"); if (!defined(&Emit( *CUR_DB, *CUR_REC, "LINK" ))) { print STDOUT "ERROR EMITTING: $@\n"; } print ("
\n"); print ("
EoProducts if ( ($Searchfld eq "Bottom") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE == $SSM_PRO) ) { print < ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print < ProdSearch } if ($text2) { print ("\n\n\n"); print ("\n
\n"); print($text2); print ("
"); } print ("\n
"); print ("\n\n\n"); print ("\n\n\n
\n"); if ($PRODUCT_TYPE == $SSM_LIT) { $reseller_id = AAGetToken("global.aa", "reseller_id"); $pow = AAGetToken("$DATA_DIR/world.aa", "pow"); $ssml_logo = AAGetToken("global.aa", "ssml_logo"); $ssml_logo = "http://sse.shopsite.com/media/poweredbyOMKT.gif" unless $ssml_logo; print <

Powered by Open Market

endOfText if ($text3) { print "

"; } } elsif (&Field('Display Universal Footer?') eq "checked") { &EmitFile("$DATA_DIR/ufooter.dat"); if ($text3) { print "
"; } } if ($text3) { print ($text3); } print <
EndoHTML print "\0"; &EndNewFile; } else { } } $CURALIGN = pop(@CURSTACK); 1; e local($num) = $CUR_REC{'number'}; local($name) = &Field('Name'); local($strippedname) = &IgnoreHTML($name); push(@CURSTACK, $CURALIGN); local($tc) = &Field('Text Color'); local($bg) = &Field('Background Color'); local($lc) = &Field('Link Color'); local($alc) = &Field('Active Link Color'); local($vlc) = &Field('Visited Link Color'); local($bgimage) = &Field('Background Image'); local($filename) = &Field('File name'); if (!($filename =~ /\S+/)) { $filename = "page".$num.".html"; } local($image) = &Field('Graphic'); local($text1) = &Field('Text 1'); local($text2) = &Field('Text 2'); local($text3) = &Field('Text 3'); local($pagealignment) = &Field('Lay out'); local($linkwrap) = &Field('Text Wrap'); if (($TYPE eq "LINK") || ($TYPE eq "OLD")) { local($linkname) = &Field('Link Name'); local($linktext) = &Field('Link Text'); local($limage) = &Field('Link Graphic'); print " 
\n"; if (!($linkname) && ($limage eq "none")) { if ($name) { $linkname = $name; } else { $linkname = $filename; } } local($linkg); if ($limage eq "none") { $linkg = ""; } else { $linkg = "\n"); print("\n"); print(""); if ($CURALIGN eq "left") { print("$linkg\n"); } else { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } print("\n\n"); print(""); if ($CURALIGN eq "left") { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } else { print("$linkg\n"); } print("\n\n\n"); } else { print(""); print("$linkg"); if ($CURALIGN eq "center") { print("
\n"); } print <$linkname EoStuffOne if ($linktext) {print("
\n$linktext\n");} } } if (($TYPE eq "PAGE") || ($TYPE eq "OLD")) { if (!(-e "$OUTPUT_DIR/$filename") || (!(-M "$OUTPUT_DIR/$filename" <= 0) && (&IsIn($num, "pages")) ) ) { $| = 1; $message = sprintf(&plSSMsgCatGet(SSMSGErrOpeningDirFile, "Error opening %s/%s"), $OUTPUT_DIR, $filename); &NewFile("$OUTPUT_DIR/$filename") || die $message; local($metadesc) = &Field('Meta:Description'); local($metakey) = &Field('Meta:Keywords'); print "\n"; print "\n$strippedname"; if ($metadesc) { print "\n"; } if ($metakey) { print "\n"; } if ($PRODUCT_TYPE == $SSM_PRO) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_STD) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_LIT) { print "\n"; } print "\n"; print("\n\n"); if (&Field('Display Universal Header?') eq "checked") { &EmitFile("$DATA_DIR/uheader.dat"); } if ((&Field('Display graphic?') eq "checked") && ($image ne "none")) { print < ImageTag } if (&Field('Display Name?') eq "checked") { print <

$name

DisplayTag } if ( ($Searchfld eq "Top") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE == $SSM_PRO) ) { print < ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print < ProdSearch } print("\n\n\n
\n"); $CURALIGN = "left"; local( $j, @ITEM1 ); $ITEM1[0]=undef; $ITEM1[1]=undef; for( $j=0; @ITEM1 = &NextItem; $j++ ) { if (!defined($ITEM1[0]) || !defined($ITEM1[1])) {last;} &NewDB( $ITEM1[0] ); &SetRecord( $ITEM1[1] ); if ($CUR_DB{'name'} eq "pages") { if(!$j) { print ("\n"); } print ("\n\n\n"); } else { $j--; } &EndNewDB; $ITEM1[0]=undef; $ITEM1[1]=undef; } if ($j) { print ("
\n"); if (!defined(&Emit( *CUR_DB, *CUR_REC, "LINK" ))) { print STDOUT "ERROR EMITTING: $@\n"; } print ("
\n"); print ("
"); } print("		"); print < EoStuffThree local($pw) = &Field('Page Width'); $pw =~ s/\bwide\b//g; if ($text1) { print (""); print ("\n\n\n\n
\n"); print ($text1); print("\n
\n"); } print ("\n\n"); local( $i, @ITEM ); local($column_string) = &Field('Columns'); local($num_columns); local($col_width); if ($column_string eq "One column") { $num_columns = 1; $col_width = 100; } elsif ($column_string eq "Two columns") { $num_columns = 2; $col_width = 50; } elsif ($column_string eq "Three columns") { $num_columns = 3; $col_width = 33; } elsif ($column_string eq "Four columns") { $num_columns = 4; $col_width = 25; } else { $num_columns = 5; $col_width = 20; } $ITEM[0]=undef; $ITEM[1]=undef; &ResetRecord; for( $i=0; @ITEM = &NextItem ;$i++ ) { if (!defined($ITEM[0]) || !defined($ITEM[1])) {last;} &NewDB( $ITEM[0] ); &SetRecord( $ITEM[1] ); if ($CUR_DB{'name'} eq "products") { if (!($i%$num_columns)) { if ($i) { print("\n"); } print("\n"); } print("\n\n"); } else { --$i; } &EndNewDB; $ITEM[0]=undef; $ITEM[1]=undef; } if ($i==0) { print ""; } print <
\n"); if (!defined(&Emit( *CUR_DB, *CUR_REC, "LINK" ))) { print STDOUT "ERROR EMITTING: $@\n"; } print ("
\n"); print ("
EoProducts if ( ($Searchfld eq "Bottom") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE == $SSM_PRO) ) { print < ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print < ProdSearch } if ($text2) { print ("\n\n\n"); print ("\n
\n"); print($text2); print ("
"); } print ("\n
\n"); print ("\n\n\n"); print ("\n\n\n
\n"); if ($PRODUCT_TYPE == $SSM_LIT) { $reseller_id = AAGetToken("global.aa", "reseller_id"); $pow = AAGetToken("$DATA_DIR/world.aa", "pow"); $ssml_logo = AAGetToken("global.aa", "ssml_logo"); $ssml_logo = "http://sse.shopsite.com/media/poweredbyOMKT.gif" unless $ssml_logo; print <

Powered by Open Market

endOfText if ($text3) { print "

"; } } elsif (&Field('Display Universal Footer?') eq "checked") { &EmitFile("$DATA_DIR/ufooter.dat"); if ($text3) { print "
"; } } if ($text3) { print($text3); } print <
EndoHTML print "\0"; &EndNewFile; } else { } } $CURALIGN = pop(@CURSTACK); 1; te local($num) = $CUR_REC{'number'}; local($name) = &Field('Name'); local($strippedname) = &IgnoreHTML($name); push(@CURSTACK, $CURALIGN); local($tc) = &Field('Text Color'); local($bg) = &Field('Background Color'); local($lc) = &Field('Link Color'); local($alc) = &Field('Active Link Color'); local($vlc) = &Field('Visited Link Color'); local($bgimage) = &Field('Background Image'); local($filename) = &Field('File name'); if (!($filename =~ /\S+/)) { $filename = "page".$num.".html"; } local($image) = &Field('Graphic'); local($text1) = &Field('Text 1'); local($text2) = &Field('Text 2'); local($text3) = &Field('Text 3'); local($pagealignment) = &Field('Lay out'); local($linkwrap) = &Field('Text Wrap'); if (($TYPE eq "LINK") || ($TYPE eq "OLD")) { local($linkname) = &Field('Link Name'); local($linktext) = &Field('Link Text'); local($limage) = &Field('Link Graphic'); print " 
\n"; if (!($linkname) && ($limage eq "none")) { if ($name) { $linkname = $name; } else { $linkname = $filename; } } local($linkg); if ($limage eq "none") { $linkg = ""; } else { $linkg = "\n"); print("\n"); print(""); if ($CURALIGN eq "left") { print("$linkg\n"); } else { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } print("\n\n"); print(""); if ($CURALIGN eq "left") { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } else { print("$linkg\n"); } print("\n\n\n"); } else { print(""); print("$linkg"); if ($CURALIGN eq "center") { print("
\n"); } print <$linkname EoStuffOne if ($linktext) {print("
\n$linktext\n");} } } if (($TYPE eq "PAGE") || ($TYPE eq "OLD")){ if (!(-e "$OUTPUT_DIR/$filename") || (!(-M "$OUTPUT_DIR/$filename" <= 0) && (&IsIn($num, "pages")) ) ) { $| = 1; $message = sprintf(&plSSMsgCatGet(SSMSGErrOpeningDirFile, "Error opening %s/%s"), $OUTPUT_DIR, $filename); &NewFile("$OUTPUT_DIR/$filename") || die $message; local($metadesc) = &Field('Meta:Description'); local($metakey) = &Field('Meta:Keywords'); print "\n"; print "\n$strippedname"; if ($metadesc) { print "\n"; } if ($metakey) { print "\n"; } if ($PRODUCT_TYPE == $SSM_PRO) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_STD) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_LIT) { print "\n"; } print "\n"; print("\n\n"); print ("
"); if (&Field('Display Universal Header?') eq "checked") { &EmitFile("$DATA_DIR/uheader.dat"); } print("

"); if ((&Field('Display graphic?') eq "checked") && ($image ne "none")) { print < ImageTag } if (&Field('Display Name?') eq "checked") { print < $name

DisplayTag } if ( ($Searchfld eq "Top") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE == $SSM_PRO) ) { print < ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print <

ProdSearch } if ($text1) { print ($text1); } print ("

"); print ("\n\n "); local( $i, @ITEM ); $ITEM[0]=undef; $ITEM[1]=undef; for( $i=0; @ITEM = &NextItem ;$i++ ) { if (!defined($ITEM[0]) || !defined($ITEM[1])) {last;} &NewDB( $ITEM[0] ); &SetRecord( $ITEM[1] ); if ($i) { print("\n"); } print("\n"); print("\n\n"); &EndNewDB; $ITEM[0]=undef; $ITEM[1]=undef; } if ($i==0) { print ""; } print <
\n"); if (!defined(&Emit( *CUR_DB, *CUR_REC, "LINK" ))) { print STDOUT "ERROR EMITTING: $@\n"; } print ("
\n"); print ("
EoProducts if ( ($Searchfld eq "Bottom") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE == $SSM_PRO) ) { print < ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print < ProdSearch } if ($text2) { print($text2); print("

"); } if ($PRODUCT_TYPE == $SSM_LIT) { $reseller_id = AAGetToken("global.aa", "reseller_id"); $pow = AAGetToken("$DATA_DIR/world.aa", "pow"); $ssml_logo = AAGetToken("global.aa", "ssml_logo"); $ssml_logo = "http://sse.shopsite.com/media/poweredbyOMKT.gif" unless $ssml_logo; print <

Powered by Open Market

endOfText } elsif (&Field('Display Universal Footer?') eq "checked") { &EmitFile("$DATA_DIR/ufooter.dat"); } if ($text3) { print ("\n
\n"); print ($text3); } print <

EndoHTML print "\0"; &EndNewFile; } else { } } $CURALIGN = pop(@CURSTACK); 1; ce local($num) = $CUR_REC{'number'}; local($name) = &Field('Name'); local($strippedname) = &IgnoreHTML($name); push(@CURSTACK, $CURALIGN); local($tc) = &Field('Text Color'); local($bg) = &Field('Background Color'); local($lc) = &Field('Link Color'); local($alc) = &Field('Active Link Color'); local($vlc) = &Field('Visited Link Color'); local($bgimage) = &Field('Background Image'); local($filename) = &Field('File name'); if (!($filename =~ /\S+/)) { $filename = "page".$num.".html"; } local($image) = &Field('Graphic'); local($text1) = &Field('Text 1'); local($text2) = &Field('Text 2'); local($text3) = &Field('Text 3'); local($pagealignment) = &Field('Lay out'); local($linkwrap) = &Field('Text Wrap'); if (($TYPE eq "LINK") || ($TYPE eq "OLD")) { local($linkname) = &Field('Link Name'); local($linktext) = &Field('Link Text'); local($limage) = &Field('Link Graphic'); print " 
\n"; if (!($linkname) && ($limage eq "none")) { if ($name) { $linkname = $name; } else { $linkname = $filename; } } local($linkg); if ($limage eq "none") { $linkg = ""; } else { $linkg = "\n"); print("\n"); print(""); if ($CURALIGN eq "left") { print("$linkg\n"); } else { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } print("\n\n"); print(""); if ($CURALIGN eq "left") { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } else { print("$linkg\n"); } print("\n\n\n"); } else { print(""); print("$linkg"); if ($CURALIGN eq "center") { print("
\n"); } print <$linkname EoStuffOne if ($linktext) {print("
\n$linktext\n");} } } if (($TYPE eq "PAGE") || ($TYPE eq "OLD")){ if (!(-e "$OUTPUT_DIR/$filename") || (!(-M "$OUTPUT_DIR/$filename" <= 0) && (&IsIn($num, "pages")) ) ) { $| = 1; $message = sprintf(&plSSMsgCatGet(SSMSGErrOpeningDirFile, "Error opening %s/%s"), $OUTPUT_DIR, $filename); &NewFile("$OUTPUT_DIR/$filename") || die $message; local($metadesc) = &Field('Meta:Description'); local($metakey) = &Field('Meta:Keywords'); print "\n"; print "\n$strippedname"; if ($metadesc) { print "\n"; } if ($metakey) { print "\n"; } if ($PRODUCT_TYPE == $SSM_PRO) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_STD) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_LIT) { print "\n"; } print "\n"; print("\n\n"); print "
"; if (&Field('Display Universal Header?') eq "checked") { &EmitFile("$DATA_DIR/uheader.dat"); } print "
\"\" \"\" "; if ((&Field('Display graphic?') eq "checked") && ($image ne "none")) { print < ImageTag } if (&Field('Display Name?') eq "checked") { print <
$name

DisplayTag } if ( ($Searchfld eq "Top") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE == $SSM_PRO) ) { print <
ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print < ProdSearch } if ($text1) { print ($text1); } print ("\n\n "); local( $i, @ITEM ); $ITEM[0]=undef; $ITEM[1]=undef; for( $i=0; @ITEM = &NextItem ;$i++ ) { if (!defined($ITEM[0]) || !defined($ITEM[1])) {last;} &NewDB( $ITEM[0] ); &SetRecord( $ITEM[1] ); if ($i) { print("\n"); } print("\n"); print("\n\n"); &EndNewDB; $ITEM[0]=undef; $ITEM[1]=undef; } if ($i==0) { print ""; } print <
\n"); if (!defined(&Emit( *CUR_DB, *CUR_REC, "LINK" ))) { print STDOUT "ERROR EMITTING: $@\n"; } print ("
\n"); print ("
EoProducts if ( ($Searchfld eq "Bottom") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE == $SSM_PRO) ) { print <
ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print < ProdSearch } if ($text2) { print("

$text2

"); } print "

"; if ($PRODUCT_TYPE == $SSM_LIT) { $reseller_id = AAGetToken("global.aa", "reseller_id"); $pow = AAGetToken("$DATA_DIR/world.aa", "pow"); $ssml_logo = AAGetToken("global.aa", "ssml_logo"); $ssml_logo = "http://sse.shopsite.com/media/poweredbyOMKT.gif" unless $ssml_logo; print <

Powered by Open Market
endOfText } elsif (&Field('Display Universal Footer?') eq "checked") { print "
"; &EmitFile("$DATA_DIR/ufooter.dat"); print "
"; } print ("

"); if ($text3) { print ($text3); } print <

EndoHTML print "\0"; &EndNewFile; } else { } } $CURALIGN = pop(@CURSTACK); 1; te local($num) = $CUR_REC{'number'}; local($name) = &Field('Name'); local($strippedname) = &IgnoreHTML($name); push(@CURSTACK, $CURALIGN); local($tc) = &Field('Text Color'); local($bg) = &Field('Background Color'); local($lc) = &Field('Link Color'); local($alc) = &Field('Active Link Color'); local($vlc) = &Field('Visited Link Color'); local($bgimage) = &Field('Background Image'); local($filename) = &Field('File name'); if (!($filename =~ /\S+/)) { $filename = "page".$num.".html"; } local($image) = &Field('Graphic'); local($text1) = &Field('Text 1'); local($text2) = &Field('Text 2'); local($text3) = &Field('Text 3'); local($pagealignment) = &Field('Lay out'); local($linkwrap) = &Field('Text Wrap'); if (($TYPE eq "LINK") || ($TYPE eq "OLD")) { local($linkname) = &Field('Link Name'); local($linktext) = &Field('Link Text'); local($limage) = &Field('Link Graphic'); print " 
\n"; if (!($linkname) && ($limage eq "none")) { if ($name) { $linkname = $name; } else { $linkname = $filename; } } local($linkg); if ($limage eq "none") { $linkg = ""; } else { $linkg = "\n"); print("\n"); print(""); if ($CURALIGN eq "left") { print("$linkg\n"); } else { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } print("\n\n"); print(""); if ($CURALIGN eq "left") { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } else { print("$linkg\n"); } print("\n\n\n"); } else { print(""); print("$linkg"); if ($CURALIGN eq "center") { print("
\n"); } print <$linkname EoStuffOne if ($linktext) {print("
\n$linktext\n");} } } if (($TYPE eq "PAGE") || ($TYPE eq "OLD")) { if (!(-e "$OUTPUT_DIR/$filename") || (!(-M "$OUTPUT_DIR/$filename" <= 0) && (&IsIn($num, "pages")) ) ) { $| = 1; $message = sprintf(&plSSMsgCatGet(SSMSGErrOpeningDirFile, "Error opening %s/%s"), $OUTPUT_DIR, $filename); &NewFile("$OUTPUT_DIR/$filename") || die $message; local($metadesc) = &Field('Meta:Description'); local($metakey) = &Field('Meta:Keywords'); print "\n"; print "\n$strippedname"; if ($metadesc) { print "\n"; } if ($metakey) { print "\n"; } if ($PRODUCT_TYPE == $SSM_PRO) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_STD) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_LIT) { print "\n"; } print "\n"; print("\n\n"); if (&Field('Display Universal Header?') eq "checked") { &EmitFile("$DATA_DIR/uheader.dat"); } print "
 
"; if (&Field('Display Name?') eq "checked") { print "$name"; } else { print " "; } print " "; if ((&Field('Display graphic?') eq "checked") && ($image ne "none")) { print < ImageTag } else { print " "; } print "
"; if ( ($Searchfld eq "Top") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE == $SSM_PRO) ) { print < ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print < ProdSearch } if ($text1) { print ($text1); } print ("\n\n
"); local( $i, @ITEM ); local($column_string) = &Field('Columns'); local($num_columns); local($col_width); if ($column_string eq "One column") { $num_columns = 1; $col_width = 100; } elsif ($column_string eq "Two columns") { $num_columns = 2; $col_width = 50; } elsif ($column_string eq "Three columns") { $num_columns = 3; $col_width = 33; } elsif ($column_string eq "Four columns") { $num_columns = 4; $col_width = 25; } else { $num_columns = 5; $col_width = 20; } $ITEM[0]=undef; $ITEM[1]=undef; &ResetRecord; for( $i=0; @ITEM = &NextItem ;$i++ ) { if (!defined($ITEM[0]) || !defined($ITEM[1])) {last;} &NewDB( $ITEM[0] ); &SetRecord( $ITEM[1] ); if ($CUR_DB{'name'} eq "products") { if (!($i%$num_columns)) { if ($i) { print("\n"); } print("\n"); } print("\n\n"); } else { --$i; } &EndNewDB; $ITEM[0]=undef; $ITEM[1]=undef; } if ($i==0) { print ""; } print <
"); if (!defined(&Emit( *CUR_DB, *CUR_REC, "LINK" ))) { print STDOUT "ERROR EMITTING: $@\n"; } print ("
\n"); print ("
EoProducts if ( ($Searchfld eq "Bottom") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE == $SSM_PRO) ) { print < ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print < ProdSearch } if ($text2) { print($text2); print ("

"); } print "

 
"; $CURALIGN = "left"; local( $j, @ITEM1 ); $ITEM1[0]=undef; $ITEM1[1]=undef; &ResetRecord; for( $j=0; @ITEM1 = &NextItem; $j++ ) { if (!defined($ITEM1[0]) || !defined($ITEM1[1])) {last;} &NewDB( $ITEM1[0] ); &SetRecord( $ITEM1[1] ); if ($CUR_DB{'name'} eq "pages") { if(!$j) { print " "; } print ("\n\n\n"); } else { $j--; } &EndNewDB; $ITEM1[0]=undef; $ITEM1[1]=undef; } if ($j) { print ("
"); if (!defined(&Emit( *CUR_DB, *CUR_REC, "LINK" ))) { print STDOUT "ERROR EMITTING: $@\n"; } print ("
\n"); print ("
"); } print "
 
"; if ($PRODUCT_TYPE == $SSM_LIT) { $reseller_id = AAGetToken("global.aa", "reseller_id"); $pow = AAGetToken("$DATA_DIR/world.aa", "pow"); $ssml_logo = AAGetToken("global.aa", "ssml_logo"); $ssml_logo = "http://sse.shopsite.com/media/poweredbyOMKT.gif" unless $ssml_logo; print < Powered by Open Market

endOfText } elsif (&Field('Display Universal Footer?') eq "checked") { &EmitFile("$DATA_DIR/ufooter.dat"); print "
"; } if ($text3) { print($text3); } print <

EndofHTML print "\0"; &EndNewFile; } else { } } $CURALIGN = pop(@CURSTACK); 1; "e local($num) = $CUR_REC{'number'}; local($name) = &Field('Name'); local($strippedname) = &IgnoreHTML($name); push(@CURSTACK, $CURALIGN); local($tc) = &Field('Text Color'); local($bg) = &Field('Background Color'); local($lc) = &Field('Link Color'); local($alc) = &Field('Active Link Color'); local($vlc) = &Field('Visited Link Color'); local($bgimage) = &Field('Background Image'); local($filename) = &Field('File name'); if (!($filename =~ /\S+/)) { $filename = "page".$num.".html"; } local($image) = &Field('Graphic'); local($text1) = &Field('Text 1'); local($text2) = &Field('Text 2'); local($text3) = &Field('Text 3'); local($pagealignment) = &Field('Lay out'); local($linkwrap) = &Field('Text Wrap'); if (($TYPE eq "LINK") || ($TYPE eq "OLD")) { local($linkname) = &Field('Link Name'); local($linktext) = &Field('Link Text'); local($limage) = &Field('Link Graphic'); print " 
\n"; if (!($linkname) && ($limage eq "none")) { if ($name) { $linkname = $name; } else { $linkname = $filename; } } local($linkg); if ($limage eq "none") { $linkg = ""; } else { $linkg = "\n"); print("\n"); print(""); if ($CURALIGN eq "left") { print("$linkg\n"); } else { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } print("\n\n"); print(""); if ($CURALIGN eq "left") { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } else { print("$linkg\n"); } print("\n\n\n"); } else { print(""); print("$linkg"); if ($CURALIGN eq "center") { print("
\n"); } print <$linkname EoStuffOne if ($linktext) {print("
\n$linktext\n");} } } if (($TYPE eq "PAGE") || ($TYPE eq "OLD")) { if (!(-e "$OUTPUT_DIR/$filename") || (!(-M "$OUTPUT_DIR/$filename" <= 0) && (&IsIn($num, "pages")) ) ) { $| = 1; $message = sprintf(&plSSMsgCatGet(SSMSGErrOpeningDirFile, "Error opening %s/%s"), $OUTPUT_DIR, $filename); &NewFile("$OUTPUT_DIR/$filename") || die $message; local($metadesc) = &Field('Meta:Description'); local($metakey) = &Field('Meta:Keywords'); print "\n"; print "\n$strippedname"; if ($metadesc) { print "\n"; } if ($metakey) { print "\n"; } if ($PRODUCT_TYPE == $SSM_PRO) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_STD) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_LIT) { print "\n"; } print "\n"; print("\n\n"); print "
\"\" "; if ((&Field('Display graphic?') eq "checked") && ($image ne "none")) { print <
ImageTag } $CURALIGN = "left"; local( $j, @ITEM1 ); $ITEM1[0]=undef; $ITEM1[1]=undef; for( $j=0; @ITEM1 = &NextItem; $j++ ) { if (!defined($ITEM1[0]) || !defined($ITEM1[1])) {last;} &NewDB( $ITEM1[0] ); &SetRecord( $ITEM1[1] ); if ($CUR_DB{'name'} eq "pages") { if(!$j) { print ("\n"); } print ("\n\n\n"); } else { $j--; } &EndNewDB; $ITEM1[0]=undef; $ITEM1[1]=undef; } if ($j) { print ("
"); if (!defined(&Emit( *CUR_DB, *CUR_REC, "LINK" ))) { print STDOUT "ERROR EMITTING: $@\n"; } print ("
\n"); print ("
"); } print" 		\"\" "; if (&Field('Display Universal Header?') eq "checked") { &EmitFile("$DATA_DIR/uheader.dat"); } if (&Field('Display Name?') eq "checked") { print <$name

DisplayTag } if ( ($Searchfld eq "Top") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE == $SSM_PRO) ) { print < ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print <

ProdSearch } print "

"; local($pw) = &Field('Page Width'); $pw =~ s/\bwide\b//g; if ($text1) { print (""); print ("\n\n\n\n
\n"); print ($text1); print("\n
\n"); } print ("\n\n"); local( $i, @ITEM ); local($column_string) = &Field('Columns'); local($num_columns); local($col_width); if ($column_string eq "One column") { $num_columns = 1; $col_width = 100; } elsif ($column_string eq "Two columns") { $num_columns = 2; $col_width = 50; } elsif ($column_string eq "Three columns") { $num_columns = 3; $col_width = 33; } elsif ($column_string eq "Four columns") { $num_columns = 4; $col_width = 25; } else { $num_columns = 5; $col_width = 20; } $ITEM[0]=undef; $ITEM[1]=undef; &ResetRecord; for( $i=0; @ITEM = &NextItem ;$i++ ) { if (!defined($ITEM[0]) || !defined($ITEM[1])) {last;} &NewDB( $ITEM[0] ); &SetRecord( $ITEM[1] ); if ($CUR_DB{'name'} eq "products") { if (!($i%$num_columns)) { if ($i) { print("\n"); } print("\n"); } print("\n\n"); } else { --$i; } &EndNewDB; $ITEM[0]=undef; $ITEM[1]=undef; } if ($i==0) { print ""; } print <
\n"); if (!defined(&Emit( *CUR_DB, *CUR_REC, "LINK" ))) { print STDOUT "ERROR EMITTING: $@\n"; } print ("
\n"); print ("
EoProducts if ( ($Searchfld eq "Bottom") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE == $SSM_PRO) ) { print < ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print <
ProdSearch } if ($text2) { print ("\n\n\n"); print ("\n
\n"); print($text2); print ("
"); } if ($PRODUCT_TYPE == $SSM_LIT) { $reseller_id = AAGetToken("global.aa", "reseller_id"); $pow = AAGetToken("$DATA_DIR/world.aa", "pow"); $ssml_logo = AAGetToken("global.aa", "ssml_logo"); $ssml_logo = "http://sse.shopsite.com/media/poweredbyOMKT.gif" unless $ssml_logo; print <

Powered by Open Market

endOfText } elsif (&Field('Display Universal Footer?') eq "checked") { print " "; &EmitFile("$DATA_DIR/ufooter.dat"); print "
"; } if ($text3) { print($text3); } print <

EndoHTML print "\0"; &EndNewFile; } else { } } $CURALIGN = pop(@CURSTACK); 1; >e local($num) = $CUR_REC{'number'}; local($name) = &Field('Name'); local($strippedname) = &IgnoreHTML($name); push(@CURSTACK, $CURALIGN); local($tc) = &Field('Text Color'); local($bg) = &Field('Background Color'); local($lc) = &Field('Link Color'); local($alc) = &Field('Active Link Color'); local($vlc) = &Field('Visited Link Color'); local($bgimage) = &Field('Background Image'); local($filename) = &Field('File name'); if (!($filename =~ /\S+/)) { $filename = "page".$num.".html"; } local($image) = &Field('Graphic'); local($text1) = &Field('Text 1'); local($text2) = &Field('Text 2'); local($text3) = &Field('Text 3'); local($pagealignment) = &Field('Lay out'); local($linkwrap) = &Field('Text Wrap'); if (($TYPE eq "LINK") || ($TYPE eq "OLD")) { local($linkname) = &Field('Link Name'); local($linktext) = &Field('Link Text'); local($limage) = &Field('Link Graphic'); print " 
\n"; if (!($linkname) && ($limage eq "none")) { if ($name) { $linkname = $name; } else { $linkname = $filename; } } local($linkg); if ($limage eq "none") { $linkg = ""; } else { $linkg = "\n"); print("\n"); print(""); if ($CURALIGN eq "left") { print("$linkg\n"); } else { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } print("\n\n"); print(""); if ($CURALIGN eq "left") { print("$linkname\n"); if ($linktext) {print("
\n$linktext\n");} } else { print("$linkg\n"); } print("\n\n\n"); } else { print(""); print("$linkg"); if ($CURALIGN eq "center") { print("
\n"); } print <$linkname EoStuffOne if ($linktext) {print("
\n$linktext\n");} } } if (($TYPE eq "PAGE") || ($TYPE eq "OLD")) { if (!(-e "$OUTPUT_DIR/$filename") || (!(-M "$OUTPUT_DIR/$filename" <= 0) && (&IsIn($num, "pages")) ) ) { $| = 1; $message = sprintf(&plSSMsgCatGet(SSMSGErrOpeningDirFile, "Error opening %s/%s"), $OUTPUT_DIR, $filename); &NewFile("$OUTPUT_DIR/$filename") || die $message; local($metadesc) = &Field('Meta:Description'); local($metakey) = &Field('Meta:Keywords'); print "\n"; print "\n$strippedname"; if ($metadesc) { print "\n"; } if ($metakey) { print "\n"; } if ($PRODUCT_TYPE == $SSM_PRO) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_STD) { print "\n"; } elsif ($PRODUCT_TYPE == $SSM_LIT) { print "\n"; } print "\n"; print("\n\n"); print "
\"\" "; if (&Field('Display Name?') eq "checked") { print < "; if ((&Field('Display graphic?') eq "checked") && ($image ne "none")) { print ""; } else { print " "; } print "
"; $CURALIGN = "left"; local( $j, @ITEM1 ); $ITEM1[0]=undef; $ITEM1[1]=undef; for( $j=0; @ITEM1 = &NextItem; $j++ ) { if (!defined($ITEM1[0]) || !defined($ITEM1[1])) {last;} &NewDB( $ITEM1[0] ); &SetRecord( $ITEM1[1] ); if ($CUR_DB{'name'} eq "pages") { if(!$j) { print ("\n"); } print ("\n\n\n"); } else { $j--; } &EndNewDB; $ITEM1[0]=undef; $ITEM1[1]=undef; } if ($j) { print ("
"); if (!defined(&Emit( *CUR_DB, *CUR_REC, "LINK" ))) { print STDOUT "ERROR EMITTING: $@\n"; } print ("
\n"); print ("
"); } print" 		\"\" "; if (&Field('Display Universal Header?') eq "checked") { &EmitFile("$DATA_DIR/uheader.dat"); } if ( ($Searchfld eq "Top") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE == $SSM_PRO) ) { print < ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print <

ProdSearch } print "

"; local($pw) = &Field('Page Width'); $pw =~ s/\bwide\b//g; if ($text1) { print (""); print ("\n\n\n\n
\n"); print ($text1); print("\n
\n"); } print ("\n\n"); local( $i, @ITEM ); local($column_string) = &Field('Columns'); local($num_columns); local($col_width); if ($column_string eq "One column") { $num_columns = 1; $col_width = 100; } elsif ($column_string eq "Two columns") { $num_columns = 2; $col_width = 50; } elsif ($column_string eq "Three columns") { $num_columns = 3; $col_width = 33; } elsif ($column_string eq "Four columns") { $num_columns = 4; $col_width = 25; } else { $num_columns = 5; $col_width = 20; } $ITEM[0]=undef; $ITEM[1]=undef; &ResetRecord; for( $i=0; @ITEM = &NextItem ;$i++ ) { if (!defined($ITEM[0]) || !defined($ITEM[1])) {last;} &NewDB( $ITEM[0] ); &SetRecord( $ITEM[1] ); if ($CUR_DB{'name'} eq "products") { if (!($i%$num_columns)) { if ($i) { print("\n"); } print("\n"); } print("\n\n"); } else { --$i; } &EndNewDB; $ITEM[0]=undef; $ITEM[1]=undef; } if ($i==0) { print ""; } print <
\n"); if (!defined(&Emit( *CUR_DB, *CUR_REC, "LINK" ))) { print STDOUT "ERROR EMITTING: $@\n"; } print ("
\n"); print ("
EoProducts if ( ($Searchfld eq "Bottom") && (&Field('Search Products') eq "checked") && ($PRODUCT_TYPE == $SSM_PRO) ) { print < ProdSearch if ($Search eq "") {$Search = "Search";} if (($SearchCk eq "checked") || ($SearchImg eq "")) { print(""); } else { print < ProdSearch } print <
ProdSearch } if ($text2) { print ("\n\n\n"); print ("\n
\n"); print($text2); print ("
"); } if ($PRODUCT_TYPE == $SSM_LIT) { $reseller_id = AAGetToken("global.aa", "reseller_id"); $pow = AAGetToken("$DATA_DIR/world.aa", "pow"); $ssml_logo = AAGetToken("global.aa", "ssml_logo"); $ssml_logo = "http://sse.shopsite.com/media/poweredbyOMKT.gif" unless $ssml_logo; print <

Powered by Open Market

endOfText } elsif (&Field('Display Universal Footer?') eq "checked") { print " "; &EmitFile("$DATA_DIR/ufooter.dat"); print "
"; } if ($text3) { print($text3); } print <

EndoHTML print "\0"; &EndNewFile; } else { } } $CURALIGN = pop(@CURSTACK); 1; e