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

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

version 1.32, 2002/10/18 13:47:57 version 1.35, 2002/10/21 20:31:06
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();
                    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)));
                    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 377  ENDHEADERS Line 404  ENDHEADERS
                  $r->print('<a href="'.&Apache::lonnet::clutter($url).                   $r->print('<a href="'.&Apache::lonnet::clutter($url).
                    '">Version '.$prevvers.' ('.                     '">Version '.$prevvers.' ('.
                  localtime(&Apache::lonnet::metadata($url,'lastrevisiondate')).                   localtime(&Apache::lonnet::metadata($url,'lastrevisiondate')).
                  ')</a><br />');                   ')</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('</td></tr>');
           }            }
Removed from v.1.32  
changed lines
  Added in v.1.35

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