register fix

This commit is contained in:
Rafał Piskorski 2021-01-25 14:17:37 +01:00
parent 2579fe9d3b
commit e189627847

View File

@ -233,13 +233,12 @@ registerServer <- function(input, output,session) {
return()
}else{
tmps=s
number=findLogin(tmps)
if ((grepl("^([a-zA-ZĄąĆćĘꣳŃńÓ󌜏źŻż]+[0-9\\-\\_]*){5,20}$",s)==TRUE) & number==0){
if ((grepl("^([a-zA-ZĄąĆćĘꣳŃńÓ󌜏źŻż]+[0-9\\-\\_]*){5,20}$",s)==TRUE)){
return()
}else if(number!=0){
p("Błąd: Login jest zajęty",style="color:yellow")
}else{
}
else{
p("Błąd: Login powinien składać się z liter i cyfr i mieć długość od 5 do 15 znaków",style="color:yellow")
}
}