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

version 1.31, 2002/10/17 15:18:03 version 1.39, 2002/12/04 16:19:05
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 HTML::Entities;
 use GDBM_File;  use GDBM_File;
   
 my $iconpath;  my $iconpath;
Line 118  sub editor { Line 119  sub editor {
                     }                      }
                     $#Apache::lonratedt::order--;                      $#Apache::lonratedt::order--;
                 } elsif ($cmd eq 'up') {                  } elsif ($cmd eq 'up') {
     if (($idx) && (defined($Apache::lonratedt::order[$idx-1]))) {
                     my $i=$Apache::lonratedt::order[$idx-1];                      my $i=$Apache::lonratedt::order[$idx-1];
                     $Apache::lonratedt::order[$idx-1]=                      $Apache::lonratedt::order[$idx-1]=
  $Apache::lonratedt::order[$idx];   $Apache::lonratedt::order[$idx];
                     $Apache::lonratedt::order[$idx]=$i;                      $Apache::lonratedt::order[$idx]=$i;
      }
                 } elsif ($cmd eq 'down') {                  } elsif ($cmd eq 'down') {
      if (defined($Apache::lonratedt::order[$idx+1])) {
                     my $i=$Apache::lonratedt::order[$idx+1];                      my $i=$Apache::lonratedt::order[$idx+1];
                     $Apache::lonratedt::order[$idx+1]=                      $Apache::lonratedt::order[$idx+1]=
  $Apache::lonratedt::order[$idx];   $Apache::lonratedt::order[$idx];
                     $Apache::lonratedt::order[$idx]=$i;                      $Apache::lonratedt::order[$idx]=$i;
      }
                   } elsif ($cmd eq 'rename') {
                       my ($rtitle,@rrest)=split(/\:/,
                          $Apache::lonratedt::resources[
          $Apache::lonratedt::order[$idx]]);
                       my $comment=
                        &HTML::Entities::decode($ENV{'form.title'});
                       $comment=~s/\</\&lt\;/g;
                       $comment=~s/\>/\&gt\;/g;
                       $comment=~s/\:/\&colon;/g;
                       $Apache::lonratedt::resources[
          $Apache::lonratedt::order[$idx]]=
                                $comment.':'.join(':',@rrest);
                       
                 }                  }
 # Store the changed version  # Store the changed version
  &storemap($coursenum,$coursedom,$folder.'.sequence');   &storemap($coursenum,$coursedom,$folder.'.sequence');
