version 1.29, 2002/10/16 19:15:55
|
version 1.30, 2002/10/16 20:18:19
|
Line 294 sub handler {
|
Line 294 sub handler {
|
$r->print('<html><head><title>Verify Content</title></head>'. |
$r->print('<html><head><title>Verify Content</title></head>'. |
&Apache::loncommon::bodytag('Verify Course Documents')); |
&Apache::loncommon::bodytag('Verify Course Documents')); |
$hashtied=0; |
$hashtied=0; |
|
undef %alreadyseen; |
|
%alreadyseen=(); |
&tiehash(); |
&tiehash(); |
foreach (keys %hash) { |
foreach (keys %hash) { |
if (($_=~/^src\_(.+)$/) && (!$alreadyseen{$hash{$_}})) { |
if (($_=~/^src\_(.+)$/) && (!$alreadyseen{$hash{$_}})) { |
Line 306 sub handler {
|
Line 308 sub handler {
|
&Apache::loncommon::bodytag('Check Course Document Versions')); |
&Apache::loncommon::bodytag('Check Course Document Versions')); |
$hashtied=0; |
$hashtied=0; |
&tiehash(); |
&tiehash(); |
|
my %changes=&Apache::lonnet::dump |
|
('versionupdate',$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
|
foreach (keys %changes) { |
|
$r->print('<br /><a href="'.$_.'" target="cat">'.$_.'</a> - '. |
|
localtime($changes{$_})); |
|
} |
&untiehash(); |
&untiehash(); |
} else { |
} else { |
# is this a standard course? |
# is this a standard course? |