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

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

version 1.33, 2002/10/18 14:50:22 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)) {
Removed from v.1.33  
changed lines
  Added in v.1.34

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