svnno****@sourc*****
svnno****@sourc*****
2011年 9月 2日 (金) 17:25:52 JST
Revision: 1573
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1573
Author: kiri_feather
Date: 2011-09-02 17:25:52 +0900 (Fri, 02 Sep 2011)
Log Message:
-----------
GAセッション情報をユーザーごとに持つよう変更
Modified Paths:
--------------
trunk/Tween/AppendSettingDialog.vb
trunk/Tween/Setting/SettingCommon.vb
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/AppendSettingDialog.vb
===================================================================
--- trunk/Tween/AppendSettingDialog.vb 2011-09-01 08:08:52 UTC (rev 1572)
+++ trunk/Tween/AppendSettingDialog.vb 2011-09-02 08:25:52 UTC (rev 1573)
@@ -208,6 +208,8 @@
For Each u In Me.UserAccounts
If u.UserId = DirectCast(Me.AuthUserCombo.SelectedItem, UserAccount).UserId Then
tw.Initialize(u.Token, u.TokenSecret, u.Username, u.UserId)
+ Google.GASender.GetInstance.SessionFirst = u.GAFirst
+ Google.GASender.GetInstance.SessionLast = u.GALast
Exit For
End If
Next
Modified: trunk/Tween/Setting/SettingCommon.vb
===================================================================
--- trunk/Tween/Setting/SettingCommon.vb 2011-09-01 08:08:52 UTC (rev 1572)
+++ trunk/Tween/Setting/SettingCommon.vb 2011-09-02 08:25:52 UTC (rev 1573)
@@ -207,6 +207,8 @@
Public Class UserAccount
Public Username As String = ""
Public UserId As Long = 0
+ Public GAFirst As Long = 0
+ Public GALast As Long = 0
Public Token As String = ""
<Xml.Serialization.XmlIgnore()> _
Public TokenSecret As String = ""
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2011-09-01 08:08:52 UTC (rev 1572)
+++ trunk/Tween/Tween.vb 2011-09-02 08:25:52 UTC (rev 1573)
@@ -3144,6 +3144,13 @@
Google.GASender.GetInstance().TrackPage("/settings", tw.UserId)
Dim result As DialogResult
Dim uid As String = tw.Username.ToLower
+ For Each u In SettingDialog.UserAccounts
+ If u.UserId = tw.UserId Then
+ u.GAFirst = Ga.SessionFirst
+ u.GALast = Ga.SessionLast
+ Exit For
+ End If
+ Next
Try
result = SettingDialog.ShowDialog(Me)