}gs;
if (wantarray) {
return ($output, $response);
} else {
--- loncom/lonnet/perl/lonnet.pm 2025/02/18 19:30:43 1.1536 +++ loncom/lonnet/perl/lonnet.pm 2025/03/19 14:44:04 1.1537 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1536 2025/02/18 19:30:43 raeburn Exp $ +# $Id: lonnet.pm,v 1.1537 2025/03/19 14:44:04 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3734,6 +3734,7 @@ sub ssi_body { $output=~s|//(\s*)?\s||gs; $output=~s/^.*?\
]*\>//si; $output=~s/\<\/body\s*\>.*?$//si; + $output=~s{\Q