[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /interface createaccount.pm

[raeburn]

raeburn		Tue Sep 11 18:55:57 2018 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/interface	createaccount.pm 
  Log:
  - For 2.11
    Backport 1.76
  
  
Index: loncom/interface/createaccount.pm
diff -u loncom/interface/createaccount.pm:1.72 loncom/interface/createaccount.pm:1.72.4.1
--- loncom/interface/createaccount.pm:1.72	Fri Feb 19 20:28:46 2016
+++ loncom/interface/createaccount.pm	Tue Sep 11 18:55:57 2018
@@ -4,7 +4,7 @@
 # kerberos, or SSO) or an e-mail address. Requests to use an e-mail address as
 # username may be processed automatically, or may be queued for approval.
 #
-# $Id: createaccount.pm,v 1.72 2016/02/19 20:28:46 raeburn Exp $
+# $Id: createaccount.pm,v 1.72.4.1 2018/09/11 18:55:57 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -278,7 +278,7 @@
         &print_header($r,$start_page,$courseid);
         my $now=time;
         if ((grep(/^login$/,@{$cancreate})) && (!grep(/^email$/,@{$cancreate}))) {
-            if (open(my $jsh,"<$include/londes.js")) {
+            if (open(my $jsh,"<","$include/londes.js")) {
                 while(my $line = <$jsh>) {
                     $r->print($line);
                 }
@@ -895,7 +895,7 @@
     my ($r,$domain,$lonhost,$include,$now,$captchaform,$courseid,$emailusername,$captcha,
         $usertype,$recaptchaversion) = @_;
     my ($error,$output);
-    if (open(my $jsh,"<$include/londes.js")) {
+    if (open(my $jsh,"<","$include/londes.js")) {
         while(my $line = <$jsh>) {
             $r->print($line);
         }
@@ -1637,14 +1637,14 @@
     if (defined($r->dir_config('lonSSOUserLogoutMessageFile_'.$domain))) {
         my $msgfile = $r->dir_config('lonSSOUserLogoutMessageFile_'.$domain);
         if (-e $msgfile) {
-            open(my $fh,"<$msgfile");
+            open(my $fh,"<",$msgfile);
             $endsessionmsg = join('',<$fh>);
             close($fh);
         }
     } elsif (defined($r->dir_config('lonSSOUserLogoutMessageFile'))) {
         my $msgfile = $r->dir_config('lonSSOUserLogoutMessageFile');
         if (-e $msgfile) {     
-            open(my $fh,"<$msgfile");
+            open(my $fh,"<",$msgfile);
             $endsessionmsg = join('',<$fh>);
             close($fh);
         }