--- loncom/interface/londocs.pm 2011/08/15 16:31:55 1.457 +++ loncom/interface/londocs.pm 2011/09/09 20:13:17 1.458 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.457 2011/08/15 16:31:55 raeburn Exp $ +# $Id: londocs.pm,v 1.458 2011/09/09 20:13:17 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1613,7 +1613,8 @@ sub handle_edit_cmd { } sub editor { - my ($r,$coursenum,$coursedom,$folder,$allowed,$upload_output,$crstype)=@_; + my ($r,$coursenum,$coursedom,$folder,$allowed,$upload_output,$crstype, + $supplementalflag,$orderhash)=@_; my $container= ($env{'form.pagepath'}) ? 'page' : 'sequence'; @@ -1742,7 +1743,7 @@ sub editor { $r->print(''); } - my $output; + my ($to_show,$output); &Apache::loncommon::start_data_table_count(); #setup a row counter foreach my $res (@LONCAPA::map::order) { @@ -1759,28 +1760,34 @@ sub editor { &Apache::loncommon::end_data_table_count(); if ($shown) { - $r->print(&Apache::loncommon::start_scrollbox('900px','880px','400px','contentscroll') - .&Apache::loncommon::start_data_table(undef,'contentlist')); + $to_show = &Apache::loncommon::start_scrollbox('900px','880px','400px','contentscroll') + .&Apache::loncommon::start_data_table(undef,'contentlist'); if ($allowed) { - $r->print(&Apache::loncommon::start_data_table_header_row() + $to_show .= &Apache::loncommon::start_data_table_header_row() .''.&mt('Move').'' .''.&mt('Actions').'' - .''.&mt('Document').''); + .''.&mt('Document').''; if ($folder !~ /^supplemental/) { - $r->print(''.&mt('Settings').''); + $to_show .= ''.&mt('Settings').''; } - $r->print(&Apache::loncommon::end_data_table_header_row()); + $to_show .= &Apache::loncommon::end_data_table_header_row(); } - $r->print($output + $to_show .= $output.' ' .&Apache::loncommon::end_data_table() - .&Apache::loncommon::end_scrollbox() - ); + .'
' + .&Apache::loncommon::end_scrollbox(); } else { - $r->print('

' + $to_show .= &Apache::loncommon::start_scrollbox('400px','380px','200px','contentscroll') + .'

' .&mt('Currently no documents.') - .'

' - ); + .'
' + .&Apache::loncommon::end_scrollbox(); } + my $tid = 1; + if ($supplementalflag) { + $tid = 2; + } + $r-print(&generate_edit_table($tid,$orderhash,$to_show)); if ($allowed) { &print_paste_buffer($r,$container); } @@ -2211,14 +2218,13 @@ END $form_start $form_end - - +
$form_start $form_end - $form_start $rand_order_text $form_end - $form_start $parameterset $form_end + $form_start $parameterset $form_end
+ $form_start $rand_order_text $form_end ENDPARMS } $line.=&Apache::loncommon::end_data_table_row(); @@ -2760,8 +2766,8 @@ sub startContentScreen { $r->print('
  • '.&mt('Supplemental Documents').'
  • '); $r->print(''); - $r->print('
    ' - .'
    '); + $r->print('
    ' + .'
    '); $r->print('
    '); } @@ -2961,11 +2967,21 @@ sub handler { $iconpath = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL') . "/"); if ($allowed) { + my @tabids; + if ($supplementalflag) { + @tabids = ('002','ee2','ff2'); + } else { + @tabids = ('aa1','bb1','cc1','ff1'); + unless ($env{'form.pagepath'}) { + unshift(@tabids,'001'); + push(@tabids,('dd1','ee1')); + } + } + my $tabidstr = join("','",@tabids); $script .= &editing_js($udom,$uname). - &resize_contentdiv_js(); + &resize_contentdiv_js($tabidstr); $addentries = { - onload => "javascript:resize_contentdiv('contentscroll');", - onresize => "javascript:resize_contentdiv('contentscroll');", + onload => "javascript:resize_contentdiv('contentscroll','1','1');", }; } # -------------------------------------------------------------------- Body tag @@ -3093,22 +3109,23 @@ FIUP CHBO - my $fileuploada = " $help{'Uploading_From_Harddrive'}"; + my $fileuploada = "
    $help{'Uploading_From_Harddrive'}"; my $fileuploadform=(<
    $fileupload
    $lt{'title'}:
    - + $uploadtag
    - + $checkbox FUFORM - $fileuploadform .= &create_form_ul(&Apache::lonhtmlcommon::htmltag('li',$fileuploada,{class => 'LC_menubuttons_inline_text'})).''; + $fileuploadform .= $fileuploada.'
    '; my $simpleeditdefaultform=(< @@ -3124,7 +3141,7 @@ SEDFFORM
    $lt{'copm'}

    - $help{'Load_Map'} @@ -3415,7 +3432,8 @@ unless ($env{'form.pagepath'}) { $hadchanges=0; unless ($supplementalflag) { - my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype); + my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype, + $supplementalflag,\%orderhash); if ($error) { $r->print('

    '.$error.'

    '); } @@ -3424,10 +3442,8 @@ unless ($env{'form.pagepath'}) { } &changewarning($r,''); - $r->print(&generate_edit_table('1',\%orderhash)); } - - } + } # Supplemental documents start here @@ -3528,14 +3544,15 @@ my %suporderhash = ( 'ff' => ['Special Documents',&create_form_ul(&create_list_elements(@specialdocs))] ); if ($supplementalflag) { - my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype); + my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype, + $supplementalflag,\%suporderhash); if ($error) { $r->print('

    '.$error.'

    '); } - $r->print(&generate_edit_table('2',\%suporderhash)); } } elsif ($supplementalflag) { - my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype); + my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype, + $supplementalflag); if ($error) { $r->print('

    '.$error.'

    '); } @@ -3638,7 +3655,7 @@ sub generate_admin_options { sub generate_edit_table { - my ($tid,$orderhash_ref) = @_; + my ($tid,$orderhash_ref,$to_show) = @_; return unless(ref($orderhash_ref) eq 'HASH'); my %orderhash = %{$orderhash_ref}; my $form; @@ -3647,31 +3664,35 @@ sub generate_edit_table { if($env{'form.active'} ne ''){ $activetab = $env{'form.active'}; } - $form = '
    '; - $form .= '