--- loncom/cgi/lonversions.pl 2011/11/07 20:50:02 1.9 +++ loncom/cgi/lonversions.pl 2014/07/11 00:31:09 1.10 @@ -1,7 +1,7 @@ #!/usr/bin/perl $|=1; # Prints out the Id line from most files -# $Id: lonversions.pl,v 1.9 2011/11/07 20:50:02 raeburn Exp $ +# $Id: lonversions.pl,v 1.10 2014/07/11 00:31:09 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -74,7 +74,7 @@ sub print_versions { my ($londaemons,$lonlib,$londocroot,$lonincludes) = @_; print '
\n"; - my $revtag = ''; + my $revtag = ' '; open (DFH, "grep '$revtag' $londaemons/* $lonlib/perl/Apache/*.pm $lonlib/perl/LONCAPA/*.pm $lonincludes/* $londocroot/res/adm/pages/* |"); while (my $line=) { chomp($line);