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

Diff for /loncom/interface/londocs.pm between versions 1.100 and 1.103

version 1.100, 2004/01/29 00:50:44 version 1.103, 2004/02/05 15:19:41
Line 709  sub checkversions { Line 709  sub checkversions {
 <input type="submit" name="display" value="$lt{'sd'}" />  <input type="submit" name="display" value="$lt{'sd'}" />
 <h3>$header</h3>  <h3>$header</h3>
 <input type="submit" name="setversions" value="$lt{'sv'}" />  <input type="submit" name="setversions" value="$lt{'sv'}" />
 <table border="2">  <table border="0">
 <tr>  
 <th>$lt{'fi'}</th><th>$lt{'md'}</th><th>$lt{'mr'}</th>  
 <th>$lt{'ve'}</th><th>$lt{'vu'}</th><th>$lt{'di'}</th></tr>  
 ENDHEADERS  ENDHEADERS
     foreach (sort keys %changes) {      foreach (sort keys %changes) {
  if ($changes{$_}>$starttime) {   if ($changes{$_}>$starttime) {
Line 723  ENDHEADERS Line 720  ENDHEADERS
     }      }
     my $linkurl=&Apache::lonnet::clutter($_);      my $linkurl=&Apache::lonnet::clutter($_);
     $r->print(      $r->print(
       '<tr><td><b>'.        '<tr><td colspan="5"><br /><br /><font size="+1"><b>'.
       &Apache::lonnet::gettitle($linkurl).        &Apache::lonnet::gettitle($linkurl).
    '</b><br /><a href="'.$linkurl.'" target="cat">'.$linkurl.                        '</b></font></td></tr>'.
       '</a></td><td>'.                        '<tr><td>&nbsp;&nbsp;&nbsp;</td>'.
       &Apache::lonlocal::locallocaltime($changes{$_}).                        '<td colspan="4">'.
                       '</td><td><font size="+2">'.                        '<a href="'.$linkurl.'" target="cat">'.$linkurl.
       $currentversion.'</font></td><td><font size="+2">');        '</a></td></tr>'.
                         '<tr><td></td>'.
                         '<td title="'.$lt{'md'}.'">'.
         &Apache::lonlocal::locallocaltime(
                              &Apache::lonnet::metadata($root.'.'.$extension,
                                                        'lastrevisiondate')
                                                           ).
                         '</td>'.
                         '<td title="'.$lt{'mr'}.'"><nobr>Most Recent: '.
                         '<font size="+1">'.$currentversion.'</font>'.
                         '</nobr></td>'.
                         '<td title="'.$lt{'ve'}.'"><nobr>In Course: '.
                         '<font size="+1">');
 # Used in course  # Used in course
     my $usedversion=$hash{'version_'.$linkurl};      my $usedversion=$hash{'version_'.$linkurl};
     if (($usedversion) && ($usedversion ne 'mostrecent')) {      if (($usedversion) && ($usedversion ne 'mostrecent')) {
Line 737  ENDHEADERS Line 746  ENDHEADERS
     } else {      } else {
  $r->print($currentversion);   $r->print($currentversion);
     }      }
     $r->print('</font></td><td>');      $r->print('</font></nobr></td><td title="'.$lt{'vu'}.'">'.
                         '<nobr>Use: ');
 # Set version  # Set version
     $r->print(&Apache::loncommon::select_form($setversions{$linkurl},      $r->print(&Apache::loncommon::select_form($setversions{$linkurl},
       'set_version_'.$linkurl,        'set_version_'.$linkurl,
       ('' => '',        ('' => '',
        'mostrecent' => 'most recent',         'mostrecent' => 'most recent',
        map {$_,$_} (1..$currentversion))));         map {$_,$_} (1..$currentversion))));
     $r->print('</td><td><font size="1"><ul>');      $r->print('</nobr></td></tr><tr><td></td>');
     my $lastold=1;      my $lastold=1;
     for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) {      for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) {
  my $url=$root.'.'.$prevvers.'.'.$extension;   my $url=$root.'.'.$prevvers.'.'.$extension;
Line 753  ENDHEADERS Line 763  ENDHEADERS
     $lastold=$prevvers;      $lastold=$prevvers;
  }   }
     }      }
               # 
               # Code to figure out how many version entries should go in
               # each of the four columns
               my $entries_per_col = 0;
               my $num_entries = ($currentversion-$lastold);
               if ($num_entries % 4 == 0) {
                   $entries_per_col = $num_entries/4;
               } else {
                   $entries_per_col = $num_entries/4 + 1;
               }
               my $entries_count = 0;
               $r->print('<td valign="top"><font size="-2">'); 
               my $cols_output = 1;
             for (my $prevvers=$lastold;$prevvers<$currentversion;$prevvers++) {              for (my $prevvers=$lastold;$prevvers<$currentversion;$prevvers++) {
  my $url=$root.'.'.$prevvers.'.'.$extension;   my $url=$root.'.'.$prevvers.'.'.$extension;
  $r->print('<li><a href="'.&Apache::lonnet::clutter($url).   $r->print('<nobr><a href="'.&Apache::lonnet::clutter($url).
   '">'.&mt('Version').' '.$prevvers.'</a> ('.    '">'.&mt('Version').' '.$prevvers.'</a> ('.
   &Apache::lonlocal::locallocaltime(&Apache::lonnet::metadata($url,'lastrevisiondate')).    &Apache::lonlocal::locallocaltime(
                                   &Apache::lonnet::metadata($url,
                                                             'lastrevisiondate')
                                                               ).
   ')');    ')');
  if (&Apache::loncommon::fileembstyle($extension) eq 'ssi') {   if (&Apache::loncommon::fileembstyle($extension) eq 'ssi') {
                     $r->print(' <a href="/adm/diff?filename='.                      $r->print(' <a href="/adm/diff?filename='.
Line 765  ENDHEADERS Line 791  ENDHEADERS
       '&versionone='.$prevvers.        '&versionone='.$prevvers.
       '">'.&mt('Diffs').'</a>');        '">'.&mt('Diffs').'</a>');
  }   }
  $r->print('</li>');   $r->print('</nobr><br />');
                   if (++$entries_count % $entries_per_col == 0) {
                       $r->print('</font></td>');
                       if ($cols_output != 4) {
                           $r->print('<td valign="top"><font size="-2">');
                           $cols_output++;
                       }
                   }
     }      }
     $r->print('</ul></font></td></tr>');              while($cols_output++ < 4) {
                   $r->print('</font></td><td><font>')
               }
       $r->print('</font></td></tr>'."\n");
  }   }
     }      }
     $r->print('</table></form>');      $r->print('</table></form>');
