summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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"] } {