[LON-CAPA-cvs] cvs: loncom /homework outputtags.pm

[raeburn]

raeburn		Sun Nov 12 23:11:10 2017 EDT

  Modified files:              
    /loncom/homework	outputtags.pm 
  Log:
  - Use three-argument open() to separate file mode from the filename.
  
  
Index: loncom/homework/outputtags.pm
diff -u loncom/homework/outputtags.pm:1.60 loncom/homework/outputtags.pm:1.61
--- loncom/homework/outputtags.pm:1.60	Tue May 23 14:59:07 2017
+++ loncom/homework/outputtags.pm	Sun Nov 12 23:11:09 2017
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # tags that create controlled output
 #
-# $Id: outputtags.pm,v 1.60 2017/05/23 14:59:07 raeburn Exp $
+# $Id: outputtags.pm,v 1.61 2017/11/12 23:11:09 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -322,7 +322,7 @@
         my $response=&LONCAPA::LWPReq::makerequest($uhome,$request,'','','',1);
 	if ($response->is_success) {
 	    my $file=$user."_".$domain."_studentphoto.eps";
-	    open(FILE,">".$Apache::lonnet::perlvar{'lonPrtDir'}."/$file");
+	    open(FILE,">",$Apache::lonnet::perlvar{'lonPrtDir'}."/$file");
 	    print FILE $response->content;
 	    close(FILE);
 	    my $width_param=&Apache::londefdef::image_size($Apache::lonnet::perlvar{'lonPrtDir'}."/$file",'0.3',$parstack,$safeeval);