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

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

version 1.329, 2009/01/28 18:10:04 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,'<>&"').'" />';
        }         }
   
        $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 3036  NASOFORM Line 3032  NASOFORM
  </form>   </form>
 NROSTFORM  NROSTFORM
   
        $r->print(<<ENDFORM);  
   
 <ul class="LC_TabContent">  
 <li>$lt{'nd'}</li>  
 <li>$lt{'pm'}</li>  
 <li>$lt{'pubd'}</li>  
 <li>$lt{'sd'}</li>  
 <li>$lt{'mo'}</li>  
 <li>$lt{'hao'}</li>  
 </ul>  
   
 <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 3125  NSYLFORM Line 3084  NSYLFORM
 NGFFORM  NGFFORM
   
   
            $r->print(<<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 />  my %orderhash = (
 $newbulform                  'aa' => 'New Document',
 <br />                  'bb' => 'Published Documents',
 $newaboutmeform                  'cc' => 'Special Documents',
 <br />   'dd' => 'More Options',
 $newaboutsomeoneform                  'zz' => 'Hide all Option',
 <br />                  );
 $newgroupfileform  my %namehash = (
 <br />                  'New Document' => $fileuploadform,
 $newrosterform                  'Published Documents' => $simpleeditdefaultform,
 ENDFORM                  'Special Documents' => $specialdocumentsform,
        }   'More Options' => $extresourcesform.'<br />'.$imspform.'<br />'.$recoverform,
                   'drei' => 'dr',
                   );
   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('</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 3261  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 3352  sub generate_admin_options { Line 3308  sub generate_admin_options {
  </form>   </form>
  <div style="clear: both; height: 0px;">&nbsp;</div>   <div style="clear: both; height: 0px;">&nbsp;</div>
 ENDOPTIONFORM  ENDOPTIONFORM
   
 }  }
   
   
 sub generate_edit_table {  sub generate_edit_table {
     my ($optionhash_ref,$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><a onclick="hideAllSection();" href="#">'.&mt($orderhash{$name}).'</a></li>';              $form .= '<li onclick="javascript:hideAll(this);" class="active">'.&mt($orderhash{$name}).'</li>';
         }else{          }else{
             $form .= '<li><a onclick="popUpSection(\''.$namehash{$orderhash{$name}}.'\');" href="#">'.&mt($orderhash{$name}).'</a></li>';              $form .= '<li onclick="javascript:showPage(this, \''.$orderhash{$name}.'\');">'.&mt($orderhash{$name}).'</li>';
         }          }
     }      }
     foreach my $field (keys(%optionhash)){      $form .= '<div id="content" style="padding: 0 0; margin: 0 0;">';
         $form .= '<div id="'.$field.'" class="LC_ContentBox LC_hideThis">'.$optionhash{$field}.'</div>';      foreach my $field (keys(%namehash)){
           $form .= '<div id="'.$field.'" class="LC_ContentBox" style="display: none;">'.$namehash{$field}.'</div>';
         }
       $form .= '</div></div>';
     }      }
     $form .= '</div>';  
     return $form;      return $form;
 }  }
   
Line 3577  function markcopy(folderpath,index,oldti Line 3539  function markcopy(folderpath,index,oldti
     this.document.forms.renameform.submit();      this.document.forms.renameform.submit();
 }  }
   
   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');
    currentDivs = currentData.getElementsByTagName('DIV');
    for (i = 0; i < currentDivs.length; i++) {
    currentDivs[i].style.display = 'none';
    }
   }
   
   function showPage(current, pageId) {
    hideAll(current);
    unselectInactive();
    current.className = 'active';
    currentData = document.getElementById(pageId);
    currentData.style.display = 'block';
    return false;
   }
   
 ENDNEWSCRIPT  ENDNEWSCRIPT
 }  }
Removed from v.1.329  
changed lines
  Added in v.1.333

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