version 1.9, 2011/11/07 20:50:02
|
version 1.10, 2014/07/11 00:31:09
|
Line 74 sub print_versions {
|
Line 74 sub print_versions {
|
my ($londaemons,$lonlib,$londocroot,$lonincludes) = @_; |
my ($londaemons,$lonlib,$londocroot,$lonincludes) = @_; |
print '<html><body bgcolor="#FFFFFF"><h1>'.&Apache::lonlocal::mt('Handler Versions').'</h1>'. |
print '<html><body bgcolor="#FFFFFF"><h1>'.&Apache::lonlocal::mt('Handler Versions').'</h1>'. |
"<pre>\n"; |
"<pre>\n"; |
my $revtag = ''; |
my $revtag = ' '; |
open (DFH, "grep '$revtag' $londaemons/* $lonlib/perl/Apache/*.pm $lonlib/perl/LONCAPA/*.pm $lonincludes/* $londocroot/res/adm/pages/* |"); |
open (DFH, "grep '$revtag' $londaemons/* $lonlib/perl/Apache/*.pm $lonlib/perl/LONCAPA/*.pm $lonincludes/* $londocroot/res/adm/pages/* |"); |
while (my $line=<DFH>) { |
while (my $line=<DFH>) { |
chomp($line); |
chomp($line); |