Index: openacs-4/packages/bookmarks/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bookmarks/www/index.tcl,v diff -u -r1.13 -r1.14 --- openacs-4/packages/bookmarks/www/index.tcl 7 Aug 2014 07:36:55 -0000 1.13 +++ openacs-4/packages/bookmarks/www/index.tcl 27 Jun 2015 12:32:47 -0000 1.14 @@ -18,7 +18,9 @@ } -validate { valid_user_id -requires {viewed_user_id:integerl} { - if { [db_string user_exists "select 1 from parties where party_id = :viewed_user_id" -bind "viewed_user_id $viewed_user_id" -default ""] eq "" } { + if { [db_string user_exists {select 1 from parties where party_id = :viewed_user_id} \ + -bind "viewed_user_id $viewed_user_id" \ + -default ""] eq "" } { ad_complain "The user_id in the url is invalid" } } @@ -68,9 +70,10 @@ # will be the page that the user is browsing. set return_url_urlenc [ad_urlencode [ad_conn url]?[export_vars -url {viewed_user_id}]] -set user_name [db_string user_name "select first_names || ' ' || last_name from cc_users where object_id = :viewed_user_id" -bind "viewed_user_id $viewed_user_id" -default ""] +set user_name [db_string user_name {select first_names || ' ' || last_name from cc_users where object_id = :viewed_user_id} \ + -bind "viewed_user_id $viewed_user_id" -default ""] -set page_title [db_string bookmark_system_name "select acs_object.name(:package_id) from dual"] +set page_title [db_string bookmark_system_name {select acs_object.name(:package_id) from dual}] set context [bm_context_bar_args "" $viewed_user_id]