function ccd(c){o=true;s=0;s2=0;for(j=c.length-1;j>=0;j--){if(o)s+=c.substr(j,1)*3; else s2+=c.substr(j,1)-0;o=!o;}cd=(s+s2) % 10;if(cd==0)return cd; else return 10-cd;}function vc(s,l){switch(l){case 13:pat=/^[0-9]{13,13}$/;break;case 8:pat=/^[0-9]{8,8}$/;break;case 12:pat=/^[0-9]{12,12}$/;break;case 14:pat=/^[0-9]{14,14}$/;break;case 18:pat=/^[0-9]{18,18}$/;}if(s.search(pat)==-1)return 2;else if(l==18){if(s.substr(0,2)=="00")s=s.substr(2,14);l=14;}if(s.substr(l-1,1)!=ccd(s.substr(0,l-1)))return 3;return 0;}function showError(f,i,l){switch(i){case 1:if(f.lang.value=="el")alert("Ο κωδικός είναι κενός");else alert("Code is empty");break;case 2:if(f.lang.value=="el")alert("Ο κωδικός πρέπει να είναι αριθμός με " + l + " ψηφία");else alert("Code must be a number with " + l + " digits");break;case 3:if(f.lang.value=="el")alert("Λανθασμένο ψηφίο ελέγχου");else alert("Wrong check digit");break;}}function validate_num_code(f,l){c=f.VAL.value;if(c=="")showError(f,1,l);else{e=vc(c,l);if(e==0)return true;showError(f,e,l);}f.VAL.focus();return false;}
function askopenurl(msg,urlString){if(confirm(msg)){window.location=urlString;}}