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

version 1.330, 2009/01/30 09:05:36 version 1.331, 2009/01/30 10:02:46
Line 3148  $newrosterform Line 3148  $newrosterform
 ENDFORM  ENDFORM
   
 $r->print($specialdocumentsform);  $r->print($specialdocumentsform);
   
 my %orderhash = (  my %orderhash = (
                 'aa_eins' => 'New Document',                  'aa_eins' => 'New Document',
                 'bb_zwei' => 'Published Documents',                  'bb_zwei' => 'Published Documents',
Line 3162  my %namehash = ( Line 3163  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 $varcd = 'Course Documents';
   $r->print(&generate_edit_table($varcd,\%namehash,\%orderhash)); 
   
       }        }
        if ($env{'form.pagepath'}) {         if ($env{'form.pagepath'}) {
            $r->print(<<ENDBLOCK);             $r->print(<<ENDBLOCK);
Line 3369  ENDOPTIONFORM Line 3372  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 %optionhash = %{$optionhash_ref};         #id verlinkt mit inhalt
       #my %tablehash = %{$tablehash_ref};
     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 %tablehash = %{$tablehash_ref};
     my $form;      my $form;
     $form = '<div class="LC_ContentBoxSpecial"><h4 class="LC_hcell">'.&mt('Upload Course Documents').'</h4>';  
       #foreach my $id (keys(%tablehash)){
       $form = '<div class="LC_ContentBoxSpecial"><h4 class="LC_hcell">'.&mt('Upload '.$varcd).'</h4>';
       
     $form .= '<ul class="LC_TabContent">';      $form .= '<ul class="LC_TabContent">';
     foreach my $name (sort(keys(%orderhash))){      foreach my $name (sort(keys(%orderhash))){
         if($name eq 'zz_hide'){          if($name eq 'zz_hide'){
Line 3388  sub generate_edit_table { Line 3396  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;
 }  }
   
Removed from v.1.330  
changed lines
  Added in v.1.331

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