bm_get_html_title (public)

 bm_get_html_title html_code

Defined in packages/bookmarks/tcl/bookmarks-procs.tcl

Parameters:
html_code

Partial Call Graph (max 5 caller/called nodes):
%3 packages/bookmarks/www/bookmark-add-one.tcl packages/bookmarks/ www/bookmark-add-one.tcl bm_get_html_title bm_get_html_title packages/bookmarks/www/bookmark-add-one.tcl->bm_get_html_title packages/bookmarks/www/bookmarks-check.tcl packages/bookmarks/ www/bookmarks-check.tcl packages/bookmarks/www/bookmarks-check.tcl->bm_get_html_title parameter::get parameter::get (public) bm_get_html_title->parameter::get

Testcases:
No testcase defined.
Source code:
    set title ""
    regexp -nocase {<title>([^<]*)</title>} $html_code match title

    if {[string length $title]> [parameter::get -parameter URLTitleMaxLength] || [string length $title] > 499 } {
    set title "[string range $title 0 496]..."
    }

    return [string trim $title]
Generic XQL file:
packages/bookmarks/tcl/bookmarks-procs.xql

PostgreSQL XQL file:
packages/bookmarks/tcl/bookmarks-procs-postgresql.xql

Oracle XQL file:
packages/bookmarks/tcl/bookmarks-procs-oracle.xql

[ hide source ] | [ make this the default ]
Show another procedure: