[LON-CAPA-cvs] cvs: loncom /interface londocs.pm

muellerd muellerd@source.lon-capa.org
Fri, 30 Jan 2009 10:02:46 -0000


muellerd		Fri Jan 30 10:02:46 2009 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  included new input parameter to sub generate_edit_table to display the headline
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.330 loncom/interface/londocs.pm:1.331
--- loncom/interface/londocs.pm:1.330	Fri Jan 30 09:05:36 2009
+++ loncom/interface/londocs.pm	Fri Jan 30 10:02:46 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.330 2009/01/30 09:05:36 tempelho Exp $
+# $Id: londocs.pm,v 1.331 2009/01/30 10:02:46 muellerd Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3148,6 +3148,7 @@
 ENDFORM
 
 $r->print($specialdocumentsform);
+
 my %orderhash = (
                 'aa_eins' => 'New Document',
                 'bb_zwei' => 'Published Documents',
@@ -3162,7 +3163,9 @@
 		'More Options' => $extresourcesform.'<br />'.$imspform.'<br />'.$recoverform,
                 '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'}) {
            $r->print(<<ENDBLOCK);
@@ -3369,12 +3372,17 @@
 
 
 sub generate_edit_table {
-    my ($namehash_ref,$orderhash_ref) = @_;
+    my ($varcd,$namehash_ref,$orderhash_ref) = @_;
     #my %optionhash = %{$optionhash_ref};         #id verlinkt mit inhalt
+    #my %tablehash = %{$tablehash_ref};
     my %namehash = %{$namehash_ref};             #name verlinkt mit id
     my %orderhash = %{$orderhash_ref};           #name mit k├╝rzel verlinkt mit name
+    #my %tablehash = %{$tablehash_ref};
     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">';
     foreach my $name (sort(keys(%orderhash))){
         if($name eq 'zz_hide'){
@@ -3388,6 +3396,7 @@
         $form .= '<div id="'.$field.'" class="LC_ContentBox" style="display: none;">'.$namehash{$field}.'</div>';
     }
     $form .= '</div></div>';
+#}
     return $form;
 }