--- loncom/interface/lonsupportreq.pm	2020/12/18 15:23:02	1.101
+++ loncom/interface/lonsupportreq.pm	2022/01/01 19:53:45	1.103
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Helpdesk request form
 #
-# $Id: lonsupportreq.pm,v 1.101 2020/12/18 15:23:02 raeburn Exp $
+# $Id: lonsupportreq.pm,v 1.103 2022/01/01 19:53:45 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -68,7 +68,7 @@ sub handler {
     }
     my $origurl = $env{'form.origurl'};
     if ($origurl =~ m{^https?://[^/]+(.*)$}) {
-        $origurl =~ $1;
+        $origurl = $1;
     }
     $origurl =~ s/(`)//g;
     $origurl =~ s/\$/\(\$\)/g;
@@ -1147,7 +1147,8 @@ END
     }
     if ($ip ne '') {
         $envmsg .= '<span class="LC_helpform_receipt_cat">'.
-    }              'REMOTE_ADDR</span>:&nbsp;'.$ip.', ';
+                   'REMOTE_ADDR</span>:&nbsp;'.$ip.', ';
+    }
     foreach my $var (@envvars) {
         if ($env{$var} ne '') { 
             $envmsg .= '<span class="LC_helpform_receipt_cat">'.