Line 161  sub editor { Line 179  sub editor {
         foreach (@Apache::lonratedt::order) {          foreach (@Apache::lonratedt::order) {
            my ($name,$url)=split(/\:/,$Apache::lonratedt::resources[$_]);             my ($name,$url)=split(/\:/,$Apache::lonratedt::resources[$_]);
            unless ($name) {  $name=(split(/\//,$url))[-1]; }             unless ($name) {  $name=(split(/\//,$url))[-1]; }
            unless ($name) { $name='EMPTY'; }             unless ($name) { $name='NO RESOURCE'; $url='/adm/notfound.html'; }
            $r->print(&entryline($idx,$name,$url,$folder,$allowed));             $r->print(&entryline($idx,$name,$url,$folder,$allowed));
            $idx++;             $idx++;
         }          }
Line 173  sub editor { Line 191  sub editor {
   
 sub entryline {  sub entryline {
     my ($index,$title,$url,$folder,$allowed)=@_;      my ($index,$title,$url,$folder,$allowed)=@_;
       $title=~s/\&colon\;/\:/g;
       $title=&HTML::Entities::encode(&HTML::Entities::decode(
        &Apache::lonnet::unescape($title)),'\"\<\>\&\'');
       my $renametitle=$title;
       my $foldertitle=$title;
       if ($title=~
    /^(\d+)\_\_\_\&amp\;\&amp\;\&amp\;\_\_\_(\w+)\_\_\_\&amp\;\&amp\;\&amp\;\_\_\_(\w+)\_\_\_\&amp\;\&amp\;\&amp\;\_\_\_(.*)$/
    ) { 
               $foldertitle=&Apache::lontexconvert::msgtexconverted($4);
               $renametitle=$4;
               $title='<i>'.localtime($1).'</i> '.
                   &Apache::loncommon::plainname($2,$3).': <br>'.
    $foldertitle;
    }
       $renametitle=~s/\&quot\;/\\\"/g;
     my $line='<tr>';      my $line='<tr>';
 # Edit commands  # Edit commands
     if ($allowed) {      if ($allowed) {
Line 183  sub entryline { Line 216  sub entryline {
 <tr><td><a href='/adm/coursedocs?folder=$folder&cmd=down_$index'>  <tr><td><a href='/adm/coursedocs?folder=$folder&cmd=down_$index'>
 <img src="${iconpath}move_down.gif" alt='DOWN' border='0' /></a></td></tr>  <img src="${iconpath}move_down.gif" alt='DOWN' border='0' /></a></td></tr>
 </table></td><td>  </table></td><td>
 <a href='/adm/coursedocs?folder=$folder&cmd=del_$index'>Remove</td>  <a href='/adm/coursedocs?folder=$folder&cmd=del_$index'>
   <font size="-2">Remove</font></a>
   <a href='javascript:changename("$folder","$index","$renametitle");'>
   <font size="-2">Rename</font></a></td>
 END  END
     }      }
 # Figure out what kind of a resource this is  # Figure out what kind of a resource this is
Line 205  END Line 241  END
        }          } 
     }      }
     $url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;      $url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;
 # Title  
     $title=&Apache::lonnet::unescape($title);  
     my $foldertitle=$title;  
     if ($title=~  
  /^(\d+)\_\_\_\&\&\&\_\_\_(\w+)\_\_\_\&\&\&\_\_\_(\w+)\_\_\_\&\&\&\_\_\_(.*)$/  
  ) {   
             $foldertitle=&Apache::lontexconvert::msgtexconverted($4);  
             $title='<i>'.localtime($1).'</i> '.  
                 &Apache::loncommon::plainname($2,$3).': <br>'.  
  $foldertitle;  
  }  
     if ($isfolder) { $url.='&foldername='.$foldertitle; }      if ($isfolder) { $url.='&foldername='.$foldertitle; }
     $line.='<td bgcolor="#FFFFBB"><a href="'.$url.'" target="cat_'.$folder.      $line.='<td bgcolor="#FFFFBB"><a href="'.$url.'" target="cat_'.$folder.
 '"><img src="/adm/lonIcons/'.  '"><img src="/adm/lonIcons/'.
Line 260  sub checkonthis { Line 285  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 324  sub handler { Line 376  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 400  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 {
Line 437  function makenewext(targetname) { Line 521  function makenewext(targetname) {
 }  }
   
 function makesmppage() {  function makesmppage() {
     var title=prompt('Listed Title for the Page');     var title=prompt('Listed Title for the Page');
      if (title) { 
     this.document.forms.newsmppg.importdetail.value=      this.document.forms.newsmppg.importdetail.value=
  title+'=/adm/$udom/$uname/$now/smppg';   title+'=/adm/$udom/$uname/$now/smppg';
     this.document.forms.newsmppg.submit();      this.document.forms.newsmppg.submit();
      }
 }  }
   
 function makebulboard() {  function makebulboard() {
     var title=prompt('Listed Title for the Bulletin Board');     var title=prompt('Listed Title for the Bulletin Board');
      if (title) {
     this.document.forms.newbul.importdetail.value=      this.document.forms.newbul.importdetail.value=
  title+'=/adm/$udom/$uname/$now/bulletinboard';   title+'=/adm/$udom/$uname/$now/bulletinboard';
     this.document.forms.newbul.submit();      this.document.forms.newbul.submit();
      }
 }  }
   
 function finishpick() {  function finishpick() {
Line 458  function finishpick() { Line 546  function finishpick() {
      ('this.document.forms.'+form+'.importdetail.value="'+title+'='+url+       ('this.document.forms.'+form+'.importdetail.value="'+title+'='+url+
     '";this.document.forms.'+form+'.submit();');      '";this.document.forms.'+form+'.submit();');
 }  }
   
   function changename(folder,index,oldtitle) {
       var title=prompt('New Title',oldtitle);
       if (title) {
    this.document.forms.renameform.title.value=title;
    this.document.forms.renameform.cmd.value='rename_'+index;
    this.document.forms.renameform.folder.value=folder;
           this.document.forms.renameform.submit();
       }
   }
 </script>  </script>
   <form name="renameform" method="post" action="/adm/coursedocs">
   <input type="hidden" name="title" />
   <input type="hidden" name="cmd" />
   <input type="hidden" name="folder" />
   </form>
   <form name="simpleedit" method="post" action="/adm/coursedocs">
   <input type=hidden name="importdetail" value="">
   <input type="hidden" name="folder" />
   </form>
   
 ENDNEWSCRIPT  ENDNEWSCRIPT
   }    }
 # -------------------------------------------------------------------- Body tag  # -------------------------------------------------------------------- Body tag
Line 502  Title:<br /> Line 610  Title:<br />
 </form>  </form>
 </td>  </td>
 <td bgcolor="#DDDDDD">  <td bgcolor="#DDDDDD">
 <form action="/adm/coursedocs" method="post" name="simpleedit">  <form action="/adm/coursedocs" method="post" name="simpleeditdefault">
 <input type="hidden" name="folder" value="$folder">  
 <input type=hidden name="importdetail" value="">  
 <input type=button onClick=  <input type=button onClick=
 "javascript:groupsearch()" value="Search">  "javascript:document.forms.simpleedit.folder.value='$folder';groupsearch()" value="Search">
 <input type=button onClick=  <input type=button onClick=
 "javascript:groupimport();" value="Import">  "javascript:document.forms.simpleedit.folder.value='$folder';groupimport();" value="Import">
 </form>  </form>
 </td><td bgcolor="#DDDDDD">  </td><td bgcolor="#DDDDDD">
 <form action="/adm/coursedocs" method="post" name="newfolder">  <form action="/adm/coursedocs" method="post" name="newfolder">
Line 597  ENDFORM Line 703  ENDFORM
 </form>  </form>
 </td>  </td>
 <td bgcolor="#DDDDDD">  <td bgcolor="#DDDDDD">
 <form action="/adm/coursedocs" method="post" name="simpleedit">  <form action="/adm/coursedocs" method="post" name="simpleeditsupplement">
 <input type="hidden" name="folder" value="$folder">  
 <input type=hidden name="importdetail" value="">  <input type=hidden name="importdetail" value="">
 <input type=button onClick=  <input type=button onClick=
 "javascript:groupsearch()" value="Search">  "javascript:document.forms.simpleedit.folder.value='$folder';groupsearch()" value="Search">
 <input type=button onClick=  <input type=button onClick=
 "javascript:groupimport();" value="Import">  "javascript:document.forms.simpleedit.folder.value='$folder';groupimport();" value="Import">
 </form>  </form>
 </td><td bgcolor="#DDDDDD">  </td><td bgcolor="#DDDDDD">
 <form action="/adm/coursedocs" method="post" name="supnewfolder">  <form action="/adm/coursedocs" method="post" name="supnewfolder">
Removed from v.1.31  
changed lines
  Added in v.1.39

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