+ certificates

shift-cal.r

@@ -2,13 +2,13 @@ library("R4CouchDB")
 srv          <- "http://localhost:5984/"
 ## in 
 cin <- cdbIni()
-cin$DBName   <- "cp_vaclab_db"
+cin$DBName   <- "vaclab_db"
 cin$view     <- "cal"
 cin$design   <- "new"
 
 ## out
 cout <- cdbIni()
-cout$DBName   <- "new_vaclab_db"
+cout$DBName   <- "vl_db"
 
 ids <- cdbGetView(cin)$res$rows
 N   <- length(ids)
@@ -26,4 +26,4 @@ for(i in 1:N){
     
     cout$dataList <- pf
     res <- cdbUpdateDoc(cout)
-}
+} 
\ No newline at end of file

shift-cer.r

+library("R4CouchDB")
+
+
+## in 
+cin          <- cdbIni()
+cin$DBName   <- "vaclab_db"
+cin$view     <- "cer"
+cin$design   <- "new"
+
+## out
+cout <- cdbIni()
+cout$DBName   <- "vl_db"
+
+ids <- cdbGetView(cin)$res$rows
+N   <- length(ids)
+
+for(i in 1:N){
+    cin$id  <- ids[[i]]$id
+    pf      <- cdbGetDoc(cin)$res
+    cout$id <-ids[[i]]$key$new_id
+    
+    cout$dataList <- pf
+    res <- cdbUpdateDoc(cout)
+}
\ No newline at end of file

shift-cus.r

@@ -3,13 +3,13 @@ library("R4CouchDB")
 
 ## in 
 cin          <- cdbIni()
-cin$DBName   <- "cp_vaclab_db"
+cin$DBName   <- "vaclab_db"
 cin$view     <- "cus"
 cin$design   <- "new"
 
 ## out
 cout <- cdbIni()
-cout$DBName   <- "new_vaclab_db"
+cout$DBName   <- "vl_db"
 
 ids <- cdbGetView(cin)$res$rows
 N   <- length(ids)

shows/calibration.js

@@ -4,21 +4,24 @@ function (doc, req) {
      doc.Calibration &&
      doc.Calibration.Sign &&
      doc.Calibration.Type &&
-     doc.Calibration.Year){
+     doc.Calibration.Year &&
+     doc.Calibration.Standard){
 
     var dc = doc.Calibration;
 
     // new
     ndoc["_id"] = ["cal"
                   , dc.Year
+                  , dc.Standard
                   , dc.Type.toLowerCase()
                   , dc.Sign].join("-")
 
     ndoc.Calibration = {};
 
-    ndoc.Calibration.Year  = dc.Year
-    ndoc.Calibration.Type  = dc.Type
-    ndoc.Calibration.Sign  = dc.Sign
+    ndoc.Calibration.Year      = dc.Year
+    ndoc.Calibration.Type      = dc.Type
+    ndoc.Calibration.Sign      = dc.Sign
+    ndoc.Calibration.Standard  = dc.Standard
 
     if(dc.Measurement){
       var dcm = dc.Measurement;
@@ -60,23 +63,19 @@ function (doc, req) {
     }
 
     if(dc.Analysis){
-      var dca = dc.Analysis;
-      ndoc.Calibration.Analysis = dca;
+      ndoc.Calibration.Analysis = dc.Analysis;
     }
 
     if(dc.Result){
-      var dcr = dc.Result;
-      ndoc.Calibration.Result = dcr;
+      ndoc.Calibration.Result = dc.Result;
     }
 
     if(dc.Presettings){
-      var dcr = dc.Result;
-      ndoc.Calibration.Result = dcr;
+      ndoc.Calibration.Presettings = dc.Presettings
     }
 
     if(dc.Constants){
-      var dcc = dc.Constants;
-      ndoc.Calibration.Constants = dcc;
+      ndoc.Calibration.Constants = dc.Constants;
     }
 
 

views/cal/map.js

@@ -3,6 +3,7 @@ function(doc) {
      doc.Calibration &&
      doc.Calibration.Sign &&
      doc.Calibration.Type &&
+     doc.Calibration.Standard &&
      doc.Calibration.Year){
 
     var dc = doc.Calibration;
@@ -10,6 +11,7 @@ function(doc) {
 
     emit({new_id:["cal"
                  , dc.Year
+                 , dc.Standard.toLowerCase()
                  , dc.Type.toLowerCase()
                  , dc.Sign].join("-")}, null);
   }

views/cer/map.js

+function(doc) {
+  if(doc &&
+     doc.Certificate &&
+     doc.Certificate.Titlepage &&
+     doc.Certificate.Titlepage.Sign &&
+     doc.Certificate.Titlepage.FullYear ){
+
+    var dc = doc.Certificate;
+
+
+    emit({new_id:["cer"
+                 , dc.Titlepage.FullYear
+                 , dc.Titlepage.Sign].join("-")}, null);
+  }
+}