Set checkbox state based on database

2 files changed, 8 insertions, 6 deletions

diff --git a/main.ur b/main.ur
index 57471cd..cb2fe15 100644
--- a/main.ur
+++ b/main.ur
@@ -16,6 +16,7 @@ open Mdl
 
 table nextAction : {
   Nam : string,
+  Done : bool,
 }
 
 (* Forces JavaScript to be enabled on the given page, so as to pull in external
@@ -24,12 +25,13 @@ val forceJavaScript = <xml><script code={return ()} /></xml>
 
 fun renderNextAction action =
   c <- fresh;
+  done <- source action.Done;
   return <xml>
     <li class="mdl-list__item">
       <span class="mdl-list__item-primary-content">
         <span class="mdl-list__item-icon">
           <label class="mdl-checkbox mdl-js-checkbox mdl-js-ripple-effect" for={c}>
-            <ccheckbox id={c} class="mdl-checkbox__input" />
+            <ccheckbox id={c} source={done} class="mdl-checkbox__input" />
           </label>
         </span>
         {[action.Nam]}
diff --git a/prepopulate.sql b/prepopulate.sql
index 4d3437b..f50d17f 100644
--- a/prepopulate.sql
+++ b/prepopulate.sql
@@ -12,9 +12,9 @@
 -- License for the specific language governing permissions and limitations under
 -- the License.
 
-INSERT INTO uw_Main_nextAction (uw_nam)
+INSERT INTO uw_Main_nextAction (uw_nam, uw_done)
 VALUES
-  ("Print cover for TPS report"),
-  ("Collect information for TPS report"),
-  ("Generate charts for TPS report"),
-  ("Lorem ipsum dolor sit amet");
+  ("Print cover for TPS report", 1),
+  ("Collect information for TPS report", 0),
+  ("Generate charts for TPS report", 0),
+  ("Lorem ipsum dolor sit amet", 0);