add transactions and quantities

 - backend exposes endpoints to perform transactions
 - frontend introduces a new page to "checkout" cart

1 files changed, 8 insertions, 8 deletions

diff --git a/frontend/src/Catalog.elm b/frontend/src/Catalog.elm
index 6882c73..d00cb92 100644
--- a/frontend/src/Catalog.elm
+++ b/frontend/src/Catalog.elm
@@ -188,13 +188,13 @@ viewFilters : Model -> Html Msg
 viewFilters model =
     let
         priceRange =
-            range 0 50000 5000
+            range 0 55000 5000
 
         ratingRange =
-            List.range 1 5
+            range 1 6 1
 
-        viewRange =
-            List.map (\i -> option [] [ text <| String.fromInt i ])
+        viewRange default scale =
+            List.map (\i -> option [ selected (i == default) ] [ text <| String.fromInt i ]) scale
 
         inp =
             Maybe.withDefault 0 << String.toFloat
@@ -202,15 +202,15 @@ viewFilters model =
     div []
         [ div []
             [ text "Price"
-            , select [ onInput (ChangePriceLower << inp) ] (viewRange priceRange)
+            , select [ onInput (ChangePriceLower << inp) ] (viewRange 0 priceRange)
             , text "to"
-            , select [ onInput (ChangePriceUpper << inp) ] (viewRange priceRange)
+            , select [ onInput (ChangePriceUpper << inp) ] (viewRange 50000 priceRange)
             ]
         , div []
             [ text "Rating"
-            , select [ onInput (ChangeRatingLower << inp) ] (viewRange ratingRange)
+            , select [ onInput (ChangeRatingLower << inp) ] (viewRange 1 ratingRange)
             , text "to"
-            , select [ onInput (ChangeRatingUpper << inp) ] (viewRange ratingRange)
+            , select [ onInput (ChangeRatingUpper << inp) ] (viewRange 5 ratingRange)
             ]
         ]