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

Diff for /loncom/interface/londocs.pm between versions 1.336 and 1.337

version 1.336, 2009/02/04 13:03:44 version 1.337, 2009/02/04 14:45:51
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(<<HIDDENFORM);
        $r->print(&generate_admin_options($containertag,$uploadtag,\%lt,\%help,\%env));   <form name="renameform" method="post" action="/adm/coursedocs">
      <input type="hidden" name="title" />
      <input type="hidden" name="cmd" />
      <input type="hidden" name="markcopy" />
      <input type="hidden" name="copyfolder" />
      $containertag
    </form>
    <form name="simpleedit" method="post" action="/adm/coursedocs">
      <input type="hidden" name="importdetail" value="" />
      $uploadtag
    </form>
   HIDDENFORM
     }      }
 # --------------------------------------------------------- Main tab structure  # --------------------------------------------------------- Main tab structure
     my $activeClass = 1;      my $activeClass = 1;
Line 2893  ERFORM Line 2904  ERFORM
         }          }
  $r->print('<li '.$active.'onclick="javascript:showPage(this,\'Supplemental Course Documents\',\'mainnav\',\'maincoursedoc\');">'.&mt('Supplemental Course Documents').'</li>');   $r->print('<li '.$active.'onclick="javascript:showPage(this,\'Supplemental Course Documents\',\'mainnav\',\'maincoursedoc\');">'.&mt('Supplemental Course Documents').'</li>');
     }      }
       $r->print('<li onclick="javascript:showPage(this,\'Special Admin Options\',\'mainnav\',\'maincoursedoc\');">'.&mt('Special Admin Options').'</li>');
     $r->print('</ul><div id="maincoursedoc" style="margin:0 0;padding:0 0;">');      $r->print('</ul><div id="maincoursedoc" style="margin:0 0;padding:0 0;">');
 # --------------------------------------------------------- Standard documents  # --------------------------------------------------------- Standard documents
     if (($standard) && ($allowed) && (!$forcesupplement)) {      if (($standard) && ($allowed) && (!$forcesupplement)) {
Line 3264  my $error = &editor($r,$coursenum,$cours Line 3276  my $error = &editor($r,$coursenum,$cours
        if ($error) {         if ($error) {
            $r->print('<p><span class="LC_error">'.$error.'</span></p>');             $r->print('<p><span class="LC_error">'.$error.'</span></p>');
        }         }
 $r->print('</div)');  $r->print('</div>');
  }    } 
    }     }
   $r->print('<div class="LC_ContentBox" id="Special Admin Options" style="display: none;">');
   $r->print(&generate_admin_options($containertag,$uploadtag,\%help,\%env));
   $r->print('</div>');
 $r->print('</div>');  $r->print('</div>');
     if ($allowed) {      if ($allowed) {
  $r->print('   $r->print('
Line 3292  $r->print('</div>'); Line 3307  $r->print('</div>');
 }   } 
   
 sub generate_admin_options {  sub generate_admin_options {
   my ($containertag,$uploadtag,$lt_ref,$help_ref,$env_ref) = @_;    my ($containertag,$uploadtag,$help_ref,$env_ref) = @_;
   my %lt = %{$lt_ref};   my %lt=&Apache::lonlocal::texthash(
                                            'vc' => 'Verify Content',
                                            'cv' => 'Check/Set Resource Versions',
                                            'ls' => 'List Symbs',
                                            'sl' => 'Show Log'
                                             );
   my %help = %{$help_ref};    my %help = %{$help_ref};
   my %env = %{$env_ref};    my %env = %{$env_ref};
   my $dumpbut=&dumpbutton();    my $dumpbut=&dumpbutton();
   my $exportbut=&exportbutton();    my $exportbut=&exportbutton();
   return (<<ENDOPTIONFORM);    return (<<ENDOPTIONFORM);
  <form name="renameform" method="post" action="/adm/coursedocs">  
    <input type="hidden" name="title" />  
    <input type="hidden" name="cmd" />  
    <input type="hidden" name="markcopy" />  
    <input type="hidden" name="copyfolder" />  
    $containertag  
  </form>  
  <form name="simpleedit" method="post" action="/adm/coursedocs">  
    <input type="hidden" name="importdetail" value="" />  
    $uploadtag  
  </form>  
  <form action="/adm/coursedocs" method="post" name="courseverify">   <form action="/adm/coursedocs" method="post" name="courseverify">
    <ul style="list-style-type:none">     <ul style="list-style-type:none">
        <li>         <li>
Line 3333  sub generate_admin_options { Line 3342  sub generate_admin_options {
         </li>          </li>
    </ul>     </ul>
  </form>   </form>
  <div style="clear: both; height: 0px;">&nbsp;</div>  <!-- <div style="clear: both; height: 0px;">&nbsp;</div>-->
 ENDOPTIONFORM  ENDOPTIONFORM
   
 }  }
Removed from v.1.336  
changed lines
  Added in v.1.337

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