[LON-CAPA-cvs] cvs: loncom /interface londocs.pm

www lon-capa-cvs@mail.lon-capa.org
Wed, 16 Oct 2002 20:18:19 -0000


www		Wed Oct 16 16:18:19 2002 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  Lists update version file
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.29 loncom/interface/londocs.pm:1.30
--- loncom/interface/londocs.pm:1.29	Wed Oct 16 15:15:55 2002
+++ loncom/interface/londocs.pm	Wed Oct 16 16:18:19 2002
@@ -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 @@
    $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 @@
               &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?