[Rqda-commits] r68 - pkg/R

[noreply at r-forge.r-project.org]

Author: wincent
Date: 2009-03-19 13:23:26 +0100 (Thu, 19 Mar 2009)
New Revision: 68

Modified:
   pkg/R/Variables.R
Log:


Modified: pkg/R/Variables.R
===================================================================
--- pkg/R/Variables.R	2009-03-19 10:47:56 UTC (rev 67)
+++ pkg/R/Variables.R	2009-03-19 12:23:26 UTC (rev 68)
@@ -78,6 +78,8 @@
               Selected <- svalue(.rqda$.AttrNamesWidget)
               Encoding(Selected) <- "UTF-8"
               dbGetQuery(.rqda$qdacon,sprintf("update attributes set status=0 where name=='%s'",Selected))
+              dbGetQuery(.rqda$qdacon,sprintf("delete from caseAttr where variable=='%s'",Selected))
+              dbGetQuery(.rqda$qdacon,sprintf("update from fileAttr where variable=='%s'",Selected))
               AttrNamesUpdate()
             }
           }
@@ -98,6 +100,8 @@
         if (!is.na(NewName)){
           Encoding(NewName) <- "UTF-8"
           dbGetQuery(.rqda$qdacon, sprintf("update attributes set name = '%s' where name == '%s' ",NewName,selected))
+          dbGetQuery(.rqda$qdacon, sprintf("update caseAttr set variable = '%s' where variable == '%s' ",NewName,selected))
+          dbGetQuery(.rqda$qdacon, sprintf("update fileAttr set variable = '%s' where variable == '%s' ",NewName,selected))
           AttrNamesUpdate()
         }
       }