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

[raeburn]

raeburn		Sat Apr 15 17:53:07 2023 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  - Fix typos in comments.  No code changes.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.687 loncom/interface/lonprintout.pm:1.688
--- loncom/interface/lonprintout.pm:1.687	Wed Feb  8 15:15:24 2023
+++ loncom/interface/lonprintout.pm	Sat Apr 15 17:53:07 2023
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.687 2023/02/08 15:15:24 raeburn Exp $
+# $Id: lonprintout.pm,v 1.688 2023/04/15 17:53:07 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -453,7 +453,7 @@
         &get_randomly_ordered_warning($helper, $map);
 
     # code for a few states used for printout launched from both 
-    # /adm/navmpas and from a resource by a privileged user:
+    # /adm/navmaps and from a resource by a privileged user:
     #   - To allow resources to be selected for printing.
     #   - To determine pagination between assignments.
     #   - To determine how many assignments should be bundled into a single PDF.
@@ -769,7 +769,7 @@
     my @close_dates;
     my $navmap = $res->{NAV_MAP}; # Slightly OO dirty.
 
-    # Don't bother looping over undefined or empty parts arraY;
+    # Don't bother looping over undefined or empty parts array;
 
     if (@parts) {
 	foreach my $part (@parts) {
@@ -795,7 +795,7 @@
     my $navmap = $res->{NAV_MAP}; # slightly OO dirty.
 
 
-    # Don't bother looping over undefined or empty parts arraY;
+    # Don't bother looping over undefined or empty parts array;
 
     if (@parts) {
 	foreach my $part (@parts) {
@@ -896,7 +896,7 @@
     my $iterator         = $navmap->getIterator($start,$finish,{},1);
 
     #  Iterate on the resource..select the items that are randomly selected
-    #  and that are in the seq_has.  Presumably the iterator will take care
+    #  and that are in the seq_hash.  Presumably the iterator will take care
     # of the random ordering part of the deal.
     #
     my $curres;
@@ -973,7 +973,7 @@
     my ($text) = @_;
 
     # There appear to be cases where the font directive is empty.. in which
-    # case the first substituion would  insert a spurious \ oh happy day.
+    # case the first substitution would insert a spurious \ oh happy day.
     # as this has been the cause of much mystery and hair pulling _sigh_
 
     if ($font_size ne '') {
@@ -992,7 +992,7 @@
 #  - The PDF, if necessary, is replicated.
 #  - The PDF is added to the list of files to convert to postscript (along with the images).
 #  - The LaTeX is added to include the final converted postscript in the file as an included
-#    job.  The assumption is that the includedpsheader.ps header will be included.
+#    job.  The assumption is that the includepsheader.ps header will be included.
 #
 # Parameters:
 #   pdf_uri   - URI of the PDF file to include.
@@ -1016,9 +1016,9 @@
 	$file = &Apache::lonnet::filelocation('',$pdf_uri);
     }
 
-    #  The file isn ow replicated locally.. or it did not exist in the first place
+    #  The file is now replicated locally ... or it did not exist in the first place
     # (unlikely).  If it did exist, add the pdf to the set of files/images that
-    # need tob e converted for this print job:
+    # need to be converted for this print job:
 
     my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
     $file =~ s{(.*)/res/}{$londocroot/res/};
@@ -1155,8 +1155,8 @@
 	if ($size ne "") {
 	    $subst = substr($subst, 0, $size);
 	    
-	    #  Here's a nice edge case.. supose the end of the
-	    #  substring is a \.  In that case may have  just
+	    #  Here's a nice edge case.. suppose the end of the
+	    #  substring is a \.  In that case may have just
 	    #  chopped off a TeX escape... in that case, we append
 	    #   " " for the trailing character, and let the field 
 	    #  spill over a bit (sigh).
@@ -1440,7 +1440,7 @@
     }
 
     # Break the tie on the first name, but there are leading (possibly trailing
-    # whitespaces to get rid of first 
+    # whitespaces to get rid of first)
     #
     $f1 =~ s/^\s+//;		# Remove leading...
     $f1 =~ s/\s+$//;		# Trailing spaces from first 1...
@@ -2532,7 +2532,7 @@
 
     my ($helper)  = @_;
 
-    #  If this is the first time, unrap the resources and extra spaces:
+    #  If this is the first time, unwrap the resources and extra spaces:
 
     if (!$skips_loaded) {
 	@extraspace = (split(/\|\|\|/, $helper->{'VARS'}->{'EXTRASPACE'}));
@@ -2839,8 +2839,8 @@
     my @student_names=();
 
      
-    #  Common settings for the %form has:
-    # In some cases these settings get overriddent by specific cases, but the
+    #  Common settings for the %form hash:
+    # In some cases these settings get overridden by specific cases, but the
     # settings are common enough to make it worthwhile factoring them out
     # here.
     #
@@ -3797,7 +3797,7 @@
     #   nice to put the special in as a postscript comment
     #   e.g. \special{ps:\ENDOFSTUDENTSTAMP}  unfortunately,
     #   The special gets passed the \ and dvips puts it in the output file
-    #   so we will just rely on prntout.pl to strip  ENDOFSTUDENTSTAMP from the
+    #   so we will just rely on printout.pl to strip  ENDOFSTUDENTSTAMP from the
     #   postscript.  Each ENDOFSTUDENTSTAMP will go on a line by itself.
     #