ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/nongui/ibxscript.pas
(Generate patch)

Comparing ibx/trunk/runtime/nongui/ibxscript.pas (file contents):
Revision 437 by tony, Mon Jul 17 14:08:12 2023 UTC vs.
Revision 438 by tony, Mon Jul 22 14:15:33 2024 UTC

# Line 968 | Line 968 | begin
968        Exit;
969      end;
970  
971 +    {process Set Time Zone}
972 +    RegexObj.Expression := '^ *SET +TIME +ZONE +(LOCAL|''[A-Za-z0-9/]+'') *(\' + Terminator + '|)';
973 +    if RegexObj.Exec(stmt) then
974 +    begin
975 +      {pass through}
976 +      Database.Attachment.ExecImmediate([isc_tpb_write,isc_tpb_wait,isc_tpb_concurrency],stmt);
977 +      Exit;
978 +    end;
979      {Process Remaining Set statements}
980      RegexObj.Expression := '^ *SET +([A-Z]+)( +[A-Z0-9]+|) *(\' + Terminator + '|)';
981      if RegexObj.Exec(stmt) then

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines