Submit sheets from homepage

src/Handler/Home.hs

@@ -128,7 +128,10 @@ homeUpcomingSheets uid = do
             cell $ formatTime SelFormatDateTime deadline >>= toWidget
         , sortable (Just "done")   (i18nCell MsgDone)   $ \DBRow{ dbrOutput=(E.Value tid, E.Value ssh, E.Value csh, E.Value shn, _, E.Value mbsid) } ->
             case mbsid of
-              Nothing    -> mempty
+              Nothing    -> cell $ do
+                let submitRoute = CSheetR tid ssh csh shn SubmissionNewR
+                whenM (hasWriteAccessTo submitRoute) $
+                  modal [whamlet|_{MsgMenuSubmissionNew}|] . Left $ SomeRoute submitRoute
               (Just sid) -> anchorCellM (CSubmissionR tid ssh csh shn <$> encrypt sid <*> pure SubShowR)
                                         (toWidget $ hasTickmark True)
         ]
@@ -170,4 +173,4 @@ homeUpcomingSheets uid = do
     , dbtParams    = def
     , dbtIdent     = "upcoming-sheets" :: Text
     }
-  $(widgetFile "home/upcomingSheets")
+  $(widgetFile "home/upcomingSheets")

src/Handler/Utils/Form.hs

@@ -366,11 +366,7 @@ zipFileField doUnpack = Field{..}
       | [f] <- files = return . Right . Just $ bool (yieldM . acceptFile) sourceFiles doUnpack f
       | null files   = return $ Right Nothing
       | otherwise    = return . Left $ SomeMessage MsgOnlyUploadOneFile
-    fieldView fieldId fieldName attrs _ req =
-      [whamlet|
-        $newline never
-        <input type=file ##{fieldId} *{attrs} name=#{fieldName} :req:required>
-      |]
+    fieldView fieldId fieldName attrs _ req = $(widgetFile "widgets/zipFileField")
 
 multiFileField :: Handler (Set FileId) -> Field Handler (Source Handler (Either FileId File))
 multiFileField permittedFiles' = Field{..}
@@ -410,7 +406,7 @@ multiFileField permittedFiles' = Field{..}
           E.where_ $ file E.^. FileId `E.in_` E.valList (setToList pVals)
           E.orderBy [E.asc $ file E.^. FileTitle]
           return (file E.^. FileId, file E.^. FileTitle)
-      $(widgetFile "multiFileField")
+      $(widgetFile "widgets/multiFileField")
     unpackZips :: Text
     unpackZips = "unpack-zip"
     takeLefts :: Monad m => ConduitM (Either b a) b m ()

templates/widgets/zipFileField.hamlet

@@ -0,0 +1,2 @@
+$newline never
+<input type=file uw-file-input ##{fieldId} *{attrs} name=#{fieldName} :req:required>