'Moved to JSMiscNew.js
'function vbsIsDate(date1)
'	vbsIsDate = isDate(date1) 
'end function

'------------------------------------------------------------------------------------'
'14.11.2010 Moved to JSMiscNew.js 
'function vbs_replace(val, rep, withi)
'	vbs_replace = replace(val, rep, withi)
'end function

'------------------------------------------------------------------------------------'
'Moved to JSMiscNew.js
'sub GetDate(sFieldName)
'	GetDate_diri "", sFieldName
'end sub	

'------------------------------------------------------------------------------------'
'Moved to JSMiscNew.js
'sub GetDate_diri(diri, sFieldName)
'	dim sParam	
'	arrIndex = -1
'	sParam = ""
'	sParam = window.showModalDialog(diri & "Util/Behavior_date/Calendar.htm","", "dialogHeight:225px;dialogWidth=300px;help=no;status=no;")	
'	document.all(sFieldName).value = sParam	
'end sub 

'------------------------------------------------------------------------------------'
'function validDate(s)
'
'	dim tempi	
'	dateError = false
'	tempi = split(s,"/")
'	if ubound(tempi) >= 0 then 
'		if IsNumeric(tempi(0)) then
'			if tempi(0) > 31 then dateError = true
'			if tempi(0) > 30 and (tempi(1)= 6 or tempi(1)= 06 or tempi(1)= 4 or tempi(1)= 04 or tempi(1)= 9 or tempi(1)= 09 or tempi(1)= 11) then dateError = true	
'			if tempi(0) > 29 and (tempi(1)= 2 or tempi(1)= 02) then dateError = true
'		else
'			dateError = true	
'		end if
'	end if	
'	
'	if ubound(tempi) >= 1 then 
'		if IsNumeric(tempi(1)) then
'			if tempi(1) > 12 then dateError = true
'		else
'			dateError = true	
'		end if
'	end if
'
'	if ubound(tempi) >= 2 then 
'		if IsNumeric(tempi(2)) then
'			if not (len(tempi(2))=2 or len(tempi(2))=4) then dateError = true
'		else
'			dateError = true	
'		end if
'	end if
'	
'	if not isdate(s) or dateError then
'		alert(WorngDate)
'		alert_an_error = true	
'	end if
'end function

'---------------------------------------------------------------'
'function check_ISPhone(this_, bool) 
'	if this_.value = "" then exit function
'	this_.value = replace(replace(this_.value,"-","")," ", "")
'	if len(this_.value) >3 then
'		this_.value = left(this_.value, 3) & "-" & right(this_.value, len(this_.value) - 3)
'	end if	
'	
'	if bool and this_.value = "" then
'		alert(WorngCellNum1)
'		this_.focus()
'	else
'		if this_.value <> "" then
'			ret_val = (ISPhone(this_.value, false, true, this_))
'		end if 
'	end if 
'	
'end function
'---------------------------------------------------------------'
'Function ISPhone (byval Phone, byval  MustHaveLine, byval CellPhoneInNEwFormat, byref obj) 
'	
'	dim ErrStr
'	dim i
'	Dim LineSpace
'	Dim ketomet 
'	Dim GoodKetomotarray 
'	'Dim PhoneLen
'	Dim CellPhoneLen 
'	LineSpace = instr(1,phone,"-") 
'	
'	'defing the len per 
'	'IF LineSpace = 0 then 
'	'	PhoneLen = 9
'	'	CellPhoneLen = 10
'	'else
'	'	PhoneLen = 10 
'		CellPhoneLen = 11
'	'end if 
'	
'	select case true 
'	
'	case len(Phone) <> CellPhoneLen		' and  len(Phone) <> PhoneLen 
'		ErrStr = WorngCellNum2
'		ISPhone  = false 
'		   
'	'case LineSpace <> 3 and LineSpace <> 4 and MustHaveLine 
'	'	ErrStr = WorngCellNum5
'	'	ISPhone  = false 
'		    
'	case else    
'	 
'		'checking their are no only numbers
'		for i = 1 to len(Phone)
'			if instr(1,"1234567890-",mid(Phone,i,1)) = 0 then
'			 'msgbox("here")
'			 ISPhone  = false 
'			 ErrStr = WorngCellNum3
'			 alert(ErrStr)
'			 obj.select()
'			 obj.focus()
'			 exit function  
'			end if  
'		next 
			
'		'chekcing the ketomot 
'		 isphone = false
'		 GoodKetomotarray = array("02","03","04","08","09","050","052","054","057")    
'		 ketomet = mid(phone,1,LineSpace - 1 )
'		    ErrStr  = WorngCellNum4
'			for i = 0 to ubound(GoodKetomotarray) 
'			   if ketomet = GoodKetomotarray(i) then 
'					
'					IF i >=5 and CellPhoneInNEwFormat and len(Phone) <> CellPhoneLen then
'					  ErrStr = WorngCellNum3			 
'					 else 
'					   ErrStr = ""
'					   isphone = true  
'					end if 
'					exit for 
'			   end if 
'			next 	
'	 end select 
'	
'	if ErrStr <> "" then 
'		alert(ErrStr)
'		obj.select()
'		obj.focus()
'	end if 
'	
'end function