[BACK]Return to londocs.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.31 and 1.32

version 1.31, 2002/10/17 15:18:03 version 1.32, 2002/10/18 13:47:57
Line 324  sub handler { Line 324  sub handler {
        if ($ENV{'form.timerange'}==-1) {         if ($ENV{'form.timerange'}==-1) {
    $seltext='since start of course';     $seltext='since start of course';
            $startsel='selected';             $startsel='selected';
        } elsif ($ENV{'form.timerange'}==2592000) {             $ENV{'form.timerange'}=time;
            $seltext='during the last month';         }
          my $starttime=time-$ENV{'form.timerange'};
          if ($ENV{'form.timerange'}==2592000) {
              $seltext='during the last month ('.localtime($starttime).')';
            $monthsel='selected';             $monthsel='selected';
        } elsif ($ENV{'form.timerange'}==604800) {         } elsif ($ENV{'form.timerange'}==604800) {
            $seltext='during the last week';             $seltext='during the last week ('.localtime($starttime).')';
            $weeksel='selected';             $weeksel='selected';
        } elsif ($ENV{'form.timerange'}==86400) {         } elsif ($ENV{'form.timerange'}==86400) {
            $seltext='since yesterday';             $seltext='since yesterday ('.localtime($starttime).')';
            $daysel='selected';             $daysel='selected';
        }         }
    
        $r->print(<<ENDHEADERS);         $r->print(<<ENDHEADERS);
 <form action="/adm/coursedocs" method="post">  <form action="/adm/coursedocs" method="post">
 <select name="timerange">  <select name="timerange">
Line 344  sub handler { Line 348  sub handler {
 </select>  </select>
 <input type="submit" name="versions" value="Display" />  <input type="submit" name="versions" value="Display" />
 </form>  </form>
 <h1>Content changed $seltext</h1>  <h3>Content changed $seltext</h3>
 <table border="2">  <table border="2">
 <tr>  <tr>
 <th>File</th><th>Modification Date</th>  <th>File</th><th>Modification Date</th>
 <th>Version</th><th>Differences</th></tr>  <th>Version</th><th>Differences</th></tr>
 ENDHEADERS  ENDHEADERS
        foreach (keys %changes) {         foreach (keys %changes) {
            my $currentversion=&Apache::lonnet::getversion($_);    if ($changes{$_}>$starttime) {
            $r->print(       my ($root,$extension)=($_=~/^(.*)\.(\w+)$/);
                  '<tr><td><a href="'.$_.'" target="cat">'.$_.'</a></td><td>'.               my $currentversion=&Apache::lonnet::getversion($_);
                  localtime($changes{$_}).'</td><td>'.$currentversion.'</td>');               my $linkurl=&Apache::lonnet::clutter($_);
            $r->print('</tr>');               $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><br />');
                }
                $r->print('</td></tr>');
             }
        }         }
        $r->print('</table>');         $r->print('</table>');
    } else {     } else {
Removed from v.1.31  
changed lines
  Added in v.1.32

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