[LON-CAPA-cvs] cvs: loncom /interface lonsupportreq.pm

raeburn raeburn at source.lon-capa.org
Mon Jan 23 14:51:52 EST 2017


raeburn		Mon Jan 23 19:51:52 2017 EDT

  Modified files:              
    /loncom/interface	lonsupportreq.pm 
  Log:
  - Eliminate extra scalar.
  
  
Index: loncom/interface/lonsupportreq.pm
diff -u loncom/interface/lonsupportreq.pm:1.89 loncom/interface/lonsupportreq.pm:1.90
--- loncom/interface/lonsupportreq.pm:1.89	Mon Jan 23 19:49:07 2017
+++ loncom/interface/lonsupportreq.pm	Mon Jan 23 19:51:52 2017
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Helpdesk request form
 #
-# $Id: lonsupportreq.pm,v 1.89 2017/01/23 19:49:07 raeburn Exp $
+# $Id: lonsupportreq.pm,v 1.90 2017/01/23 19:51:52 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1018,20 +1018,19 @@
         }
     }
 
-    my $attachment_text;
+    my $attachment_text = '';
     unless ($homeserver && $attachmentpath) {
-        my $envdata = '';
         foreach my $var (@cookievars) {
-            $envdata .= "$var: $cookies{$var}\n";
+            $attachment_text .= "$var: $cookies{$var}\n";
         }
         foreach my $var (@ENVvars) {
-            $envdata .= "$var: $ENV{$var}\n";
+            $attachment_text .= "$var: $ENV{$var}\n";
         }
         foreach my $var (@envvars) {
-            $envdata .= "$var: $env{$var}\n";
+            $attachment_text .= "$var: $env{$var}\n";
         }
         foreach my $var (@loncvars) {
-            $envdata .= "$var: $env{$var}\n";
+            $attachment_text .= "$var: $env{$var}\n";
         }
         $attachment_text = $envdata;
     }




More information about the LON-CAPA-cvs mailing list