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

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

version 1.330, 2009/01/30 09:05:36 version 1.333, 2009/02/02 11:23:56
Line 2872  ERFORM Line 2872  ERFORM
            $containertag = '<input type="hidden" name="folderpath" value="" />';             $containertag = '<input type="hidden" name="folderpath" value="" />';
            $uploadtag = '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($folderpath,'<>&"').'" />';             $uploadtag = '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($folderpath,'<>&"').'" />';
        }         }
        ##############alter hashaufruf  
        $r->print(&generate_admin_options($containertag,$uploadtag,\%lt,\%help,\%env));         $r->print(&generate_admin_options($containertag,$uploadtag,\%lt,\%help,\%env));
        $r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',         $r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',
      &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_eins' => 'New Document',                  'aa' => 'New Document',
                 'bb_zwei' => 'Published Documents',                  'bb' => 'Published Documents',
                 'cc_drei' => 'Special Documents',                  'cc' => 'Special Documents',
  'dd_vier' => 'More Options',   'dd' => 'More Options',
                 'zz_hide' => 'Hide all Option',                  'zz' => 'Hide all Option',
                 );                  );
 my %namehash = (  my %namehash = (
                 'New Document' => $fileuploadform,                  'New Document' => $fileuploadform,
Line 3162  my %namehash = ( Line 3115  my %namehash = (
  'More Options' => $extresourcesform.'<br />'.$imspform.'<br />'.$recoverform,   'More Options' => $extresourcesform.'<br />'.$imspform.'<br />'.$recoverform,
                 'drei' => 'dr',                  'drei' => 'dr',
                 );                  );
 $r->print(&generate_edit_table(\%namehash,\%orderhash));   my $tid = '1';
   my $varcd = 'Course Documents';
   $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 3272  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 3305  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 3369  ENDOPTIONFORM Line 3313  ENDOPTIONFORM
   
   
 sub generate_edit_table {  sub generate_edit_table {
     my ($namehash_ref,$orderhash_ref) = @_;      my ($varcd,$namehash_ref,$orderhash_ref) = @_;
     #my %optionhash = %{$optionhash_ref};         #id verlinkt mit inhalt  
     my %namehash = %{$namehash_ref};             #name verlinkt mit id      my %namehash = %{$namehash_ref};             #name verlinkt mit id
     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;
     $form = '<div class="LC_ContentBoxSpecial"><h4 class="LC_hcell">'.&mt('Upload Course Documents').'</h4>';  
     $form .= '<ul class="LC_TabContent">';      {
   
       $form = '<div class="LC_ContentBoxSpecial"><h4 class="LC_hcell">'.&mt('Upload '.$varcd).'</h4>';
       $form .= '<ul id="navigation" class="LC_TabContent">';
     foreach my $name (sort(keys(%orderhash))){      foreach my $name (sort(keys(%orderhash))){
         if($name eq 'zz_hide'){          if($name eq 'zz'){
             $form .= '<li onclick="javascript:hideAll();">'.&mt($orderhash{$name}).'</li>';              $form .= '<li onclick="javascript:hideAll(this);" class="active">'.&mt($orderhash{$name}).'</li>';
         }else{          }else{
             $form .= '<li onclick="javascript:showPage(this, \''.$orderhash{$name}.'\');">'.&mt($orderhash{$name}).'</li>';              $form .= '<li onclick="javascript:showPage(this, \''.$orderhash{$name}.'\');">'.&mt($orderhash{$name}).'</li>';
         }          }
Line 3386  sub generate_edit_table { Line 3332  sub generate_edit_table {
     $form .= '<div id="content" style="padding: 0 0; margin: 0 0;">';      $form .= '<div id="content" style="padding: 0 0; margin: 0 0;">';
     foreach my $field (keys(%namehash)){      foreach my $field (keys(%namehash)){
         $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 3592  function markcopy(folderpath,index,oldti Line 3539  function markcopy(folderpath,index,oldti
     this.document.forms.renameform.submit();      this.document.forms.renameform.submit();
 }  }
   
 function hideAll() {  function unselectInactive() {
    currentTable = document.getElementById('tableId');
    currentNav = document.getElementById('navigation');
    currentLis = currentNav.getElementsByTagName('LI');
    for (i = 0; i < currentLis.length; i++) {
    currentLis[i].className = 'i';
    }
   }
   
   function hideAll(current) {
    unselectInactive();
    current.className = 'active';
  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';
  }   }
 }  }
   
 function showPage(current, pageId) {  function showPage(current, pageId) {
  hideAll();   hideAll(current);
    unselectInactive();
  current.className = 'active';   current.className = 'active';
  currentData = document.getElementById(pageId);   currentData = document.getElementById(pageId);
  currentData.style.display = 'block';   currentData.style.display = 'block';
Removed from v.1.330  
changed lines
  Added in v.1.333

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