--- doc/loncapafiles/picins_check.piml	2016/08/09 15:22:33	1.31
+++ doc/loncapafiles/picins_check.piml	2017/02/25 20:25:19	1.32
@@ -3,7 +3,7 @@
 <!-- picins_check.piml -->
 <!-- Stuart Raeburn -->
 
-<!-- $Id: picins_check.piml,v 1.31 2016/08/09 15:22:33 raeburn Exp $ -->
+<!-- $Id: picins_check.piml,v 1.32 2017/02/25 20:25:19 raeburn Exp $ -->
 
 <!--
 
@@ -45,6 +45,8 @@ http://www.lon-capa.org/
                     mkdir($filepath,0755);
                 }
             }
+        } else {
+            chmod(0755,$picinspath);     
         }
         if (-d $picinspath) {
             my $srcurl = 'http://install.loncapa.org/ctan/tex-archive/macros/latex209/contrib/picins/picins.sty';
@@ -55,6 +57,7 @@ http://www.lon-capa.org/
                 system('/usr/bin/texconfig rehash  1>/dev/null 2>/dev/null');
                 die("Can't run /usr/bin/texconfig rehash") if $?;
                 print "$picinspath/$file created and /usr/bin/texconfig rehash ran successfully.\n";
+                chmod(0644,"$picinspath/$file");
             } else {
                 die("Can't find $picinspath/$file");
             }
@@ -62,6 +65,8 @@ http://www.lon-capa.org/
             die("Can't find $picinspath") if $?;
         }
     } else {
+        chmod(0755,$picinspath);
+        chmod(0644,"$picinspath/$file");
         print "No action required - $picinspath/$file already exists.\n";
     }
 </perlscript>