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

diff --git a/src/bin/pgaccess/lib/tables.tcl b/src/bin/pgaccess/lib/tables.tcl
index 7cfcf5d772394a424045207e2b59b7dd0111d766..52ee3ab0fadd38bf55f21ef3392a1faff13807df 100644 (file)
--- 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.
 #