Index: openacs-4/packages/bookmarks/www/bookmarks-import.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bookmarks/www/bookmarks-import.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/bookmarks/www/bookmarks-import.tcl 10 Sep 2002 22:22:26 -0000 1.5 +++ openacs-4/packages/bookmarks/www/bookmarks-import.tcl 18 Sep 2002 12:13:17 -0000 1.6 @@ -50,18 +50,19 @@ if { [info exists error_list] } { set n_errors [llength $error_list] ad_return_template "complaint" + ad_script_abort } # Let's check for a doubleclick first if { [db_string dbclick_check " -select count(bookmark_id) as n_existing -from bm_bookmarks -where bookmark_id = :bookmark_id"] != 0 } { + select count(bookmark_id) as n_existing + from bm_bookmarks + where bookmark_id = :bookmark_id"] != 0 } { # must have doubleclicked ad_returnredirect $return_url - return + ad_script_abort } set page_title "Import Statistics" @@ -132,7 +133,7 @@ "] ad_return_template "error" - return + ad_script_abort } else { # success in inserting folder into bm_bookmarks lappend import_list "Inserting folder \"$local_title\"" @@ -245,10 +246,11 @@ "] ad_return_template "error" - return + ad_script_abort } else { # assume this was a double click ad_returnredirect $return_url + ad_script_abort } } else { # insert into bm_bookmarks succeeded @@ -270,5 +272,3 @@ lappend import_list "Hmmm...the file seemed ok, but nothing was imported. Sorry!" } - -ad_return_template