mirror/postgresql
2
0
Fork 0
mirror of https://git.postgresql.org/git/postgresql.git synced 2025-03-01 19:45:33 +08:00
Code Issues Packages Projects Releases Wiki Activity

This patch against 0.98.7 lib/tables.tcl will allow PGAccess to create new

Browse Source 
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
This commit is contained in:
Bruce Momjian 2002-04-04 06:27:45 +00:00
parent d61c7886e8
commit 45c7c6067a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/bin/pgaccess/lib/tables.tcl
View File

@ -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.
#