diff options
Diffstat (limited to 'getxbookgui.tcl')
| -rwxr-xr-x | getxbookgui.tcl | 2 |
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"] } { |