Hello Sebastian,
Thank you for your reply.
So I went into it and I did the changes. I copy them here for those who have the same need as me.
By the way, I would like to ask the core to reconsider this choice, because this implies that only Admins may intervene on the Members. And this is quite problematic if you want to delegate the work on bigger projects.
Regards,
Fabian
1) change in Website/admin/Users/manageusers.ascx.vb
From this
If Not IsAdmin Then
AddModuleMessage("NotAuthorized", ModuleMessageType.YellowWarning, True)
DisableForm()
Exit Sub
End If
to this
' If Not IsAdmin Then
' AddModuleMessage("NotAuthorized", ModuleMessageType.YellowWarning, True)
' DisableForm()
' Exit Sub
' End If
2) change in Website/admin/Users/manageusers.ascx.vb
From this
If (Not IsAdmin And Not IsUser) Then
cmdPassword.Visible = False
Else
cmdPassword.Enabled = Not showPassword
End If
to this
If IsUser Then
cmdPassword.Visible = False
Else
cmdPassword.Enabled = Not showPassword
End If
3) change in Website/admin/Users/Password.ascx.vb
From this
If IsAdmin Then
lblTitle.Text = String.Format(Localization.GetString("PasswordTitle.Text", LocalResourceFile), User.Username, User.UserID.ToString)
Else
trTitle.Visible = False
End If
to this
If Not IsUser Then
lblTitle.Text = String.Format(Localization.GetString("PasswordTitle.Text", LocalResourceFile), User.Username, User.UserID.ToString)
Else
trTitle.Visible = False
End If
4) change in Website/admin/Users/Password.ascx.vb
From this
If IsAdmin And Not IsUser Then
lblChangeHelp.Text = Localization.GetString("AdminChangeHelp", Me.LocalResourceFile)
trOldPassword.Visible = False
Else
lblChangeHelp.Text = Localization.GetString("UserChangeHelp", Me.LocalResourceFile)
End If
to this
If Not IsUser Then
lblChangeHelp.Text = Localization.GetString("AdminChangeHelp", Me.LocalResourceFile)
trOldPassword.Visible = False
Else
lblChangeHelp.Text = Localization.GetString("UserChangeHelp", Me.LocalResourceFile)
End If
5) change in Website/admin/Users/Password.ascx.vb
From this
If IsAdmin And Not IsUser Then
lblResetHelp.Visible = False
trQuestion.Visible = False
trAnswer.Visible = False
Else
to this
If Not IsUser Then
lblResetHelp.Visible = False
trQuestion.Visible = False
trAnswer.Visible = False
Else
6) change in Website/admin/Users/Password.ascx.vb
From this
If MembershipProviderConfig.RequiresQuestionAndAnswer And Not IsAdmin Then
If txtAnswer.Text = "" Then
OnPasswordUpdated(New PasswordUpdatedEventArgs(PasswordUpdateStatus.InvalidPasswordAnswer))
Exit Sub
End If
answer = txtAnswer.Text
End If
to this
If MembershipProviderConfig.RequiresQuestionAndAnswer And IsUser Then
If txtAnswer.Text = "" Then
OnPasswordUpdated(New PasswordUpdatedEventArgs(PasswordUpdateStatus.InvalidPasswordAnswer))
Exit Sub
End If
answer = txtAnswer.Text
End If
7) change in Website/admin/Users/Password.ascx.vb
From this
If Not IsAdmin And txtOldPassword.Text = "" Then
OnPasswordUpdated(New PasswordUpdatedEventArgs(PasswordUpdateStatus.PasswordMissing))
Exit Sub
End If
to this
If IsUser And txtOldPassword.Text = "" Then
OnPasswordUpdated(New PasswordUpdatedEventArgs(PasswordUpdateStatus.PasswordMissing))
Exit Sub
End If