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

Diff for /loncom/interface/londocs.pm between versions 1.64 and 1.77

version 1.64, 2003/07/09 10:05:15 version 1.77, 2003/09/09 19:39:04
Line 35  use Apache::loncommon; Line 35  use Apache::loncommon;
 use Apache::lonratedt;  use Apache::lonratedt;
 use Apache::lonratsrv;  use Apache::lonratsrv;
 use Apache::lonxml;  use Apache::lonxml;
   use Apache::loncreatecourse;
 use HTML::Entities;  use HTML::Entities;
 use GDBM_File;  use GDBM_File;
   
Line 72  sub storemap { Line 73  sub storemap {
                                 $map,1);                                  $map,1);
 }  }
   
   # ----------------------------------------- Return hash with valid author names
   
   sub authorhosts {
       my %outhash=();
       my $home=0;
       my $other=0;
       foreach (keys %ENV) {
    if ($_=~/^user\.role\.(au|ca)\.(.+)$/) {
       my $role=$1;
       my $realm=$2;
       my ($start,$end)=split(/\./,$ENV{$_});
       if (($start) && ($start>time)) { next; }
       if (($end) && (time>$end)) { next; }
       my $ca; my $cd;
       if ($1 eq 'au') {
    $ca=$ENV{'user.name'};
    $cd=$ENV{'user.domain'};
       } else {
    ($cd,$ca)=($realm=~/^\/(\w+)\/(\w+)$/);
       }
       if (&Apache::lonnet::homeserver($ca,$cd) eq 
    $Apache::lonnet::perlvar{'lonHostID'}) {
    $home++;
    $outhash{'home_'.$ca.'@'.$cd}=1;
       } else {
    $outhash{'otherhome_'.$ca.'@'.$cd}=
       &Apache::lonnet::homeserver($ca,$cd);
    $other++;
       }
    }
       }
       return ($home,$other,%outhash);
   }
   # ------------------------------------------------------ Generate "dump" button
   
   sub dumpbutton {
       my ($home,$other,%outhash)=&authorhosts();
       if ($home+$other==0) { return ''; }
       my $output='</td><td bgcolor="#DDDDCC">';
       if ($home) {
    return '</td><td bgcolor="#DDDDCC">'.
       '<input type="submit" name="dumpcourse" value="Dump Course DOCS to Construction Space" />';
       } else {
    return'</td><td bgcolor="#DDDDCC">'.
         'Dump Course DOCS to Construction Space: available on other servers';
       }
   }
   
   # -------------------------------------------------------- Actually dump course
   
   sub dumpcourse {
       my $r=shift;
       $r->print('<html><head><title>Dump DOCS</title></head>'.
           &Apache::loncommon::bodytag('Dump Course DOCS to Construction Space').
         '<form name="dumpdoc" method="post">');
       my ($home,$other,%outhash)=&authorhosts();
       unless ($home) { return ''; }
       my $origcrsid=$ENV{'request.course.id'};
       my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid);
       if (($ENV{'form.authorspace'}) && ($ENV{'form.authorfolder'}=~/\w/)) {
   # Do the dumping
    unless ($outhash{'home_'.$ENV{'form.authorspace'}}) { return ''; }
    my ($ca,$cd)=split(/\@/,$ENV{'form.authorspace'});
    my $title=$ENV{'form.authorfolder'};
   
       } else {
   # Input form
    unless ($home==1) {
       $r->print(
         '<h3>Select the Construction Space</h3><select name="authorspace">');
    }
    foreach (sort keys %outhash) {
       if ($_=~/^home_(.+)$/) {
    if ($home==1) {
       $r->print(
     '<input type="hidden" name="authorspace" value="'.$1.'" />');
    } else {
       $r->print('<option value="'.$1.'">'.$_.'</option>');
    }
       }
    }
    unless ($home==1) {
       $r->print('</select>');
    }
    my $title=$origcrsdata{'description'};
    $title=~s/\s+/\_/gs;
    $title=~s/\W//gs;
    $r->print('<h3>Folder in Construction Space</h3><input type="text" size="50" name="authorfolder" value="'.$title.'" /><br />');
    &tiehash();
    foreach (&Apache::loncreatecourse::crsdirlist($origcrsid,'userfiles')) {
       $r->print("\n<br />".$_.' '.
     $hash{'title_'.$hash{
   'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$_}}
         );
    }
    &untiehash();
    $r->print(
     '<input type="submit" name="dumpcourse" value="Dump Course DOCS" /></form>');
       }
   }
   
   
   # Imports the given (name, url) resources into the course
   # coursenum, coursedom, and folder must precede the list
   sub group_import {
       my $coursenum = shift;
       my $coursedom = shift;
       my $folder = shift;
       while (@_) {
    my $name = shift;
    my $url = shift;
    if ($url) {
       my $idx = $#Apache::lonratedt::resources + 1;
       $Apache::lonratedt::order[$#Apache::lonratedt::order+1]=$idx;
       my $ext = 'false';
       if ($url=~/^http:\/\//) { $ext = 'true'; }
       $url =~ s/:/\&colon;/g;
       $name =~ s/:/\&colon;/g;
       $Apache::lonratedt::resources[$idx] = 
    join ':', ($name, $url, $ext, 'normal', 'res');
    }
       }
       &storemap($coursenum, $coursedom, $folder);
   }
   
 sub editor {  sub editor {
     my ($r,$coursenum,$coursedom,$folder,$allowed)=@_;      my ($r,$coursenum,$coursedom,$folder,$allowed)=@_;
     if ($ENV{'form.foldername'}) {      if ($ENV{'form.foldername'}) {
Line 158  sub editor { Line 284  sub editor {
             }              }
 # Group import/search  # Group import/search
     if ($ENV{'form.importdetail'}) {      if ($ENV{'form.importdetail'}) {
                foreach (split(/\&/,$ENV{'form.importdetail'})) {   my @imports;
                   if (defined($_)) {   foreach (split(/\&/,$ENV{'form.importdetail'})) {
              my ($name,$url)=split(/\=/,$_);      if (defined($_)) {
                      $name=&Apache::lonnet::unescape($name);   my ($name,$url)=split(/\=/,$_);
                      $url=&Apache::lonnet::unescape($url);   $name=&Apache::lonnet::unescape($name);
                      if ($url) {   $url=&Apache::lonnet::unescape($url);
                 my $idx=$#Apache::lonratedt::resources+1;   push @imports, $name, $url;
                         $Apache::lonratedt::order      }
                            [$#Apache::lonratedt::order+1]=$idx;   }
                         my $ext='false';  
                         if ($url=~/^http\:\/\//) { $ext='true'; }  
                         $url=~s/\:/\&colon;/g;  
                         $name=~s/\:/\&colon;/g;  
                         $Apache::lonratedt::resources[$idx]=  
                            $name.':'.$url.':'.$ext.':normal:res';  
              }  
                  }  
       }  
 # Store the changed version  # Store the changed version
  &storemap($coursenum,$coursedom,$folder.'.sequence');   group_import($coursenum, $coursedom, $folder, @imports);
             }              }
 # Loading a complete map  # Loading a complete map
    if (($ENV{'form.importmap'}) && ($ENV{'form.loadmap'})) {     if (($ENV{'form.importmap'}) && ($ENV{'form.loadmap'})) {
Line 265  END Line 382  END
        }          } 
     }      }
     $url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;      $url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;
     if ($residx) {      if (($residx) && ($folder!~/supplemental/)) {
        $url.=(($url=~/\?/)?'&':'?').'symb='.         $url.=(($url=~/\?/)?'&':'?').'symb='.
        &Apache::lonnet::escape(&Apache::lonnet::symbclean(         &Apache::lonnet::escape(&Apache::lonnet::symbclean(
           &Apache::lonnet::declutter('uploaded/'.            &Apache::lonnet::declutter('uploaded/'.
Line 329  sub checkonthis { Line 446  sub checkonthis {
                      $r->print('&nbsp;');                       $r->print('&nbsp;');
                  }                   }
                  $r->print('- Rendering: ');                   $r->print('- Rendering: ');
                    my $oldpath=$ENV{'request.filename'};
                    $ENV{'request.filename'}=&Apache::lonnet::filelocation('',$url);
                  &Apache::lonxml::xmlparse($r,'web',                   &Apache::lonxml::xmlparse($r,'web',
                    &Apache::lonnet::getfile(                     &Apache::lonnet::getfile(
                     &Apache::lonnet::filelocation('',$url)));                      &Apache::lonnet::filelocation('',$url)));
    $ENV{'request.filename'}=$oldpath;
                  if (($Apache::lonxml::errorcount) ||                   if (($Apache::lonxml::errorcount) ||
                      ($Apache::lonxml::warningcount)) {                       ($Apache::lonxml::warningcount)) {
      if ($Apache::lonxml::errorcount) {       if ($Apache::lonxml::errorcount) {
Line 365  sub checkonthis { Line 485  sub checkonthis {
    }     }
 }  }
   
 # ================================================================ Main Handler  
 sub handler {  
     my $r = shift;  
     $r->content_type('text/html');  
     $r->send_http_header;  
     return OK if $r->header_only;  
   
 # --------------------------------------------- Initialize help topics for this  #
   foreach ('Adding_Course_Doc','Main_Course_Documents',  # -------------------------------------------------------------- Verify Content
            'Adding_External_Resource','Navigate_Content',  # 
            'Adding_Folders','Docs_Overview',  sub verifycontent {
            'Creating_From_Template','Supplemental',     my $r=shift; 
            'Importing_LON-CAPA_Resource','Uploading_From_Harddrive') {  
       $help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_);  
   }  
   
   if ($ENV{'form.verify'}) {  
    
    my $loaderror=&Apache::lonnet::overloaderror($r);     my $loaderror=&Apache::lonnet::overloaderror($r);
    if ($loaderror) { return $loaderror; }     if ($loaderror) { return $loaderror; }
   
Line 398  sub handler { Line 506  sub handler {
        }         }
    }     }
    &untiehash();     &untiehash();
   } elsif ($ENV{'form.versions'}) {     $r->print('<h1>Done.</h1>');
     $r->print('<html><head><title>Check Versions</title></head>'.  }
   
   # -------------------------------------------------------------- Check Versions
   
   sub checkversions {
       my $r=shift;
      $r->print('<html><head><title>Check Versions</title></head>'.
               &Apache::loncommon::bodytag('Check Course Document Versions'));                &Apache::loncommon::bodytag('Check Course Document Versions'));
    $hashtied=0;     $hashtied=0;
    &tiehash();     &tiehash();
Line 432  sub handler { Line 546  sub handler {
            $seltext='since yesterday ('.localtime($starttime).')';             $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 485  ENDHEADERS Line 599  ENDHEADERS
           }            }
        }         }
        $r->print('</table>');         $r->print('</table>');
          $r->print('<h1>Done.</h1>');
    } else {     } else {
        $r->print('<p>No content modifications yet.</p>');         $r->print('<p>No content modifications yet.</p>');
    }     }
    &untiehash();     &untiehash();
   }
   
   # ================================================================ Main Handler
   sub handler {
       my $r = shift;
       $r->content_type('text/html');
       $r->send_http_header;
       return OK if $r->header_only;
   
   # --------------------------------------------- Initialize help topics for this
     foreach ('Adding_Course_Doc','Main_Course_Documents',
              'Adding_External_Resource','Navigate_Content',
              'Adding_Folders','Docs_Overview', 'Load_Map',
              'Supplemental', 'Score_Upload_Form',
              'Importing_LON-CAPA_Resource','Uploading_From_Harddrive') {
         $help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_);
     }
       # Composite help files
       $help{'Syllabus'} = &Apache::loncommon::help_open_topic(
       'Docs_About_Syllabus,Docs_Editing_Templated_Pages');
       $help{'Simple Page'} = &Apache::loncommon::help_open_topic(
       'Docs_About_Simple_Page,Docs_Editing_Templated_Pages');
       $help{'Bulletin Board'} = &Apache::loncommon::help_open_topic(
       'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages');
       $help{'My Personal Info'} = &Apache::loncommon::help_open_topic(
     'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages');
       $help{'Caching'} = &Apache::loncommon::help_open_topic('Caching');
    
     if ($ENV{'form.verify'}) {
         &verifycontent($r);
     } elsif ($ENV{'form.versions'}) {
         &checkversions($r);
     } elsif ($ENV{'form.dumpcourse'}) {
         &dumpcourse($r);
   } else {    } else {
 # is this a standard course?  # is this a standard course?
   
Line 498  ENDHEADERS Line 647  ENDHEADERS
     my $script='';      my $script='';
     my $allowed;      my $allowed;
     my $events='';      my $events='';
     my $buttons='';  
     my $showdoc=0;      my $showdoc=0;
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
        ['folder','foldername']);         ['folder','foldername']);
Line 510  ENDHEADERS Line 658  ENDHEADERS
        $forcesupplement=($ENV{'form.folder'}=~/^supplemental_/);         $forcesupplement=($ENV{'form.folder'}=~/^supplemental_/);
   
 # does this user have privileges to post, etc?  # does this user have privileges to post, etc?
        $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});         $allowed=&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'});
        if ($allowed) {          if ($allowed) { 
          &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['cmd']);           &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['cmd']);
          $script=&Apache::lonratedt::editscript('simple');            $script=&Apache::lonratedt::editscript('simple'); 
Line 520  ENDHEADERS Line 668  ENDHEADERS
        $script='</script>'.&Apache::lonmenu::registerurl(1,undef).'<script>';         $script='</script>'.&Apache::lonmenu::registerurl(1,undef).'<script>';
        $events='onLoad="'.&Apache::lonmenu::loadevents.         $events='onLoad="'.&Apache::lonmenu::loadevents.
            '" onUnload="'.&Apache::lonmenu::unloadevents.'"';             '" onUnload="'.&Apache::lonmenu::unloadevents.'"';
        $buttons=&Apache::lonmenu::menubuttons(1,undef);  
     }      }
   
 # get course data  # get course data
Line 633  ENDNEWSCRIPT Line 780  ENDNEWSCRIPT
   }    }
 # -------------------------------------------------------------------- Body tag  # -------------------------------------------------------------------- Body tag
   $r->print('</head>'.    $r->print('</head>'.
             &Apache::loncommon::bodytag('Course Documents','',$events).              &Apache::loncommon::bodytag('Course Documents','',$events,
             $buttons);   '','',$showdoc));
   unless ($showdoc) {    unless ($showdoc) {
     if ($allowed) {      if ($allowed) {
        $r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',         my $dumpbut=&dumpbutton();
      'Editing the Table of Contents for your Course'));  
        $r->print(<<ENDCOURSEVERIFY);         $r->print(<<ENDCOURSEVERIFY);
 <form name="renameform" method="post" action="/adm/coursedocs">  <form name="renameform" method="post" action="/adm/coursedocs">
 <input type="hidden" name="title" />  <input type="hidden" name="title" />
Line 650  ENDNEWSCRIPT Line 796  ENDNEWSCRIPT
 <input type="hidden" name="folder" />  <input type="hidden" name="folder" />
 </form>  </form>
 <form action="/adm/coursedocs" method="post" name="courseverify">  <form action="/adm/coursedocs" method="post" name="courseverify">
   <table bgcolor="#AAAAAA" width="100%" cellspacing="4" cellpadding="4">
   <tr><td bgcolor="#DDDDCC">
 <input type="submit" name="verify" value="Verify Content" />  <input type="submit" name="verify" value="Verify Content" />
   </td><td bgcolor="#DDDDCC">
 <input type="submit" name="versions" value="Check Resource Versions" />  <input type="submit" name="versions" value="Check Resource Versions" />
   $dumpbut
   </td></tr></table>
 </form>  </form>
 ENDCOURSEVERIFY  ENDCOURSEVERIFY
          $r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',
        'Editing the Table of Contents for your Course'));
     }      }
 # --------------------------------------------------------- Standard documents  # --------------------------------------------------------- Standard documents
     $r->print('<table border=2 cellspacing=4 cellpadding=4>');      $r->print('<table border=2 cellspacing=4 cellpadding=4>');
Line 675  ENDCOURSEVERIFY Line 828  ENDCOURSEVERIFY
 '<script>function reinit(tf) { tf.submit();'.$postexec.' }</script>'.   '<script>function reinit(tf) { tf.submit();'.$postexec.' }</script>'. 
 '<form method="post" action="/adm/roles" target="loncapaclient">'.  '<form method="post" action="/adm/roles" target="loncapaclient">'.
 '<input type="hidden" name="orgurl" value="/adm/coursedocs" /><input type="hidden" name="selectrole" value="1" /><h3><font color="red">Changes will become active for your current session after <input type="hidden" name="'.  '<input type="hidden" name="orgurl" value="/adm/coursedocs" /><input type="hidden" name="selectrole" value="1" /><h3><font color="red">Changes will become active for your current session after <input type="hidden" name="'.
 $ENV{'request.role'}.'" value="1" /><input type="button" value="re-initializing course" onClick="reinit(this.form)"/>, or the next time you log in.</font></h3></form>');  $ENV{'request.role'}.'" value="1" /><input type="button" value="re-initializing course" onClick="reinit(this.form)"/>, or the next time you log in.'.
   $help{'Caching'}.'</font></h3></form>');
        }         }
        my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.         my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
                      '.sequence';                       '.sequence';
