diff options
Diffstat (limited to 'getxbookgui.tcl')
| -rwxr-xr-x | getxbookgui.tcl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/getxbookgui.tcl b/getxbookgui.tcl index 69dd8c3..53d19e3 100755 --- a/getxbookgui.tcl +++ b/getxbookgui.tcl @@ -53,8 +53,10 @@ proc parseurl {url} { selbin 2 # isbn-13 isn't included in b&n book urls, sadly } - .input.id delete 0 end - .input.id insert 0 "$bookid" + if { "$bookid" != "" } { + .input.id delete 0 end + .input.id insert 0 "$bookid" + } } proc watchsel {} { |