--- loncom/interface/londocs.pm 2009/06/08 18:04:45 1.370 +++ loncom/interface/londocs.pm 2009/06/09 18:42:42 1.371 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.370 2009/06/08 18:04:45 bisitz Exp $ +# $Id: londocs.pm,v 1.371 2009/06/09 18:42:42 tempelho Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2824,6 +2824,7 @@ CHBO my $fileuploadform=(< + $fileupload
$lt{'title'}:
@@ -2845,6 +2846,7 @@ FUFORM my $simpleeditdefaultform=(< + $lt{'pubd'}
$uploadtag @@ -2939,8 +2941,6 @@ HIDDENFORM $active = 'style="display: block;"'; } $r->print('
'); - $r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc', - &mt('Editing the Table of Contents for your '.$type))); my $folder=$env{'form.folder'}; if ($folder eq '' || $folder=~/^supplemental/) { $folder='default'; @@ -2987,6 +2987,7 @@ IMSPFORM my $newnavform=(< + $uploadtag @@ -2998,6 +2999,7 @@ IMSPFORM NNFORM my $newsmppageform=(< + $uploadtag @@ -3009,6 +3011,7 @@ NSPFORM my $newsmpproblemform=(< + $uploadtag @@ -3021,6 +3024,7 @@ NSPROBFORM my $newdropboxform=(< + $uploadtag @@ -3032,6 +3036,7 @@ NDBFORM my $newexuploadform=(< + $uploadtag @@ -3044,6 +3049,7 @@ NEXUFORM my $newbulform=(< + $uploadtag @@ -3056,6 +3062,7 @@ NBFORM my $newaboutmeform=(< + $uploadtag @@ -3068,6 +3075,7 @@ NAMFORM my $newaboutsomeoneform=(< + $uploadtag @@ -3080,6 +3088,7 @@ NASOFORM my $newrosterform=(< + $uploadtag @@ -3100,6 +3109,7 @@ my $newfolderform;
+ + + $uploadtag @@ -3134,6 +3146,7 @@ NSYLFORM my $newgroupfileform=(< + $uploadtag @@ -3175,6 +3188,8 @@ $r->print(&generate_edit_table($tid,$var } &changewarning($r,''); + $r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc', + &mt('Editing the Table of Contents for your '.$type))); $r->print('
'); if ($env{'form.pagepath'}) { } @@ -3205,6 +3220,7 @@ $r->print(''); my $supupdocform=(< + $fileupload

@@ -3227,6 +3243,7 @@ SUPDOCFORM my $supnewfolderform=(< + @@ -3240,6 +3257,7 @@ SNFFORM my $supnewextform=(< + @@ -3252,6 +3270,7 @@ SNEFORM my $supnewsylform=(< + @@ -3264,6 +3283,7 @@ SNSFORM my $supnewaboutmeform=(< + @@ -3347,21 +3367,40 @@ sub generate_edit_table { my ($tid,$varcd,$orderhash_ref) = @_; my %orderhash = %{$orderhash_ref}; my $form; - + my $activetab; + my $active; + if($env{'form.active'} ne ''){ + $activetab = $env{'form.active'}; + } $form = '

'.&mt($varcd).'

'; $form .= ''; $form .= '
'; foreach my $field (keys(%orderhash)){ if($field ne 'zz'){ - $form .= ''; + if($activetab eq '' || $activetab ne $field){ + $active = 'style="display: none;"'; + }elsif($activetab eq $field){ + $active = 'style="display:block;"'; + } + $form .= '
'.${$orderhash{$field}}[1].'
'; } } $form .= '
';