From 3ef3092b42fc6f1284bb975c83b0f302ff2f0dd0 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sat, 8 Dec 2012 21:17:05 +0000
Subject: [PATCH] Do not use translated combo box text for CREATE code, in
 routine editor. Fixes issue #3051.

---
 source/routine_editor.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/source/routine_editor.pas b/source/routine_editor.pas
index 1edfaebd..6dad25e2 100644
--- a/source/routine_editor.pas
+++ b/source/routine_editor.pas
@@ -519,7 +519,10 @@ var
   ProcOrFunc: String;
   i: Integer;
 begin
-  ProcOrFunc := UpperCase(GetFirstWord(comboType.Text));
+  case comboType.ItemIndex of
+    0: ProcOrFunc := 'PROCEDURE';
+    else ProcOrFunc := 'FUNCTION';
+  end;
   Result := 'CREATE ';
   if comboDefiner.Text <> '' then
     Result := Result + 'DEFINER='+DBObject.Connection.QuoteIdent(comboDefiner.Text, True, '@')+' ';