fix bug for version precedent 7.3
In version < 7.3 is not present cast,domain
This is the correct way to generate the differences between the files?
Bye !!
Frank Lupo (Wolf) !!
/\_ _/\
\ o o /
--ooo-----ooo---
--
Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f
Sponsor:
Nessun'idea per un regalo? Da noi troverai novit� preziose ogni giorno.
Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=773&d=21-2
*** frmFind.frm Thu Feb 20 19:29:24 2003
--- old_frmFind.frm Fri Feb 21 13:53:07 2003
***************
*** 506,515 ****
'load object type
lvObjType.ListItems.Clear
lvObjType.ListItems.Add , "AGG", "Aggregate", "aggregate", "aggregate"
! If ctx.dbVer >= 7.3 Then
! lvObjType.ListItems.Add , "CST", "Cast", "cast", "cast"
! lvObjType.ListItems.Add , "DOM", "Domain", "domain", "domain"
! End If
lvObjType.ListItems.Add , "FNC", "Function", "function", "function"
lvObjType.ListItems.Add , "LNG", "Language", "language", "language"
lvObjType.ListItems.Add , "OPR", "Operator", "operator", "operator"
--- 506,513 ----
'load object type
lvObjType.ListItems.Clear
lvObjType.ListItems.Add , "AGG", "Aggregate", "aggregate", "aggregate"
! lvObjType.ListItems.Add , "CST", "Cast", "cast", "cast"
! lvObjType.ListItems.Add , "DOM", "Domain", "domain", "domain"
lvObjType.ListItems.Add , "FNC", "Function", "function", "function"
lvObjType.ListItems.Add , "LNG", "Language", "language", "language"
lvObjType.ListItems.Add , "OPR", "Operator", "operator", "operator"
***************
*** 639,648 ****
szNamespace = lvItem.Text
If chkAdvOpt.Value = 1 Then
If lvObjType.ListItems("AGG").Checked Then colObj.Add
objDatabase.Namespaces(szNamespace).Aggregates
! If ctx.dbVer >= 7.3 Then
! If lvObjType.ListItems("CST").Checked Then colObj.Add objDatabase.Casts
! If lvObjType.ListItems("DOM").Checked Then colObj.Add
objDatabase.Namespaces(szNamespace).Domains
! End If
If lvObjType.ListItems("FNC").Checked Then colObj.Add
objDatabase.Namespaces(szNamespace).Functions
If lvObjType.ListItems("LNG").Checked Then colObj.Add objDatabase.Languages
If lvObjType.ListItems("OPR").Checked Then colObj.Add
objDatabase.Namespaces(szNamespace).Operators
--- 637,644 ----
szNamespace = lvItem.Text
If chkAdvOpt.Value = 1 Then
If lvObjType.ListItems("AGG").Checked Then colObj.Add
objDatabase.Namespaces(szNamespace).Aggregates
! If lvObjType.ListItems("CST").Checked Then colObj.Add objDatabase.Casts
! If lvObjType.ListItems("DOM").Checked Then colObj.Add
objDatabase.Namespaces(szNamespace).Domains
If lvObjType.ListItems("FNC").Checked Then colObj.Add
objDatabase.Namespaces(szNamespace).Functions
If lvObjType.ListItems("LNG").Checked Then colObj.Add objDatabase.Languages
If lvObjType.ListItems("OPR").Checked Then colObj.Add
objDatabase.Namespaces(szNamespace).Operators
***************
*** 652,661 ****
If lvObjType.ListItems("VIE").Checked Then colObj.Add
objDatabase.Namespaces(szNamespace).Views
Else
colObj.Add objDatabase.Namespaces(szNamespace).Aggregates
! If ctx.dbVer >= 7.3 Then
! colObj.Add objDatabase.Casts
! colObj.Add objDatabase.Namespaces(szNamespace).Domains
! End If
colObj.Add objDatabase.Namespaces(szNamespace).Functions
colObj.Add objDatabase.Languages
colObj.Add objDatabase.Namespaces(szNamespace).Operators
--- 648,655 ----
If lvObjType.ListItems("VIE").Checked Then colObj.Add
objDatabase.Namespaces(szNamespace).Views
Else
colObj.Add objDatabase.Namespaces(szNamespace).Aggregates
! colObj.Add objDatabase.Casts
! colObj.Add objDatabase.Namespaces(szNamespace).Domains
colObj.Add objDatabase.Namespaces(szNamespace).Functions
colObj.Add objDatabase.Languages
colObj.Add objDatabase.Namespaces(szNamespace).Operators
---------------------------(end of broadcast)---------------------------
TIP 4: Don't 'kill -9' the postmaster
