From 903eec3fd54f5fb2928131c8e6f51a9cfd9026b6 Mon Sep 17 00:00:00 2001 From: Nick White Date: Sat, 21 Apr 2012 15:57:10 +0100 Subject: Fixed clipboard url match pattern for google books --- getxbookgui.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/getxbookgui.tcl b/getxbookgui.tcl index 571171a..a587ea0 100755 --- a/getxbookgui.tcl +++ b/getxbookgui.tcl @@ -40,7 +40,7 @@ proc parseurl {url} { set bookid "" if { [string match "http*://books.google.com/*" "$url"] } { selbin 0 - if {[regexp {bookid=([^&]*)} $url m sub]} { + if {[regexp {[&?]id=([^&]*)} $url m sub]} { set bookid $sub } } elseif { [string match "http*://*amazon*/*" "$url"] } { -- cgit v1.2.3