Line 933  function makebulboard() { Line 969  function makebulboard() {
    }     }
 }  }
   
   function makeabout() {
      var user=prompt("Enter user\@domain for User's 'About Me' Page");
      if (user) {
          var comp=new Array();
          comp=user.split('\@');
          if ((typeof(comp[0])!=undefined) && (typeof(comp[1])!=undefined)) {
      if ((comp[0]) && (comp[1])) {
          this.document.forms.newaboutsomeone.importdetail.value=
      'About '+user+'=/adm/'+comp[1]+'/'+comp[0]+'/aboutme';
          this.document.forms.newaboutsomeone.submit();
      }
          }
      }
   }
   
 function finishpick() {  function finishpick() {
     var title=this.document.forms.extimport.title.value;      var title=this.document.forms.extimport.title.value;
     var url=this.document.forms.extimport.url.value;      var url=this.document.forms.extimport.url.value;
Line 990  ENDNEWSCRIPT Line 1041  ENDNEWSCRIPT
                 'scuf' => 'Score Upload Form',                  'scuf' => 'Score Upload Form',
                 'bull' => 'Bulletin Board',                  'bull' => 'Bulletin Board',
                 'mypi' => 'My Personal Info',                  'mypi' => 'My Personal Info',
    'abou' => 'About User',
                 'file' =>  'File',                  'file' =>  'File',
                 'title' => 'Title',                  'title' => 'Title',
                 'comment' => 'Comment'                   'comment' => 'Comment' 
Line 1174  value="$plainname=/adm/$udom/$uname/abou Line 1226  value="$plainname=/adm/$udom/$uname/abou
 $help{'My Personal Info'}  $help{'My Personal Info'}
 </nobr>  </nobr>
 </form>  </form>
   <form action="/adm/coursedocs" method="post" name="newaboutsomeone">
   <input type="hidden" name="folder" value="$folder">
   <input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
   <input type=hidden name="importdetail" value="">
   <nobr>
   <input name="newaboutsomeone" type="button" value="$lt{'abou'}" 
   onClick="javascript:makeabout();" />
   </nobr>
   </form>
 </td></tr>  </td></tr>
 </table>  </table>
 ENDFORM  ENDFORM
Removed from v.1.100  
changed lines
  Added in v.1.103

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