--- loncom/interface/londocs.pm	2002/10/16 19:15:55	1.29
+++ loncom/interface/londocs.pm	2002/10/16 20:18:19	1.30
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.29 2002/10/16 19:15:55 www Exp $
+# $Id: londocs.pm,v 1.30 2002/10/16 20:18:19 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -294,6 +294,8 @@ sub handler {
    $r->print('<html><head><title>Verify Content</title></head>'.
               &Apache::loncommon::bodytag('Verify Course Documents'));
    $hashtied=0;
+   undef %alreadyseen;
+   %alreadyseen=();
    &tiehash();
    foreach (keys %hash) {
        if (($_=~/^src\_(.+)$/) && (!$alreadyseen{$hash{$_}})) {
@@ -306,7 +308,13 @@ sub handler {
               &Apache::loncommon::bodytag('Check Course Document Versions'));
    $hashtied=0;
    &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();
   } else {
 # is this a standard course?