Line 715  $help{'Importing_LON-CAPA_Resource'} Line 869  $help{'Importing_LON-CAPA_Resource'}
 </nobr>  </nobr>
 <p>  <p>
 <hr />  <hr />
 <input type="text" size="20" name="importmap">  <input type="text" size="20" name="importmap"><br />
 <input type=button   <nobr><input type=button 
 onClick="javascript:openbrowser('simpleeditdefault','importmap','sequence,page','')"  onClick="javascript:openbrowser('simpleeditdefault','importmap','sequence,page','')"
 value="Select Map"><input type="submit" name="loadmap" value="Load Map">  value="Select Map"> <input type="submit" name="loadmap" value="Load Map">
   $help{'Load_Map'}</nobr>
 </p>  </p>
 </form>  </form>
 </td><td bgcolor="#DDDDDD">  </td><td bgcolor="#DDDDDD">
Line 748  value="External Resource" /> $help{'Addi Line 903  value="External Resource" /> $help{'Addi
 value="Syllabus=/public/$coursedom/$coursenum/syllabus">  value="Syllabus=/public/$coursedom/$coursenum/syllabus">
 <nobr>  <nobr>
 <input name="newsyl" type="submit" value="Syllabus" />   <input name="newsyl" type="submit" value="Syllabus" /> 
  $help{'Creating_From_Template'}   $help{'Syllabus'}
 </nobr>  </nobr>
 </form>  </form>
 <form action="/adm/coursedocs" method="post" name="newnav">  <form action="/adm/coursedocs" method="post" name="newnav">
Line 767  $help{'Navigate_Content'} Line 922  $help{'Navigate_Content'}
 <input type=hidden name="importdetail" value="">  <input type=hidden name="importdetail" value="">
 <nobr>  <nobr>
 <input name="newsmppg" type="button" value="Simple Page"  <input name="newsmppg" type="button" value="Simple Page"
 onClick="javascript:makesmppage();" /> $help{'Creating_From_Template'}  onClick="javascript:makesmppage();" /> $help{'Simple Page'}
 </nobr>  </nobr>
 </form>  </form>
 <form action="/adm/coursedocs" method="post" name="newsmpproblem">  <form action="/adm/coursedocs" method="post" name="newsmpproblem">
Line 776  onClick="javascript:makesmppage();" /> $ Line 931  onClick="javascript:makesmppage();" /> $
 <input type=hidden name="importdetail" value="">  <input type=hidden name="importdetail" value="">
 <nobr>  <nobr>
 <input name="newsmpproblem" type="button" value="Simple Problem"  <input name="newsmpproblem" type="button" value="Simple Problem"
 onClick="javascript:makesmpproblem();" />$help{'Creating_From_Template'}  onClick="javascript:makesmpproblem();" />$help{'Simple Problem'}
 </nobr>  </nobr>
 </form>  </form>
 <form action="/adm/coursedocs" method="post" name="newexamupload">  <form action="/adm/coursedocs" method="post" name="newexamupload">
Line 786  onClick="javascript:makesmpproblem();" / Line 941  onClick="javascript:makesmpproblem();" /
 <nobr>  <nobr>
 <input name="newexamupload" type="button" value="Score Upload Form"  <input name="newexamupload" type="button" value="Score Upload Form"
 onClick="javascript:makeexamupload();" />  onClick="javascript:makeexamupload();" />
   $help{'Score_Upload_Form'}
 </nobr>  </nobr>
 </form>  </form>
 <form action="/adm/coursedocs" method="post" name="newbul">  <form action="/adm/coursedocs" method="post" name="newbul">
Line 795  onClick="javascript:makeexamupload();" / Line 951  onClick="javascript:makeexamupload();" /
 <nobr>  <nobr>
 <input name="newbulletin" type="button" value="Bulletin Board"  <input name="newbulletin" type="button" value="Bulletin Board"
 onClick="javascript:makebulboard();" />  onClick="javascript:makebulboard();" />
 $help{'Creating_From_Template'}  $help{'Bulletin Board'}
 </nobr>  </nobr>
 </form>  </form>
 <form action="/adm/coursedocs" method="post" name="newaboutme">  <form action="/adm/coursedocs" method="post" name="newaboutme">
Line 805  $help{'Creating_From_Template'} Line 961  $help{'Creating_From_Template'}
 value="$plainname=/adm/$udom/$uname/aboutme">  value="$plainname=/adm/$udom/$uname/aboutme">
 <nobr>  <nobr>
 <input name="newaboutme" type="submit" value="My Personal Info" />  <input name="newaboutme" type="submit" value="My Personal Info" />
 $help{'Creating_From_Template'}  $help{'My Personal Info'}
 </nobr>  </nobr>
 </form>  </form>
 </td></tr>  </td></tr>
Line 892  value="External Resource" /> $help{'Addi Line 1048  value="External Resource" /> $help{'Addi
 value="Syllabus=/public/$coursedom/$coursenum/syllabus">  value="Syllabus=/public/$coursedom/$coursenum/syllabus">
 <nobr>  <nobr>
 <input name="newsyl" type="submit" value="Syllabus" />  <input name="newsyl" type="submit" value="Syllabus" />
 $help{'Creating_From_Template'}  $help{'Syllabus'}
 </nobr>  </nobr>
 </form>  </form>
 <form action="/adm/coursedocs" method="post" name="subnewaboutme">  <form action="/adm/coursedocs" method="post" name="subnewaboutme">
Line 902  $help{'Creating_From_Template'} Line 1058  $help{'Creating_From_Template'}
 value="$plainname=/adm/$udom/$uname/aboutme">  value="$plainname=/adm/$udom/$uname/aboutme">
 <nobr>  <nobr>
 <input name="newaboutme" type="submit" value="My Personal Info" />  <input name="newaboutme" type="submit" value="My Personal Info" />
 $help{'Creating_From_Template'}  $help{'My Personal Info'}
 </nobr>  </nobr>
 </form>  </form>
 </td></tr>  </td></tr>
Removed from v.1.64  
changed lines
  Added in v.1.77

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