logo
Welcome Guest! To enable all features please Login. New Registrations are disabled.

Notification

Icon
Error

Options
Go to last post Go to first unread
bart  
#1 Posted : Monday, February 8, 2010 1:04:29 PM(UTC)
bart

Rank: Administration

Reputation:

Groups: Administration
Joined: 10/8/2008(UTC)
Posts: 190
Man

Was thanked: 1 time(s) in 1 post(s)
When you are using a price-matrix in a shop, by default the artical info looks like crap in the shopping cart.
To let this look like more smooth.
Just replace "UserEscape additional information"
white the following code.

Code:
Dim RetString as string = ""
Dim vinkstring as string = "<img src=""http://www.project-blue.nl/images/checkboxja.gif"" border=0> "

Dim extrainfoindex as integer = cint(FieldName_AdditionalInfo.substring(16,2))
Dim ActueleString as string = pbw.Shop_Get_Product_Property(pbw.Get_Parameter_Value(pbw.Get_Shop_cookie(session), ShopRowIndex), 3 + extrainfoindex)

Dim subartikelarray(10) as string
Dim subartikelarrayoms(10) as string
Dim subartikelarrayid(10) as string
Dim subartikelarraykol(10) as string
Dim subartikelarrayaan(10) as string

Dim vulling as integer = 0

while ActueleString.indexof("\\@v@")>=0
   subartikelarray(vulling) = ActueleString.substring(0,ActueleString.indexof("\\@v@"))
   vulling = vulling + 1
   ActueleString = ActueleString.SubString(ActueleString.indexof("\\@v@")+2,ActueleString.Length-ActueleString.indexof("\\@v@")-2)
End while

If ActueleString.length>0 then
  subartikelarray(vulling) = ActueleString
  Vulling = vulling + 1
end if

Dim i as integer
For i=0 to vulling-1
  Dim artstr as string = subartikelarray(i)
  if artstr.indexof("^")>0 then
    subartikelarrayoms(i) = artstr.substring(0,artstr.indexof("^")).replace("@v@",vinkstring)
    artstr = artstr.substring(artstr.indexof("^")+1,artstr.length-artstr.indexof("^")-1)
    if artstr.indexof("^")>0 then
      subartikelarrayid(i) = artstr.substring(0,artstr.indexof("^"))
      artstr = artstr.substring(artstr.indexof("^")+1,artstr.length-artstr.indexof("^")-1)
      if artstr.indexof("^")>0 then
        subartikelarraykol(i) = artstr.substring(0,artstr.indexof("^"))
        artstr = artstr.substring(artstr.indexof("^")+1,artstr.length-artstr.indexof("^")-1)
        if artstr.length>0 then
          subartikelarrayaan(i) = artstr
        else
          subartikelarrayaan(i) = "1"
        end if
      else
        subartikelarraykol(i) = ""
        subartikelarrayaan(i) = ""
      end if
    else
      subartikelarrayid(i) = ""
      subartikelarraykol(i) = ""
      subartikelarrayaan(i) = ""
    end if
  else
    subartikelarrayoms(i) = ""
    subartikelarrayid(i) = ""
    subartikelarraykol(i) = ""
    subartikelarrayaan(i) = ""
  end if

  RetString = Retstring & subartikelarrayoms(i)

next

return retstring

Wanna join the discussion?! Login to your Sienn Forum forum account. New Registrations are disabled.

Users browsing this topic
Forum Jump  
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.