--- loncom/cgi/lonversions.pl 2011/11/07 18:18:21 1.7 +++ loncom/cgi/lonversions.pl 2011/11/07 20:50:02 1.9 @@ -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.9 2011/11/07 20:50:02 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.7 2011/11/07 18:18:21 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/) {