Sub Activity_Resume
recalcColor
Dim p As Phone
p.SetScreenOrientation(1)
Dim in As Intent
Dim taskRef As String
Dim chainId As Int
in = Activity.GetStartingIntent
If sqlDB.IsInitialized = False Then
sqlDB.Initialize(File.DirInternal,"Chain.db",False)
End If
If in.HasExtra("Notification_Tag") Then
taskRef= in.GetExtra("Notification_Tag")
chainId = taskRef.SubString2(0,taskRef.IndexOf(":"))
txtPlan.Text= getTasks(chainId)
planText=txtPlan.Text
If timeIsCorrect(chainId) Then
ToastMessageShow("You earned 2 extra points by being on time!",True)
timesNotInterrupted=2
Else
timesNotInterrupted=0
End If
recalcColor
sqlDB.Close()
Else
ToastMessageShow("Ingen notification_tag funnet!",False)
End If
End Sub