From 45c7c6067a50e5e1d9ad4cd6245209095908b731 Mon Sep 17 00:00:00 2001
From: Bruce Momjian <bruce@momjian.us>
Date: Thu, 4 Apr 2002 06:27:45 +0000
Subject: [PATCH] This patch against 0.98.7 lib/tables.tcl will allow PGAccess
to create new records containing apostrophes in text fields without altering
the appearance of the entry in the GUI interface (by copying the fldval to
fldvalfixed).
This will alleviate the need for users to create a record and then go back to
edit apostrophes into the text they entered.
Ryan Grange
---
src/bin/pgaccess/lib/tables.tcl | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/bin/pgaccess/lib/tables.tcl b/src/bin/pgaccess/lib/tables.tcl
index 7cfcf5d7723..52ee3ab0fad 100644
--- a/src/bin/pgaccess/lib/tables.tcl
+++ b/src/bin/pgaccess/lib/tables.tcl
@@ -544,7 +544,8 @@ if {$PgAcVar(mw,$wn,row_edited)==$PgAcVar(mw,$wn,last_rownum)} {
set PgAcVar(mw,$wn,newrec_values) [lreplace $PgAcVar(mw,$wn,newrec_values) $sfp $sfp]
}
lappend PgAcVar(mw,$wn,newrec_fields) "\"$fld\""
- lappend PgAcVar(mw,$wn,newrec_values) '$fldval'
+ regsub -all {'} $fldval '' fldvalfixed
+ lappend PgAcVar(mw,$wn,newrec_values) '$fldvalfixed'
# Remove the untouched tag from the object
$wn.c dtag $PgAcVar(mw,$wn,id_edited) unt
$wn.c itemconfigure $PgAcVar(mw,$wn,id_edited) -fill red
@@ -2175,7 +2176,7 @@ proc vTclWindow.pgaw:Permissions {base} {
#
# This file contains Tcl procedures used to input Japanese text.
#
-# $Header: /cvsroot/pgsql/src/bin/pgaccess/lib/Attic/tables.tcl,v 1.11 2002/02/18 04:01:27 ishii Exp $
+# $Header: /cvsroot/pgsql/src/bin/pgaccess/lib/Attic/tables.tcl,v 1.12 2002/04/04 06:27:45 momjian Exp $
#
# Copyright (c) 1993 Software Research Associates, Inc.
#
--
GitLab