--- loncom/interface/londocs.pm 2009/02/04 13:03:44 1.336 +++ loncom/interface/londocs.pm 2009/02/04 14:45:51 1.337 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.336 2009/02/04 13:03:44 schafran Exp $ +# $Id: londocs.pm,v 1.337 2009/02/04 14:45:51 ehlerst Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2872,8 +2872,19 @@ ERFORM $containertag = ''; $uploadtag = ''; } - - $r->print(&generate_admin_options($containertag,$uploadtag,\%lt,\%help,\%env)); + $r->print(< + + + + + $containertag + +
+ + $uploadtag +
+HIDDENFORM } # --------------------------------------------------------- Main tab structure my $activeClass = 1; @@ -2893,6 +2904,7 @@ ERFORM } $r->print('
  • '.&mt('Supplemental Course Documents').'
  • '); } + $r->print('
  • '.&mt('Special Admin Options').'
  • '); $r->print('
    '); # --------------------------------------------------------- Standard documents if (($standard) && ($allowed) && (!$forcesupplement)) { @@ -3264,9 +3276,12 @@ my $error = &editor($r,$coursenum,$cours if ($error) { $r->print('

    '.$error.'

    '); } -$r->print('print('
    '); } } +$r->print(''); $r->print(''); if ($allowed) { $r->print(' @@ -3292,24 +3307,18 @@ $r->print(''); } sub generate_admin_options { - my ($containertag,$uploadtag,$lt_ref,$help_ref,$env_ref) = @_; - my %lt = %{$lt_ref}; + my ($containertag,$uploadtag,$help_ref,$env_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 %env = %{$env_ref}; my $dumpbut=&dumpbutton(); my $exportbut=&exportbutton(); return (< - - - - - $containertag - -
    - - $uploadtag -
    • @@ -3333,7 +3342,7 @@ sub generate_admin_options {
    -
     
    + ENDOPTIONFORM }