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

Diff for /loncom/interface/londocs.pm between versions 1.332 and 1.333

version 1.332, 2009/01/30 11:39:38 version 1.333, 2009/02/02 11:23:56
Line 2878  ERFORM Line 2878  ERFORM
      &mt('Editing the Table of Contents for your '.$type)));       &mt('Editing the Table of Contents for your '.$type)));
     }      }
 # --------------------------------------------------------- Standard documents  # --------------------------------------------------------- Standard documents
     $r->print('<table class="LC_docs_documents">');  
   
     if (($standard) && ($allowed) && (!$forcesupplement)) {      if (($standard) && ($allowed) && (!$forcesupplement)) {
  $r->print('<tr><td class="LC_docs_document">');  
 #  '<h2>'.&mt('Main Course Documents').  
 #  ($allowed?' '.$help{'Main_Course_Documents'}:'').'</h2>');  
        my $folder=$env{'form.folder'};         my $folder=$env{'form.folder'};
        if ($folder eq '' || $folder eq 'supplemental') {         if ($folder eq '' || $folder eq 'supplemental') {
            $folder='default';             $folder='default';
Line 3037  NASOFORM Line 3032  NASOFORM
  </form>   </form>
 NROSTFORM  NROSTFORM
   
        $r->print(<<ENDFORM);  
   
   
 <table class="LC_docs_adddocs">  
 <!-- <tr>  
 <th>$lt{'uplm'}</th>  
 <th>$lt{'impp'}</th>  
 <th>$lt{'spec'}</th>  
 </tr> -->  
 <tr>  
 <td>  
 $fileuploadform  
 </td>  
 <td>  
 $simpleeditdefaultform  
 <hr />  
 $recoverform  
 ENDFORM  
        unless ($env{'form.pagepath'}) {  
    $r->print(<<ENDFORM);  
 <hr />  
 $extresourcesform  
  <br />  
 $imspform  
 ENDFORM  
        }  
        $r->print('</td><td>');  
        unless ($env{'form.pagepath'}) {         unless ($env{'form.pagepath'}) {
    my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');     my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
   
   
   
  my $newpageform=(<<NPFORM);   my $newpageform=(<<NPFORM);
  <form action="/adm/coursedocs" method="post" name="newpage">   <form action="/adm/coursedocs" method="post" name="newpage">
  <input type="hidden" name="folderpath" value="$path" />   <input type="hidden" name="folderpath" value="$path" />
Line 3118  NSYLFORM Line 3084  NSYLFORM
 NGFFORM  NGFFORM
   
   
            my $specialdocumentsform=(<<ENDFORM);          my $specialdocumentsform=(<<SPDOFORM);
 <br />   <br />$newfolderform
 $newfolderform   <br />$newpageform
 <br />   <br />$newsylform
 $newpageform   <br />$newnavform
 <br />   <br />$newsmppageform
 $newsylform   <br />$newsmpproblemform
 <br />   <br />$newdropboxform
 $newnavform   <br />$newexuploadform
 <br />   <br />$newbulform
 $newsmppageform   <br />$newaboutmeform
 <br />   <br />$newaboutsomeoneform
 $newsmpproblemform   <br />$newgroupfileform
 <br />   <br />$newrosterform
 $newdropboxform  SPDOFORM
 <br />  
 $newexuploadform  
 <br />  
 $newbulform  
 <br />  
 $newaboutmeform  
 <br />  
 $newaboutsomeoneform  
 <br />  
 $newgroupfileform  
 <br />  
 $newrosterform  
 ENDFORM  
   
 $r->print($specialdocumentsform);  
   
 my %orderhash = (  my %orderhash = (
                 'aa' => 'New Document',                  'aa' => 'New Document',
Line 3163  my %namehash = ( Line 3115  my %namehash = (
  'More Options' => $extresourcesform.'<br />'.$imspform.'<br />'.$recoverform,   'More Options' => $extresourcesform.'<br />'.$imspform.'<br />'.$recoverform,
                 'drei' => 'dr',                  'drei' => 'dr',
                 );                  );
   my $tid = '1';
 my $varcd = 'Course Documents';  my $varcd = 'Course Documents';
 $r->print(&generate_edit_table($varcd,\%namehash,\%orderhash));   $r->print(&generate_edit_table($varcd,\%namehash,\%orderhash)); 
   
       }        }
        if ($env{'form.pagepath'}) {         if ($env{'form.pagepath'}) {
            $r->print(<<ENDBLOCK);  
 $newsmpproblemform  
 <br />  
 $newexuploadform  
 ENDBLOCK  
        }         }
        $r->print('</td></tr>'."\n".  
 '</table>');  
 #$r->print(&generate_edit_table(\%namehash,\%orderhash));  
        $r->print('</td></tr>');  
     }      }
 # ----------------------------------------------------- Supplemental documents  # ----------------------------------------------------- Supplemental documents
     if (!$forcestandard) {      if (!$forcestandard) {
        $r->print('<tr><td class="LC_docs_document">');  
 # '<h2>'.&mt('Supplemental Course Documents').  
 #  ($allowed?' '.$help{'Supplemental'}:'').'</h2>');  
        my $folder=$env{'form.folder'};         my $folder=$env{'form.folder'};
        unless ($folder=~/^supplemental/) {         unless ($folder=~/^supplemental/) {
    $folder='supplemental';     $folder='supplemental';
Line 3275  SNSFORM Line 3215  SNSFORM
  </form>   </form>
 SNAMFORM  SNAMFORM
   
    $r->print(<<ENDSUPFORM);  
   
   my %suporderhash = (
                   'ee' => 'New Document',
                   'ff' => 'Special Documents',
                   'zz' => 'Hide all Options',
                   );
   
   my %supnamehash = (
                   'New Document' => $supupdocform,
                   'Special Documents' => $supnewfolderform.'<br />'.$supnewextform.'<br />'.$supnewsylform.'<br />'.$supnewaboutmeform,
                   );
   my $tid='2';
   my $varscd = 'Supplemented Course Documents';
   
   $r->print(<<FORM);
 <ul class="LC_TabContent">  <ul class="LC_TabContent">
 <li>$lt{'nd'}</li>   <li>New Document</li>
 <li>$lt{'sd'}</li>   <li>Special Documents</li>
 <li>$lt{'hao'}</li>  
 </ul>  </ul>
 <table class="LC_docs_adddocs">  FORM
 <tr><td>  
 $supupdocform  #$r->print(&generate_edit_table($varscd,\%supnamehash,\%suporderhash));
 </td>  
 <td>   } 
 $supnewfolderform     }
 <br />  
 $supnewextform  
 <br />  
 $supnewsylform  
 <br />  
 $supnewaboutmeform  
 </td></tr>  
 </table></td></tr>  
 ENDSUPFORM  
        }  
     }  
     $r->print('</table>');  
     if ($allowed) {      if ($allowed) {
  $r->print('   $r->print('
 <form method="post" name="extimport" action="/adm/coursedocs">  <form method="post" name="extimport" action="/adm/coursedocs">
Line 3308  ENDSUPFORM Line 3250  ENDSUPFORM
   <input type="hidden" name="residx" />    <input type="hidden" name="residx" />
 </form>');  </form>');
     }      }
   
   } else {    } else {
       unless ($upload_result eq 'phasetwo') {        unless ($upload_result eq 'phasetwo') {
 # -------------------------------------------------------- This is showdoc mode  # -------------------------------------------------------- This is showdoc mode
Line 3377  sub generate_edit_table { Line 3318  sub generate_edit_table {
     my %orderhash = %{$orderhash_ref};           #name mit kürzel verlinkt mit name      my %orderhash = %{$orderhash_ref};           #name mit kürzel verlinkt mit name
     my $form;      my $form;
   
     #foreach my $id (keys(%tablehash)){      {
   
     $form = '<div class="LC_ContentBoxSpecial"><h4 class="LC_hcell">'.&mt('Upload '.$varcd).'</h4>';      $form = '<div class="LC_ContentBoxSpecial"><h4 class="LC_hcell">'.&mt('Upload '.$varcd).'</h4>';
       
     $form .= '<ul id="navigation" class="LC_TabContent">';      $form .= '<ul id="navigation" class="LC_TabContent">';
     foreach my $name (sort(keys(%orderhash))){      foreach my $name (sort(keys(%orderhash))){
         if($name eq 'zz'){          if($name eq 'zz'){
Line 3393  sub generate_edit_table { Line 3334  sub generate_edit_table {
         $form .= '<div id="'.$field.'" class="LC_ContentBox" style="display: none;">'.$namehash{$field}.'</div>';          $form .= '<div id="'.$field.'" class="LC_ContentBox" style="display: none;">'.$namehash{$field}.'</div>';
       }        }
     $form .= '</div></div>';      $form .= '</div></div>';
 #}      }
     return $form;      return $form;
 }  }
   
Line 3599  function markcopy(folderpath,index,oldti Line 3540  function markcopy(folderpath,index,oldti
 }  }
   
 function unselectInactive() {  function unselectInactive() {
 currentNav = document.getElementById('navigation');   currentTable = document.getElementById('tableId');
 currentLis = currentNav.getElementsByTagName('LI');   currentNav = document.getElementById('navigation');
 for (i = 0; i < currentLis.length; i++) {   currentLis = currentNav.getElementsByTagName('LI');
 currentLis[i].className = 'i';   for (i = 0; i < currentLis.length; i++) {
 }   currentLis[i].className = 'i';
    }
 }  }
   
 function hideAll(current) {  function hideAll(current) {
Line 3612  function hideAll(current) { Line 3554  function hideAll(current) {
  currentData = document.getElementById('content');   currentData = document.getElementById('content');
  currentDivs = currentData.getElementsByTagName('DIV');   currentDivs = currentData.getElementsByTagName('DIV');
  for (i = 0; i < currentDivs.length; i++) {   for (i = 0; i < currentDivs.length; i++) {
  currentDivs[i].style.display = 'none';   currentDivs[i].style.display = 'none';
  }   }
 }  }
   
Removed from v.1.332  
changed lines
  Added in v.1.333

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