From 1d2dca5d477ea4f80fde4fb9721c706b918627f2 Mon Sep 17 00:00:00 2001
From: f_swallow <f_swallow@users.sourceforge.jp>
Date: Sat, 21 May 2011 11:34:51 +0900
Subject: [PATCH] =?utf8?q?Foursquare=E3=83=97=E3=83=AC=E3=83=93=E3=83=A5?=
 =?utf8?q?=E3=83=BC=E4=BD=9C=E6=88=90=E4=B8=AD=E3=81=ABDictionary=E3=81=AB?=
 =?utf8?q?=E4=BA=8C=E5=9B=9E=E8=BF=BD=E5=8A=A0=E3=81=95=E3=82=8C=E3=82=8B?=
 =?utf8?q?=E5=A0=B4=E5=90=88=E3=81=8C=E3=81=82=E3=82=8B=E3=81=AE=E3=82=92?=
 =?utf8?q?=E4=BF=AE=E6=AD=A3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Tween/Foursquare.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Tween/Foursquare.vb b/Tween/Foursquare.vb
index 1738271b..fb169b69 100644
--- a/Tween/Foursquare.vb
+++ b/Tween/Foursquare.vb
@@ -81,7 +81,8 @@ Public Class Foursquare
         If curVenue Is Nothing Then Return Nothing
 
         Dim curLocation As New Google.GlobalLocation With {.Latitude = curVenue.Location.Latitude, .Longitude = curVenue.Location.Longitude, .LocateInfo = CreateVenueInfoText(curVenue)}
-        CheckInUrlsVenueCollection.Add(urlId, curLocation)
+        '例外発生の場合があるため
+        If Not CheckInUrlsVenueCollection.ContainsKey(urlId) Then CheckInUrlsVenueCollection.Add(urlId, curLocation)
         refText = curLocation.LocateInfo
         Return (New Google).CreateGoogleMapsUri(curLocation)
     End Function
-- 
2.11.0