Index: openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl,v diff -u -r1.19.2.1 -r1.19.2.2 --- openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl 27 Feb 2020 16:11:39 -0000 1.19.2.1 +++ openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl 28 Feb 2020 14:04:43 -0000 1.19.2.2 @@ -297,7 +297,7 @@ set refs [list] set http_url [string trimright [ad_url] /]/ set https_url [string map {http https} $http_url] - set re "(?:\")(?:$http_url|$https_url|/)(?:o|image|file)/(\\d{1,10})" + set re "(?:\")(?:$http_url|$https_url|/)(?:o|image|file)/(\\d+)" set ref_data [regexp -inline -all $re $text] foreach {discard ref} $ref_data { lappend refs $ref