--- loncom/cgi/lonversions.pl 2011/11/07 18:18:21 1.7
+++ loncom/cgi/lonversions.pl 2011/11/07 20:41:06 1.8
@@ -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 @@ sub print_versions {
my ($londaemons,$lonlib,$londocroot,$lonincludes) = @_;
print ''.&Apache::lonlocal::mt('Handler Versions').'
'.
"\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=) {
chomp($line);
unless ($line =~ /\Q.lpmlsave:# \E\$Id/) {