loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.30 and 1.34

-version 1.30, 2002/10/16 20:18:19
+version 1.34, 2002/10/20 18:42:53
  Line 260  sub checkonthis {
            if ($result==OK) {
               $r->print('<font color="green">ok</font>');
               $r->rflush();
+              &Apache::lonnet::countacc($url);
+              $url=~/\.(\w+)$/;
+              if (&Apache::loncommon::fileembstyle($1) eq 'ssi') {
+ 		 $r->print('<br />');
+                  $r->rflush();
+                  my $default='';
+                  if ($1=~/(problem|exam|quiz|assess|survey|form|library)/) {
+                     $default=&Apache::lonnet::getfile(
+                     '/home/httpd/html/res/adm/includes/default_homework.lcpm');
+                  }
+                  for (my $i=0;$i<=$level*5;$i++) {
+                      $r->print('&nbsp;');
+                  }
+                  $r->print('- Rendering: ');
+                  &Apache::lonxml::xmlparse($r,'web',
+                    &Apache::lonnet::getfile(
+                     &Apache::lonnet::filelocation('',$url)),$default);
+                  if (($Apache::lonxml::errorcount) ||
+                      ($Apache::lonxml::warningcount)) {
+ 		     if ($Apache::lonxml::errorcount) {
+                         $r->print('<font color="red"><b>'.
+ 			  $Apache::lonxml::errorcount.' error(s)</b></font> ');
+                      }
+ 		     if ($Apache::lonxml::warningcount) {
+                         $r->print('<font color="blue">'.
+ 			  $Apache::lonxml::warningcount.' warning(s)</font>');
+                      }
+                  } else {
+                      $r->print('<font color="green">ok</font>');
+                  }
+                  $r->rflush();
+              }
  	     my $dependencies=
                  &Apache::lonnet::metadata($url,'dependencies');
               foreach (split(/\,/,$dependencies)) {
- Line 311  sub handler {
+ Line 343  sub handler {
     my %changes=&Apache::lonnet::dump
      ('versionupdate',$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
                       $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
-    foreach (keys %changes) {
+    my $firstkey=(keys %changes)[0];
-        $r->print('<br /><a href="'.$_.'" target="cat">'.$_.'</a> - '.
+    unless ($firstkey=~/^error\:/) {
-                  localtime($changes{$_}));
+        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';
+            $ENV{'form.timerange'}=time;
+        }
+        my $starttime=time-$ENV{'form.timerange'};
+        if ($ENV{'form.timerange'}==2592000) {
+            $seltext='during the last month ('.localtime($starttime).')';
+            $monthsel='selected';
+        } elsif ($ENV{'form.timerange'}==604800) {
+            $seltext='during the last week ('.localtime($starttime).')';
+            $weeksel='selected';
+        } elsif ($ENV{'form.timerange'}==86400) {
+            $seltext='since yesterday ('.localtime($starttime).')';
+            $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>
+ <h3>Content changed $seltext</h3>
+ <table border="2">
+ <tr>
+ <th>File</th><th>Modification Date</th>
+ <th>Version</th><th>Differences</th></tr>
+ ENDHEADERS
+        foreach (keys %changes) {
+ 	  if ($changes{$_}>$starttime) {
+ 	     my ($root,$extension)=($_=~/^(.*)\.(\w+)$/);
+              my $currentversion=&Apache::lonnet::getversion($_);
+              my $linkurl=&Apache::lonnet::clutter($_);
+              $r->print(
+                  '<tr><td><a href="'.$linkurl.'" target="cat">'.$linkurl.
+                  '</a></td><td>'.
+                  localtime($changes{$_}).'</td><td>'.$currentversion.'</td>'.
+ 		       '<td>');
+              my $lastold=1;
+              for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) {
+                  my $url=$root.'.'.$prevvers.'.'.$extension;
+                  if (&Apache::lonnet::metadata($url,'lastrevisiondate')<
+                                                              $starttime) {
+                      $lastold=$prevvers;
+                  }
+              }
+             for (my $prevvers=$lastold;$prevvers<$currentversion;$prevvers++) {
+                  my $url=$root.'.'.$prevvers.'.'.$extension;
+                  $r->print('<a href="'.&Apache::lonnet::clutter($url).
+                    '">Version '.$prevvers.' ('.
+                  localtime(&Apache::lonnet::metadata($url,'lastrevisiondate')).
+                  ')</a>');
+                  if (&Apache::loncommon::fileembstyle($extension) eq 'ssi') {
+                     $r->print(' <a href="/adm/diff?filename='.
+                             &Apache::lonnet::clutter($root.'.'.$extension).
+                             '&versionone='.$prevvers.
+ 			     '">Diffs</a>');
+                  }
+                  $r->print('<br />');
+              }
+              $r->print('</td></tr>');
+           }
+        }
+        $r->print('</table>');
+    } else {
+        $r->print('<p>No content modifications yet.</p>');
     }
     &untiehash();
    } else {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.30
changed lines
	Added in v.1.34