[LON-CAPA-cvs] cvs: loncom /cgi lonversions.pl

raeburn raeburn at source.lon-capa.org
Mon Nov 7 15:41:06 EST 2011


raeburn		Mon Nov  7 20:41:06 2011 EDT

  Modified files:              
    /loncom/cgi	lonversions.pl 
  Log:
  - Fix typos.
  
  
Index: loncom/cgi/lonversions.pl
diff -u loncom/cgi/lonversions.pl:1.7 loncom/cgi/lonversions.pl:1.8
--- loncom/cgi/lonversions.pl:1.7	Mon Nov  7 18:18:21 2011
+++ loncom/cgi/lonversions.pl	Mon Nov  7 20:41:06 2011
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 $|=1;
-# Prints ut the Id line from most files
-# $Id: lonversions.pl,v 1.7 2011/11/07 18:18:21 raeburn Exp $
+# Prints out the Id line from most files
+# $Id: lonversions.pl,v 1.8 2011/11/07 20:41:06 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -74,7 +74,7 @@
     my ($londaemons,$lonlib,$londocroot,$lonincludes) = @_;
     print '<html><body bgcolor="#FFFFFF"><h1>'.&Apache::lonlocal::mt('Handler Versions').'</h1>'.
           "<pre>\n";
-    open (DFH, "grep '\$Id: lonversions.pl,v 1.7 2011/11/07 18:18:21 raeburn Exp $londaemons/* $lonlib/perl/Apache/*.pm $lonlib/perl/LONCAPA/*.pm $lonincludes/* $londocroot/res/adm/pages/*|");
+    open (DFH, "grep '\$Id: lonversions.pl,v 1.8 2011/11/07 20:41:06 raeburn Exp $londaemons/* $lonlib/perl/Apache/*.pm $lonlib/perl/LONCAPA/*.pm $lonincludes/* $londocroot/res/adm/pages/* |");
     while (my $line=<DFH>) {
         chomp($line); 
         unless ($line =~ /\Q.lpmlsave:# \E\$Id/) { 




More information about the LON-CAPA-cvs mailing list