|
cvelzke
Starting Member
12 Posts |
 Posted - August 31 2007 : 08:17:33
|
I'm guessing this is what you need to see. . .
Sub Handle_translate (value,parsearray, ParseRs)
'****************************************************************
' [Translate cdescription products]
' [translate catdescription categories]
'*****************************************************************
dim tokens, fieldname, table, idfield, idvalue, currentvalue
dim fieldvalue, fieldtype, rc, ucfieldname
tokens=parsearray(ptokens)
fieldvalue=value
fieldname=tokens(1)
table=tokens(2)
if table = "" then
table = getsess("table")
end if
if table="" then
table="products"
else
table=lcase(table)
end if
if fieldname="" then
value=" Unknown field to translate "
exit sub
end if
idfield=parsearray(pidfield)
idvalue=parsearray(pidvalue)
' get current value in database
ucfieldname=ucase(fieldname)
value=translatelanguage(dbc, table, fieldname,idfield, idvalue, fieldvalue)
end sub
Thanks,
Carl |
 |
|
All Forums
Variable Undefined Error
New Topic
Printer Friendly
Topic 
TrustGuard - PCI Security Scanner
