Share My Creation [Project Template] [B4X] User Login Client

Sub BtnEdit_Click
    If BtnEdit.Text = "E D I T" Then
        BtnEdit.Text = "U P D A T E"
        BtnCancel.Visible = True
        txtUserName.Text = lblUserName.Text
        txtUserLocation.Text = lblUserLocation.Text
        lblUserName.Visible = False
        lblUserLocation.Visible = False
        txtUserName.mBase.Visible = True
        txtUserLocation.mBase.Visible = True
    Else
        'BtnEdit.Text = "E D I T"
        If txtUserName.Text.Trim = "" Then
            xui.MsgboxAsync("Please enter your Name", "E R R O R")
            Return
        End If
        If txtUserLocation.Text.Trim = "" Then
            xui.MsgboxAsync("Please enter your Location", "E R R O R")
            Return
        End If
        UpdateProfile
    End If
End Sub

Sub UpdateProfile
    Try
        Log("[B4XPageUserProfile] UpdateProfile")
        Dim data As Map
        data.Initialize
        data.Put("key", Main.User.ApiKey)
        data.Put("token", Main.User.Token)
        data.Put("user_name", txtUserName.Text.Trim)
        data.Put("user_location", txtUserLocation.Text.Trim)
        Dim job As HttpJob
        job.Initialize("", Me)
        job.PutString(Main.strURL & "users/update-profile", data.As(JSON).ToString)
        job.GetRequest.SetHeader("Authorization", "Bearer " & Main.User.Token)
        Wait For (job) JobDone(job As HttpJob)