Hinweis: ======== Die einzelnen Sequenzen, Codes usw. sind immer mit "#####" vorangestellt und abgeschlossen! Das Beispiel ist unter Windows7-Dateisystem gezeigt! xxxx steht für den eigenen Windowsbenutzernamen. Zeta-Producer muss beendet sein! Anpassung: ========== Öffnen der Datei "C:\Users\xxxx\Documents\Zeta Producer 10\Stationary\DEU\ActiveObjects\template.xml" mit dem Notepad Suchen nach folgendem Inhalt: articlestyle="Bestellartikel" markieren des kompletten Items und ersetzen durch folgenden Inhalt: ##### <$$ public basketWebPageItem public currentArticlePriceFormatted public currentArticlePrice public shopCurrency public shopIncPath public language public currentPictureURL sub LoadBasketConfiguration() ' First lets get the current set language ' If nothing set, consider german language = Context.Scope.CurrentProjectFolder.Language2 language = LCase(language) if language = "" or (language <> "en" and language <> "de") then language = "de" end if dim foundItems set foundItems = Context.Scope.CurrentWebProject.GetArticlesByStyleName("Warenkorb / Onlineshop-Konfiguration") if foundItems.Count <= 0 then Context.Scope.Library.CheckAsyncStopProcessing Context.Scope.Library.LogError "Fehler bei Onlineshop-Erstellung. Um einen Onlineshop-Artikel einzubinden, " &_ "müßen Sie zuerst das aktive Objekt ""Warenkorb / Onlineshop-Konfiguration"" auf einer neuen Seite einfügen." else set basketWebPageItem = foundItems(0) shopCurrency = basketWebPageItem.GetValue("Currency") ' Format the Price as told in the configuration. ' This is a little workaround because there is no method for formatting with given special chars currentPictureURL = "#data(pictureURL)" dim price dim priceDbl priceDbl = Replace("#data(unitPrice)",",",".") SetLocale("en-US") price = FormatNumber(priceDbl,2,-1,0,-1) currentArticlePrice = FormatNumber(priceDbl,2,-1,0,0) currentArticlePriceFormatted = Replace(price, ",", "@") currentArticlePriceFormatted = Replace(currentArticlePriceFormatted, ".", basketWebPageItem.GetValue("currency_comma")) currentArticlePriceFormatted = Replace(currentArticlePriceFormatted, "@", basketWebPageItem.GetValue("currency_thousands")) end if shopIncPath = Context.Scope.CurrentWebProject.GetRelativePathFromTo( _ Context.Scope.CurrentPage.AbsoluteUrlWithoutServer, _ "/media/Scripting/ServerSideScripting/PHP/shop/shop.inc.php") end sub $> <$ LoadBasketConfiguration() $>

<$ if Context.Scope.CurrentArticle.Name <> "" then $>

#data(name)

<$ end if $>

<$ if Context.Scope.CurrentArticle.Values.GetValue("Bild") <> "" then $> <$ if currentPictureURL <> "" then $><$end if$> #data(Bild, description)

<$ if currentPictureURL <> "" then $><$end if$>

<$end if$>

#data(Beschreibung)

<$ if language="de" then Context.Write("Preis:") else if language="en" then Context.Write("Price:") end if$> <$=currentArticlePriceFormatted$> <$=shopCurrency$>
<$ if language="de" then Context.Write("inkl. MwSt zzgl. Versandkosten") else if language="en" then Context.Write("incl. VAT, excl. Shipping costs") end if$>

#text(ArticleSeparator)]]> ##### Speichern und schließen Sie die Datei template.xml! Nun müssen Sie noch die Datei "C:\Users\xxxx\Documents\Zeta Producer 10\Stationary\DEU\ActiveObjects\web.mdb" mit Microsoft Access öffnen. Öffnen Sie die Tabelle "ArticleStyle". Scrollen Sie herunter bis zum Eintrag "Bestellartikel" in der Spalte "Name". Markieren Sie in dieser Zeile den kompletten Inhalt von "FieldDefs" und ersetzen Sie diesen mit folgendem Code: ##### ##### Schließen Sie die Tabelle wieder und danach Microsoft Access. Die Änderungen wurden jetzt in die web.mdb übernommen. Starten Sie nun den Zeta-Producer und öffnen Sie in ihrem Projekt den Bestellartikel. Hier gibt es nun eine Option "Bild-URL". Geben Sie hier ihre gewünschte URL ein. Webprojekt komplett neu erstellen und veröffentlichen. Nun haben alle Bestellartikel, deren eine URL eingeben wurde die Hyperlinkfunktion aktiv.