<commit_before>
Partial Class ProjectEdit
  Inherits System.Web.UI.Page

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    If Not IsPostBack Then
      Dim idString As String = Request.QueryString("id")
      Dim obj As ProjectTracker.Library.Project
      If Len(idString) > 0 Then
        Dim id As Guid
        id = New Guid(idString)
        obj = ProjectTracker.Library.Project.GetProject(id)
        If ProjectTracker.Library.Project.CanSaveObject Then
          Me.DetailsView1.DefaultMode = DetailsViewMode.Edit

        Else
          Me.DetailsView1.DefaultMode = DetailsViewMode.ReadOnly
        End If

      Else
        obj = ProjectTracker.Library.Project.NewProject
        Me.DetailsView1.DefaultMode = DetailsViewMode.Insert
      End If
        Session("currentObject") = obj
      End If

  End Sub

  Protected Sub DetailsView1_ItemDeleted(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewDeletedEventArgs) Handles DetailsView1.ItemDeleted

    Response.Redirect("ProjectList.aspx")

  End Sub

  Protected Sub RoleListDataSource_SelectObject(ByVal sender As Object, ByVal e As Csla.Web.SelectObjectArgs) Handles RoleListDataSource.SelectObject

    e.BusinessObject = ProjectTracker.Library.RoleList.GetList

  End Sub<commit_msg>*** empty log message ***<commit_after>
Partial Class ProjectEdit
  Inherits System.Web.UI.Page

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    DetailsView1.DataKeyNames = New String() {"Id"}
    GridView1.DataKeyNames = New String() {"ResourceId"}
    If Not IsPostBack Then
      Dim idString As String = Request.QueryString("id")
      Dim obj As ProjectTracker.Library.Project
      If Len(idString) > 0 Then
        Dim id As Guid
        id = New Guid(idString)
        obj = ProjectTracker.Library.Project.GetProject(id)
        If ProjectTracker.Library.Project.CanSaveObject Then
          Me.DetailsView1.DefaultMode = DetailsViewMode.Edit

        Else
          Me.DetailsView1.DefaultMode = DetailsViewMode.ReadOnly
        End If

      Else
        obj = ProjectTracker.Library.Project.NewProject
        Me.DetailsView1.DefaultMode = DetailsViewMode.Insert
      End If
      Session("currentObject") = obj
    End If

  End Sub

  Protected Sub DetailsView1_ItemDeleted(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewDeletedEventArgs) Handles DetailsView1.ItemDeleted

    Response.Redirect("ProjectList.aspx")

  End Sub

  Protected Sub RoleListDataSource_SelectObject(ByVal sender As Object, ByVal e As Csla.Web.SelectObjectArgs) Handles RoleListDataSource.SelectObject

    e.BusinessObject = ProjectTracker.Library.RoleList.GetList

  End Sub
{'fraction_non_alphanumeric': 0.0657752078062884, 'fraction_numerical': 0.005059631369714492, 'mean_word_length': 3.2914728682170544, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4895272', 'n_tokens_mistral': 786, 'n_tokens_neox': 756, 'n_words': 207}