Change function to sub

This commit is contained in:
Jakob A. Dam 2015-05-06 10:23:10 +02:00
parent 4849364f05
commit 6414552415

View file

@ -208,7 +208,7 @@ Public Class RDSFactor
Return Path.GetDirectoryName([Assembly].GetExecutingAssembly().Location) Return Path.GetDirectoryName([Assembly].GetExecutingAssembly().Location)
End Function End Function
Public Shared Function SendSMS(ByVal number As String, ByVal passcode As String) As String Public Shared Sub SendSMS(ByVal number As String, ByVal passcode As String)
' test if using online sms provider or local modem ' test if using online sms provider or local modem
If ModemType = 1 Then ' local modem If ModemType = 1 Then ' local modem
@ -217,7 +217,6 @@ Public Class RDSFactor
modem.send(number, passcode, SmsC) modem.send(number, passcode, SmsC)
modem.Closes() modem.Closes()
modem = Nothing modem = Nothing
Return "Ok"
Else Else
LogDebug("Sending OTP: " & passcode & " to: " & number) LogDebug("Sending OTP: " & passcode & " to: " & number)
@ -244,7 +243,7 @@ Public Class RDSFactor
Throw New SMSSendException(content) Throw New SMSSendException(content)
End If End If
End If End If
End Function End Sub
Public Shared Function SendEmail(email As String, passcode As String) As String Public Shared Function SendEmail(email As String, passcode As String) As String