[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.34

version 1.31, 2002/10/17 15:18:03 version 1.34, 2002/10/20 18:42:53
Line 260  sub checkonthis { Line 260  sub checkonthis {
           if ($result==OK) {            if ($result==OK) {
              $r->print('<font color="green">ok</font>');               $r->print('<font color="green">ok</font>');
              $r->rflush();               $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=       my $dependencies=
                 &Apache::lonnet::metadata($url,'dependencies');                  &Apache::lonnet::metadata($url,'dependencies');
              foreach (split(/\,/,$dependencies)) {               foreach (split(/\,/,$dependencies)) {
Line 324  sub handler { Line 356  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 380  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>');
                    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>');         $r->print('</table>');
    } else {     } else {
Removed from v.1.31  
changed lines
  Added in v.1.34

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