--- loncom/interface/lonsupportreq.pm 2013/07/15 16:13:21 1.73 +++ loncom/interface/lonsupportreq.pm 2014/01/17 17:17:42 1.77 @@ -1,5 +1,5 @@ # -# $Id: lonsupportreq.pm,v 1.73 2013/07/15 16:13:21 bisitz Exp $ +# $Id: lonsupportreq.pm,v 1.77 2014/01/17 17:17:42 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -114,7 +114,7 @@ sub print_request_form { $formname = 'logproblem'; my $machine = &Apache::lonnet::absolute_url(); my $sourceurl = $machine.$origurl; - $server = $machine.&cleanup_html($origurl); + $server = $machine.&Apache::loncommon::cleanup_html($origurl); $server =~ s/\?.*$//; my %lt = &Apache::lonlocal::texthash ( email => 'The e-mail address you entered', @@ -294,6 +294,11 @@ ENDJS } $r->print('