--- loncom/interface/londocs.pm 2009/03/10 18:49:22 1.354 +++ loncom/interface/londocs.pm 2009/04/01 14:22:11 1.360 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.354 2009/03/10 18:49:22 tempelho Exp $ +# $Id: londocs.pm,v 1.360 2009/04/01 14:22:11 amueller Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1012,7 +1012,7 @@ sub breadcrumbs { } $plain=~s/\>\;\s*$//; return (&Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'nohelp', - 'LC_docs_path'),$randompick,$ishidden,$isencrypted,$plain,$is_random_order); + 'LC_docs_path', undef, 1 ),$randompick,$ishidden,$isencrypted,$plain,$is_random_order); } sub log_docs { @@ -1775,7 +1775,7 @@ sub entryline { ''; @@ -3127,20 +3128,18 @@ my %orderhash = ( 'aa' => 'New Document', 'bb' => 'Published Documents', 'cc' => 'Special Documents', - 'dd' => 'More Tools', + 'dd' => 'Tools', 'zz' => 'Hide all Options', ); my %namehash = ( 'New Document' => $fileuploadform.'
'.$newfolderform, 'Published Documents' => $simpleeditdefaultform, 'Special Documents' => $specialdocumentsform, - 'More Tools' => $extresourcesform.'
'.$imspform.'
'.$recoverform.'
'.&generate_admin_options($containertag,$uploadtag,\%help,\%env), + 'Tools' => $extresourcesform.'
'.$imspform.'
'.$recoverform.'
'.&generate_admin_options($containertag,$uploadtag,\%help,\%env), ); my $tid='1'; -my $content='content'; -my $navigation='navigation'; my $varcd = 'Main Course Documents'; -$r->print(&generate_edit_table($tid,$content,$navigation,$varcd,\%namehash,\%orderhash)); +$r->print(&generate_edit_table($tid,$varcd,\%namehash,\%orderhash)); $hadchanges=0; my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type); if ($error) { @@ -3154,9 +3153,7 @@ $r->print(&generate_edit_table($tid,$con $r->print(''); if ($env{'form.pagepath'}) { } - } # ----------------------------------------------------- Supplemental documents - if (!$forcestandard) { my $active = 'style="display: none;"'; if($activeClass == 1){ $active = 'style="display: block;"'; @@ -3170,6 +3167,8 @@ $r->print(''); (($env{'form.folderpath'} =~ /^default\&/) || ($env{'form.folderpath'} eq ''))) { $env{'form.folderpath'} = 'supplemental&'. &escape(&mt('Supplemental '.$type.' Documents')); + }else{ + $env{'form.folderpath'} = $savefolderpath; } if ($allowed) { my $folderseq= @@ -3188,7 +3187,7 @@ $r->print('');

$lt{'comment'}:
-
@@ -3263,18 +3262,15 @@ my %supnamehash = ( ); my $tid='2'; -my $content='content'; -my $navigation='navigation'; my $varscd = 'Supplemental Course Documents'; -$r->print(&generate_edit_table($tid,$content,$navigation,$varscd,\%supnamehash,\%suporderhash)); +$r->print(&generate_edit_table($tid,$varscd,\%supnamehash,\%suporderhash)); my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type); if ($error) { $r->print('

'.$error.'

'); } $r->print(''); } - } $r->print(''); if ($allowed) { $r->print(' @@ -3314,7 +3310,7 @@ sub generate_admin_options { return (< $help{'Verify_Content'}
- $help{'Check_Resource_Versions'} + $help{'Check_Resource_Versions'}
$dumpbut
$exportbut
@@ -3327,24 +3323,24 @@ ENDOPTIONFORM sub generate_edit_table { - my ($tid,$content,$navigation,$varcd,$namehash_ref,$orderhash_ref) = @_; + my ($tid,$varcd,$namehash_ref,$orderhash_ref) = @_; my %namehash = %{$namehash_ref}; my %orderhash = %{$orderhash_ref}; my $form; $form = '

'.&mt($varcd).'

'; - $form .= '