summaryrefslogtreecommitdiff
path: root/getxbookgui.tcl
diff options
context:
space:
mode:
authorNick White <git@njw.me.uk>2012-04-21 15:57:10 +0100
committerNick White <git@njw.me.uk>2012-04-21 15:57:10 +0100
commit903eec3fd54f5fb2928131c8e6f51a9cfd9026b6 (patch)
treed67d106db87f9c9903343e3e25b3b3684071e79d /getxbookgui.tcl
parent5c4aa011033ee1963e042a4d51d9eaa00216396b (diff)
Fixed clipboard url match pattern for google books
Diffstat (limited to 'getxbookgui.tcl')
-rwxr-xr-xgetxbookgui.tcl2
1 files changed, 1 insertions, 1 deletions
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"] } {