Merge pull request #1 from PESchoenberg/develop

Improved info.

src/scheme/jcp_inm.scm

@@ -37,7 +37,7 @@
 (use-modules (grsp grsp0))
 
 
-; Vars
+; Vars. Change the path(s) to your installation.
 (define mc 0)
 (define sqlp-path "/home/pablo/Programs/C++/sqlp/sqlp")
 (define database "/home/pablo/Datasets/Jcp_Inm/data/jcp_inm.db")
@@ -83,7 +83,7 @@
     res))
 
 
-; mult-adr - construct a block addres based on a choice.
+; mult-adr - Construct a block addres based on a choice.
 ;
 ; Arguments
 ; - p_n: number.
@@ -97,6 +97,9 @@
     res))
 
 
+; asl-street-number - Establish the street block number to which a measurement
+; belongs
+;
 (define (ask-street-number)
   (let ((res 0)
 	(mc 0))
@@ -145,7 +148,7 @@
     res))
 
 
-; ask-street-abr presents a menu with the various street name abbreviations.
+; ask-street-abr - Presents a menu with the various street name abbreviations.
 ;
 (define (ask-street-abr)
   (let ((res "")
@@ -234,7 +237,7 @@
     res))
 
 
-; write-prep-sql - overwrites the contents of prep.sql with the values
+; write-prep-sql - Overwrites the contents of prep.sql with the values
 ; conmtained in the arguments. 
 ;
 ; Arguments:
@@ -294,7 +297,6 @@
 		     0))))
 
 
-
 ; run-prep-sql - Runs the existing prep.sql.
 ;
 (define (run-prep-sql)

src/sql/prep.sql

@@ -1,8 +1,8 @@
 UPDATE trf_pers SET Status = 'enabled' WHERE Status IS NULL;
 UPDATE trf_pers SET Context = 'center' WHERE Context IS NULL;
-UPDATE trf_pers SET Hr = 10 WHERE Hr IS NULL;
-UPDATE trf_pers SET Dayn = 12 WHERE Dayn IS NULL;
-UPDATE trf_pers SET Dayw = 'Tue' WHERE Dayw IS NULL;
+UPDATE trf_pers SET Hr = 11 WHERE Hr IS NULL;
+UPDATE trf_pers SET Dayn = 13 WHERE Dayn IS NULL;
+UPDATE trf_pers SET Dayw = 'Wed' WHERE Dayw IS NULL;
 UPDATE trf_pers SET Monthn = 11 WHERE Monthn IS NULL;
 UPDATE trf_pers SET Year = 2019 WHERE Year IS NULL;