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

tempelho tempelho@source.lon-capa.org
Sun, 04 Oct 2009 10:27:55 -0000


tempelho		Sun Oct  4 10:27:55 2009 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  Removed hide tab. (Bug 6000)
  Replaced supplemental "upload document" text link by normal form button.
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.387 loncom/interface/londocs.pm:1.388
--- loncom/interface/londocs.pm:1.387	Sun Oct  4 09:41:12 2009
+++ loncom/interface/londocs.pm	Sun Oct  4 10:27:55 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.387 2009/10/04 09:41:12 tempelho Exp $
+# $Id: londocs.pm,v 1.388 2009/10/04 10:27:55 tempelho Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3294,7 +3294,7 @@
 	   my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
 
 	my @supupdocform = (
-		{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/docspacer.gif" alt="pic27" />'=>"<a onclick='document.supuploaddocument.submit()'>$lt{'upld'}</a>$help{'Uploading_From_Harddrive'}"},
+		{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/docspacer.gif" alt="pic27" />'=>"<input type='submit' value='".$lt{'upld'}."' />$help{'Uploading_From_Harddrive'}"},
 		);
 	my $supupdocform=(<<SUPDOCFORM);
 	<form action="/adm/coursedocs" method="post" name="supuploaddocument" enctype="multipart/form-data">
@@ -3448,14 +3448,7 @@
     $form = '<div class="LC_Box">';
     $form .= '<ul id="navigation'.$tid.'" class="LC_TabContent">';
     foreach my $name (sort(keys(%orderhash))){
-        if($name eq 'zz'){
-            if($activetab ne ''){
-               $active = 'class="right"';
-            }else{
-               $active = 'class="right active"';
-            }
-            $form .= '<li onclick="javascript:hideAll(this, \'navigation'.$tid.'\' ,\'content'.$tid.'\');" '.$active.'>'.&mt(${$orderhash{$name}}[0]).'</li>';
-        }else{
+        if($name ne 'zz'){
             if($activetab eq '' || $activetab ne $name){
                $active = '';
             }elsif($activetab eq $name){