[Zapp-cvs-commit] ZApp/leverMethods/PG createSchemaLever.plain,1.8,1.9

[<ssp...@us...>]

Update of /cvsroot/zapp/ZApp/leverMethods/PG
In directory sc8-pr-cvs1:/tmp/cvs-serv5312/leverMethods/PG

Modified Files:
	createSchemaLever.plain 
Log Message:
make CMF object a bit more flexible WRT attribute management

Index: createSchemaLever.plain
===================================================================
RCS file: /cvsroot/zapp/ZApp/leverMethods/PG/createSchemaLever.plain,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** createSchemaLever.plain	25 Jun 2003 11:45:53 -0000	1.8
--- createSchemaLever.plain	8 Jan 2004 11:20:26 -0000	1.9
***************
*** 18,21 ****
--- 18,22 ----
  defaultSize = specialist.ZApp_getDefaultStringSize()
  pKeySize = specialist.ZApp_getPrimaryKeySize()
+ refLookup = specialist.ZApp_getReferenceLookup()
  
  typeLookups = {
***************
*** 51,54 ****
--- 52,56 ----
          
  for item in pm:
+     itemID = item['id']
      sqlType = item.get('dbType',item.get('sqlType',None))
      if sqlType is None:
***************
*** 61,68 ****
          theType = theType % theSize
          
!     createString = (" %s  %s " % (item['id'], theType))
      defaultValue = item.get('dbDefault',item.get('defaultValue',None))
      if defaultValue:
          createString += ' DEFAULT <dtml-sqlvar "%s" type="%s"> ' % (`defaultValue`, defaultValLookups.get(sqlType, item['type']))
  
      itemList.append(createString)
--- 63,74 ----
          theType = theType % theSize
          
!     createString = (" %s  %s " % (itemID, theType))
      defaultValue = item.get('dbDefault',item.get('defaultValue',None))
      if defaultValue:
          createString += ' DEFAULT <dtml-sqlvar "%s" type="%s"> ' % (`defaultValue`, defaultValLookups.get(sqlType, item['type']))
+ 
+     refList = refLookup.get(itemID,[])
+     if len(refList) >= 2:
+         createString += ' REFERENCES %s ( %s ) INITIALLY DEFERRED ' % (refList[0], refList[1] )
  
      itemList.append(createString)