Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v diff -u -N -r1.102 -r1.103 --- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 14 Oct 2018 17:55:37 -0000 1.102 +++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 23 Oct 2018 18:38:36 -0000 1.103 @@ -1539,7 +1539,9 @@ a { if { !$no_format_p } { if { $slash eq ""} { - if { [info exists attribute_array(href)] } { + if { [info exists attribute_array(href)] + && [string index $attribute_array(href) 0] ni {"#" ""} + } { if { [info exists attribute_array(title)] } { set title ": '$attribute_array(title)'" } else { @@ -1596,12 +1598,16 @@ lappend img_info "'$attribute_array(alt)'" } if { [info exists attribute_array(src)] } { - lappend img_info $attribute_array(src) + if {[string match "data:*" $attribute_array(src)]} { + lappend img_info "data:..." + } else { + lappend img_info $attribute_array(src) + } } if { [llength $img_info] == 0 } { ad_html_to_text_put_text output {[IMAGE]} } else { - ad_html_to_text_put_text output "\[IMAGE: [join $img_info " "] \]" + ad_html_to_text_put_text output "\[IMAGE: [join $img_info " "]\]" } } }