Implement basket quantity update functionality with increment/decrement controls

.gitignore

@@ -355,3 +355,6 @@ MigrationBackup/
 # App_Data directory - ignore all contents except .gitkeep
 **/App_Data/*
 !**/App_Data/.gitkeep
+
+# macOS
+**/.DS_Store

global.json

@@ -0,0 +1,6 @@
+{
+  "sdk": {
+    "version": "9.0.302",
+    "rollForward": "latestFeature"
+  }
+}

src/Microsoft.eShopWeb.Web/Basket/Basket.Component.fs

@@ -28,7 +28,21 @@ module BasketComponent =
                       class' "esh-basket-image" ] ]
               section [ class' "esh-basket-item esh-basket-item--middle col" ] [ raw item.ProductName ]
               section [ class' "esh-basket-item esh-basket-item--middle col" ] [ raw (item.UnitPrice.ToString "C") ]
-              section [ class' "esh-basket-item esh-basket-item--middle col" ] [ raw (item.Quantity.ToString()) ]
+              section [ class' "esh-basket-item esh-basket-item--middle col" ] [
+                div [ class' "d-flex align-items-center" ] [
+                  Elem.form
+                    [ method "post"; action "/basket/update-quantity"; class' "d-inline me-1" ]
+                    [ input [ type' "hidden"; name "id"; value $"{item.CatalogItemId}" ]
+                      input [ type' "hidden"; name "quantity"; value $"{item.Quantity - 1}" ]
+                      input [ class' "btn btn-outline-secondary btn-sm"; type' "submit"; value "-" ] ]
+                  Elem.span [ class' "mx-2" ] [ raw (item.Quantity.ToString()) ]
+                  Elem.form
+                    [ method "post"; action "/basket/update-quantity"; class' "d-inline ms-1" ]
+                    [ input [ type' "hidden"; name "id"; value $"{item.CatalogItemId}" ]
+                      input [ type' "hidden"; name "quantity"; value $"{item.Quantity + 1}" ]
+                      input [ class' "btn btn-outline-secondary btn-sm"; type' "submit"; value "+" ] ]
+                ]
+              ]
               section [ class' "esh-basket-item esh-basket-item--middle col" ] [ raw ((decimal(item.Quantity) * item.UnitPrice).ToString "C" ) ]
               section [ class' "esh-basket-item esh-basket-item--middle col" ] 
                 [ Elem.form

src/Microsoft.eShopWeb.Web/Basket/Basket.Domain.fs

@@ -99,6 +99,37 @@ module BasketDomain =
         return None
     }
 
+  let updateBasketItemQuantity (db: ShopContext) catalogItemId newQuantity =
+    async {
+      let! existingBasket =
+        (db.Baskets.Include(fun b -> b.Items).OrderBy(fun b -> b.Id)) |> tryFirstAsync
+
+      let basket = existingBasket |> defaultValue emptyBasket
+
+      try
+        // Find the basket item to update
+        let itemToUpdate = 
+          db.BasketItems.Where(fun bi -> bi.CatalogItemId = catalogItemId && bi.BasketId = basket.Id)
+          |> Seq.tryHead
+
+        match itemToUpdate with
+        | Some item -> 
+            if newQuantity > 0 then
+              item.Quantity <- newQuantity
+              do! saveChangesAsync' db |> Async.Ignore
+              return Some newQuantity
+            else
+              // Remove the item if quantity becomes 0 or negative
+              db.BasketItems.Remove(item) |> ignore
+              do! saveChangesAsync' db |> Async.Ignore
+              return Some 0
+        | None -> 
+            return None
+      with exp ->
+        printfn $"Error updating quantity for item {catalogItemId} in basket"; printfn $"{exp}"
+        return None
+    }
+
   let removeFromBasket (db: ShopContext) catalogItemId =
     async {
       let! existingBasket =

src/Microsoft.eShopWeb.Web/Basket/Basket.Page.fs

@@ -64,6 +64,23 @@ module BasketPage =
         | None -> Response.redirectPermanently "/basket?error=notfound"
         | Some _ -> Response.redirectPermanently "/basket?removed=success"))
 
+  let updateQuantity: HttpHandler =
+    Services.inject<ShopContext> (fun db ->
+
+      let mapAsync = fun (form: FormCollectionReader) ->
+        let catalogItemId = form.TryGetGuid "id"
+        let quantity = form.TryGetInt "quantity"
+
+        match catalogItemId, quantity with
+        | Some id, Some qty -> BasketDomain.updateBasketItemQuantity db id qty |> Async.StartAsTask
+        | _ -> async { return None } |> Async.StartAsTask
+
+      Request.mapFormAsync mapAsync (fun result ->
+        match result with
+        | None -> Response.redirectPermanently "/basket?error=updatefailed"
+        | Some 0 -> Response.redirectPermanently "/basket?removed=success"
+        | Some qty -> Response.redirectPermanently $"/basket?updated={qty}"))
+
   // This uses a more low-level approach to reading the form
   let postAlternate: HttpHandler =
     Services.inject<ShopContext> (fun db -> fun ctx ->

src/Microsoft.eShopWeb.Web/Microsoft.eShopWeb.Web.fsproj

@@ -24,6 +24,6 @@
   <ItemGroup>
     <PackageReference Include="EntityFrameworkCore.FSharp" Version="6.0.7" />
     <PackageReference Include="Falco" Version="4.0.6" />
-    <PackageReference Include="Microsoft.EntityFrameworkCore.Sqlite" Version="9.0.6" />
+    <PackageReference Include="Microsoft.EntityFrameworkCore.Sqlite" Version="9.0.7" />
   </ItemGroup>
 </Project>

src/Microsoft.eShopWeb.Web/Program.fs

@@ -68,6 +68,7 @@ module Program =
           get "/basket" BasketPage.get
           post "/basket" BasketPage.post
           post "/basket/remove" BasketPage.remove
+          post "/basket/update-quantity" BasketPage.updateQuantity
 
           get "/identity/account/login" LoginPage.handler
 

src/Microsoft.eShopWeb.Web/Properties/launchSettings.json

@@ -6,7 +6,6 @@
       "applicationUrl": "https://localhost:7055",
       "environmentVariables": {
         "ASPNETCORE_ENVIRONMENT": "Development",
-        "ASPNETCORE_HTTPS_PORT": "7055",
         "DOTNET_WATCH_RESTART_ON_RUDE_EDIT": "true"
       }
     },
@@ -25,4 +24,4 @@
       }
     }
   }
-}
+}