--- loncom/interface/londocs.pm	2002/10/15 20:50:19	1.27
+++ loncom/interface/londocs.pm	2002/10/17 15:18:03	1.31
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.27 2002/10/15 20:50:19 www Exp $
+# $Id: londocs.pm,v 1.31 2002/10/17 15:18:03 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -29,7 +29,7 @@
 package Apache::londocs;
 
 use strict;
-use Apache::Constants qw(:common);
+use Apache::Constants qw(:common :http);
 use Apache::lonnet;
 use Apache::loncommon;
 use Apache::lonratedt;
@@ -42,6 +42,7 @@ my $iconpath;
 my %hash;
 
 my $hashtied;
+my %alreadyseen=();
 
 # Mapread read maps into lonratedt::global arrays 
 # @order and @resources, determines status
@@ -240,6 +241,43 @@ sub untiehash {
     $hashtied=0;
 }
 
+# --------------------------------------------------------------- check on this
+
+sub checkonthis {
+    my ($r,$url,$level,$title)=@_;
+    $alreadyseen{$url}=1;
+    $r->rflush();
+    if ($url) {
+       $r->print('<br />');
+       for (my $i=0;$i<=$level*5;$i++) {
+           $r->print('&nbsp;');
+       }
+       $r->print('<a href="'.$url.'" target="cat">'.
+		 ($title?$title:$url).'</a> ');
+       if ($url=~/^\/res\//) {
+	  my $result=&Apache::lonnet::repcopy(
+                              &Apache::lonnet::filelocation('',$url));
+          if ($result==OK) {
+             $r->print('<font color="green">ok</font>');
+             $r->rflush();
+	     my $dependencies=
+                &Apache::lonnet::metadata($url,'dependencies');
+             foreach (split(/\,/,$dependencies)) {
+		 if (($_=~/^\/res\//) && (!$alreadyseen{$_})) {
+                    &checkonthis($r,$_,$level+1);
+                 }
+             }
+          } elsif ($result==HTTP_SERVICE_UNAVAILABLE) {
+             $r->print('<font color="red"><b>connection down</b></font>');
+          } elsif ($result==HTTP_NOT_FOUND) {
+             $r->print('<font color="red"><b>not found</b></font>');
+          } else {
+             $r->print('<font color="red"><b>access denied</b></font>');
+          }
+      }
+   }
+}
+
 # ================================================================ Main Handler
 sub handler {
     my $r = shift;
@@ -256,34 +294,12 @@ 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\_(.+)$/) {
-           my $resid=$1;
-           $r->rflush();
-	   if ($hash{$_}) {
-               my $fn=$hash{$_};
-               $r->print('<br /><a href="'.$fn.'" target="cat">'.
-		 ($hash{'title_'.$resid}?$hash{'title_'.$resid}:$fn).'</a> ');
- 	       if ($fn=~/^\/res\//) {
-		   my $result=&Apache::lonnet::repcopy($fn);
-                   if ($result eq OK) {
-                       $r->print('<font color="green">ok</font>');
-                       $r->rflush();
-		       my $dependencies=
-                          &Apache::lonnet::metadata($_,'dependencies');
-                       $r->print('Dependencies: '.$dependencies.'<br>');
-                   } elsif ($result eq HTTP_SERVICE_UNAVAILABLE) {
-                       $r->print(
-                         '<font color="red"><b>connection down</b></font>');
-                   } elsif ($result eq HTTP_NOT_FOUND) {
-                       $r->print('<font color="red"><b>not found</b></font>');
-                   } else {
-                       $r->print(
-                             '<font color="red"><b>access denied</b></font>');
-                   }
-               }
-           }
+       if (($_=~/^src\_(.+)$/) && (!$alreadyseen{$hash{$_}})) {
+           &checkonthis($r,$hash{$_},0,$hash{'title_'.$1});
        }
    }
    &untiehash();
@@ -292,7 +308,59 @@ 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'});
+   my $firstkey=(keys %changes)[0];
+   unless ($firstkey=~/^error\:/) {
+       unless ($ENV{'form.timerange'}) {
+	   $ENV{'form.timerange'}=604800;
+       }
+       my $seltext='during the last '.$ENV{'form.timerange'}.' seconds';
+       my $startsel='';
+       my $monthsel='';
+       my $weeksel='';
+       my $daysel='';
+       if ($ENV{'form.timerange'}==-1) {
+	   $seltext='since start of course';
+           $startsel='selected';
+       } elsif ($ENV{'form.timerange'}==2592000) {
+           $seltext='during the last month';
+           $monthsel='selected';
+       } elsif ($ENV{'form.timerange'}==604800) {
+           $seltext='during the last week';
+           $weeksel='selected';
+       } elsif ($ENV{'form.timerange'}==86400) {
+           $seltext='since yesterday';
+           $daysel='selected';
+       }
+       $r->print(<<ENDHEADERS);
+<form action="/adm/coursedocs" method="post">
+<select name="timerange">
+<option value="-1" $startsel>Since Start of Course</option>
+<option value="2592000" $monthsel>Last Month</option>
+<option value="604800" $weeksel>Last Week</option>
+<option value="86400" $daysel>Since Yesterday</option>
+</select>
+<input type="submit" name="versions" value="Display" />
+</form>
+<h1>Content changed $seltext</h1>
+<table border="2">
+<tr>
+<th>File</th><th>Modification Date</th>
+<th>Version</th><th>Differences</th></tr>
+ENDHEADERS
+       foreach (keys %changes) {
+           my $currentversion=&Apache::lonnet::getversion($_);
+           $r->print(
+                 '<tr><td><a href="'.$_.'" target="cat">'.$_.'</a></td><td>'.
+                 localtime($changes{$_}).'</td><td>'.$currentversion.'</td>');
+           $r->print('</tr>');
+       }
+       $r->print('</table>');
+   } else {
+       $r->print('<p>No content modifications yet.</p>');
+   }
    &untiehash();
   } else {
 # is this a standard course?
