[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: w3m-submit-form



;; ml archive にはありましたが、配送されていないと思うので再送します。

At Sun, 23 May 2004 23:21:18 +0900,
TSUCHIYA Masatoshi wrote:

> (1) http://transit.yahoo.co.jp/ で出発駅(京都)と到着駅(東京)を記入して,
>     到着駅の入力欄内で C-cC-c します.
> 
> (2) すると,出発駅と到着駅が複数一致するので,確認入力ページに移動しま
>     す.ここで,探索方法を「指定なし」から「到着時刻指定」に変更し,
>     「到着時刻指定」のボタンの中で C-cC-c します.
> 
> (3) しかし,探索方法の変更は反映されず,「指定なし」の場合の探索結果(= 
>     平均所要時間)が表示されます.

C-cC-c を押した箇所の値が二重に送られているためのようです。
上記の場合では、
	http://transit.yahoo.co.jp/search?[...]&kb=ARR[...] 
という URL へ移動することを期待されるのですが、
	http://transit.yahoo.co.jp/search?[...]&kb=ARR&kb=ARR[...]
へ移動しています。

『探索方法を「指定なし」から「到着時刻指定」に変更』した時に
w3m-form-put-by-name で id を変えていないために、二重になって
しまうようですので、以下のように変更しようと思います。

2004-05-24  ARISAWA Akihiro  <ari@mbf.sphere.ne.jp>

	* w3m-form.el (w3m-form-put-by-name): Overwrite ID value when a name
	is found.

--- w3m-form.el.~1.126.~	2004-04-04 21:16:00.000000000 +0900
+++ w3m-form.el	2004-05-24 21:12:54.000000000 +0900
@@ -143,6 +143,7 @@ (defun w3m-form-put-by-name (form id nam
       (setq pair (plist-get (cadr plist) :value))
       (when (and pair
 		 (string= (car pair) name))
+	(setcar plist id)
 	(setcdr pair value)
 	(setq found t
 	      plist nil))

-- 
有沢 明宏