added legacy code for reference
Playwright Tests / test (push) Has been cancelled

This commit is contained in:
2026-06-04 14:56:43 +02:00
parent dbe6cd8653
commit c8a4d18f1a
93 changed files with 18065 additions and 0 deletions
@@ -0,0 +1,116 @@
@imports OCMS
@ModelType Global.OCMS.intranet.intranet_model
@code
Dim Ctrl As Global.OCMS.intranet.Controllers.IntranetController_base = If(GetType(Global.OCMS.intranet.Controllers.IntranetController_base).IsAssignableFrom(Me.ViewContext.Controller.GetType()), DirectCast(Me.ViewContext.Controller, Global.OCMS.intranet.Controllers.IntranetController_base), Nothing)
Dim AccountName As String = "" 'Ctrl.AccountInfo.AccountName
Dim RequestedAccount As String = "" 'Ctrl.RequestedAccount
Dim isIE As Boolean = Global.OCMS.intranet.OCMS_intranet.isUNSupportedBrowser(Ctrl)
Dim textsdic As New LanguageTextDic("de")
With textsdic
.Add("noie", "Dieser Browser wird leider nicht unterstützt. Bitte verwenden Sie Edge, Firefox oder Chrome.", "This browser is unfortunately not supported. Please use Edge, Firefox, or Chrome instead.")
.Add("dph", "Datenschutz", "Data Protection & Privacy")
.Add("dps", "Diese Webseite ist ein nicht-öffentliches Online-Portal. Der Zugang ist ausschließlich für autorisierte Personen der jeweiligen Organisation vorbehalten." & vbNewLine & vbNewLine & "Bei Besuch dieser Anmeldeseite werden keine personenbezogen Daten erfasst und gespeichert, die Sie nicht selbst übermitteln. Übermittelte Daten werden ohne Ihre ausdrückliche Zustimmung generell nicht an Dritte weitergegeben." & vbNewLine &
"Zur Verminderung grundsätzlicher Sicherheitsrisiken bei der Datenübertragung im Internet findet die Kommunikation mit dem Server in beiden Richtungen grundsätzlich über eine gesicherte Verbindung statt." & vbNewLine & vbNewLine &
"Für die Nutzung der Seite als angemeldeter Benutzer beachten Sie bitte die ausführliche Datenschutzerklärung.",
"This website is a private online portal. Access have only members and authorized persons of the respective organisation." & vbNewLine & vbNewLine & "At visit of this login page, no individual-related data will be captured and stored, that you did not submit yourself. Sent data will generally not be distributed to third parties without your explicit consent." & vbNewLine &
"To reduce general security risks of transmitting data over the internet is the communication with the server in both directions generally via a secured connection." & vbNewLine & vbNewLine &
"For the use of this website as registered and logged-on user, please take note of the detailed data protection statements.")
.Add("ccc", "Ich stimme der Nutzung von Cookies zur Authentifizierung im internen Bereich zu.", "I consent to the use of cookies for authenticating in the internal area.")
End With
End Code
<div class="modal">
<div id="oci_login" class="modal-dialog in">
@If isIE = False Then
@<div class="modal-content" novalidate="true">
<div Class="modal-header">
@If AccountName <> "" Then
@<h2>@(AccountName)</h2>
End If
<h3>@(Ctrl.AppName)</h3>
</div>
</div>
@<div class="modal-content" novalidate="true">
<form id="loginform" role="form" action="javascript:void(0);">
<div class="modal-header"><h3 class="modal-title">Anmeldung</h3></div>
<div class="modal-body">
<div class="form-body">
@If ctrl.Intranet.isAccountRequired = True AndAlso RequestedAccount = "" Then
@<div class="form-group">
<div class="form-itm">
<label for="dlg_loginaccount">Account<span class="ind_required">*</span></label>
</div>
<div class="form-itm">
<input id="dlg_loginaccount" name="loginaccount" required placeholder="Account" class="form-control" value="@(RequestedAccount)" />
</div>
</div>
@<div class="form-group"><div class="form-sep"></div><div class="form-sep"></div></div>
End If
<div class="form-group">
<div class="form-itm">
<label for="dlg_userinfo">Email / Anmeldename<span class="ind_required" vm-nvnote="Bitte tragen Sie hier Ihren Anmeldenamen oder Ihre Email-Adresse ein.">*</span></label>
</div>
<div class="form-itm">
<input id="dlg_userinfo" name="userinfo" required placeholder="Email-Adresse / Anmeldename" class="form-control" @(If(Ctrl.Intranet.isExtendedUserlookup, " onchange=""$ocms.login.uichange.call(this);""", "").raw()) />
</div>
</div>
@If Ctrl.Intranet.isExtendedUserlookup = True Then
@<div class="form-group hd">
<input id="dlg_userlogin" name="userlogin" required class="form-control" type="hidden" />
</div>
@<div class="form-group">
<div class="form-itm">
<label for="dlg_username">Benutzer<span class="ind_required">*</span></label>
</div>
<div class="form-itm">
<input id="dlg_username" name="username" required placeholder="Wird vom System ermittelt..." readonly="readonly" class="form-control" />
</div>
</div>
End If
<div class="form-group">
<div class="form-itm">
<label for="dlg_userpass">Passwort<span class="ind_required">*</span></label>
</div>
<div class="form-itm">
<input id="dlg_userpass" name="userpass" required placeholder="Passwort" class="form-control" type="password" />
</div>
</div>
</div>
</div>
@If Ctrl.Intranet.isCookieConfirmationOnLogin = True Then
@<div class="modal-footer">
<div style="display: block;">
<table>
<tbody><tr>
<td>
<input type="checkbox" class="custom-control-input" id="login-cookie" name="cookieconfirmed" autocomplete="off" value="true" required="" data-note="Zum Anmelden müssen Sie zustimmen.">
</td>
<td>
<label class="custom-control-label" for="login-cookie">@textsdic("ccc")</label>
</td>
</tr>
</tbody>
</table>
</div>
</div>
End If
<div class="modal-footer">
<div class="note_required"><span class="ind_required">*</span><span>Eingabe erforderlich.</span></div>
<div id="dbtn-forgotpw" class="btn btn-sm" onclick="$ocms.login.sendpassword.call(this, event);">Passwort vergessen?</div>
<Button id="dbtn-confirm" type="submit" class="btn btn-primary">Anmelden</button>
</div>
<div id="dataprivacy" class="modal-note"><h3>@textsdic("dph")</h3><p>@textsdic.rwMVC("dps")</p></div>
</form>
</div>
Else
@<div class="modal-content"><div class="modal-body alert">@textsdic("noie")</div></div>
End If
</div>
</div>