--- loncom/cgi/lonversions.pl 2011/11/07 20:41:06 1.8 +++ 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.8 2011/11/07 20:41:06 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,8 @@ sub print_versions { my ($londaemons,$lonlib,$londocroot,$lonincludes) = @_; print '
\n"; - 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/* |"); + 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); unless ($line =~ /\Q.lpmlsave:# \E\$Id/) {