[Instantobjects-cvscommit] Demos/PrimerCross Main.pas,1.13,1.14

[Nando D. <na...@us...>]

Update of /cvsroot/instantobjects/Demos/PrimerCross
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13209/PrimerCross

Modified Files:
	Main.pas 
Log Message:
using old DB builder for catalog-less brokers, and new one for the others

Index: Main.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Main.pas,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Main.pas	16 Sep 2005 17:22:17 -0000	1.13
--- Main.pas	13 Oct 2005 10:46:55 -0000	1.14
***************
*** 320,338 ****
  var
    DefaultConnector: TInstantConnector;
  begin
    DefaultConnector := InstantDefaultConnector;
    Connector.IsDefault := True;
    try
!     Connector.StartTransaction;
      try
!       CreateCountries;
!       CreateCategories;
!       Connector.CommitTransaction;
!     except
!       Connector.RollbackTransaction;
!       raise;
      end;
-     if Confirm('Create random data?') then
-       RandomDataActionExecute(nil);
    finally
      if Assigned(DefaultConnector) then
--- 320,347 ----
  var
    DefaultConnector: TInstantConnector;
+   WasConnected: Boolean;
  begin
    DefaultConnector := InstantDefaultConnector;
    Connector.IsDefault := True;
    try
!     WasConnected := Connector.Connected;
!     if not WasConnected then
!       Connector.Connect;
      try
!       Connector.StartTransaction;
!       try
!         CreateCountries;
!         CreateCategories;
!         Connector.CommitTransaction;
!       except
!         Connector.RollbackTransaction;
!         raise;
!       end;
!       if Confirm('Create random data?') then
!         RandomDataActionExecute(nil);
!     finally
!       if not WasConnected then
!         Connector.Disconnect;
      end;
    finally
      if Assigned(DefaultConnector) then