register fix
This commit is contained in:
parent
2579fe9d3b
commit
e189627847
@ -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")
|
||||
}
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user