--- loncom/interface/londocs.pm 2011/07/04 13:01:53 1.454 +++ loncom/interface/londocs.pm 2011/08/15 16:31:55 1.457 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.454 2011/07/04 13:01:53 raeburn Exp $ +# $Id: londocs.pm,v 1.457 2011/08/15 16:31:55 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -681,7 +681,8 @@ sub build_package { $currdirpath = 'Top'; my $pcslist = $curRes->map_hierarchy(); if ($pcslist ne '') { - foreach my $pc (split(/,/,$pcslist)) { + foreach my $pc (split(/,/,$pcslist),$curRes->map_pc()) { + next if ($pc <= 1); my $res = $navmap->getByMapPc($pc); if (ref($res)) { my $encloser = $res->title(); @@ -896,7 +897,8 @@ sub replicate_content { grade_courseid => $cdom.'_'.$cnum, grade_domain => $env{'user.domain'}, grade_username => $env{'user.name'}, - grade_imsexport => 1, + grade_imsexport => 1, + instructor_comments => 'hide', ); my $feedurl=&Apache::lonnet::clutter($url); my ($userview,$response)=&Apache::lonnet::ssi_body($feedurl,%form); @@ -917,11 +919,11 @@ sub replicate_content { $foilcounter ++; } elsif ($line =~ m{(|\Q\E)\Q
Correct:
}) { + $mc_answer = $alphabet[$foilcounter-1]; + } elsif ($line !~ m{\Q\E(|\Q\E)\Q
\E}) { $line =~ s/^(\s+|\s+)$//g; $line =~ s{^\Q\E([^<]+)\Q\E$}{1}; - push(@tosave,$line); + $tosave[$foilcounter] .= $line.' '; } $content = join("\t",@tosave); if ($mc_answer) { @@ -929,10 +931,15 @@ sub replicate_content { } } if (@tosave) { - $content = $currdirpath."\t".$title."\t".join("\t",@tosave); + my $qtype; if ($mc_answer) { - $content .= "\t".$mc_answer."\n"; + $qtype = 'MC'; } + $content = $currdirpath."\t".$title."\t$qtype\t".join("\t",@tosave); + if ($mc_answer) { + $content .= "\t".$mc_answer; + } + $content .= "\n"; } } else { $content = ''.$content.''; @@ -1752,8 +1759,8 @@ sub editor { &Apache::loncommon::end_data_table_count(); if ($shown) { - $r->print(&Apache::loncommon::start_scrollbox('900px','880px','400px') - .&Apache::loncommon::start_data_table()); + $r->print(&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() .''.&mt('Move').'' @@ -1805,7 +1812,7 @@ sub process_file_upload { $LONCAPA::map::resources[1]=''; } if ($fatal) { - $$upload_output = '

'.&mt('The uploaded file has not been stored as an error occurred reading the contents of the current folder.').'

'; + $$upload_output = '
'.&mt('The uploaded file has not been stored as an error occurred reading the contents of the current folder.').'
'; return; } my $destination = 'docs/'; @@ -1831,7 +1838,7 @@ sub process_file_upload { } else { my ($filename) = ($env{'form.uploaddoc.filename'} =~ m{([^/]+)$}); - $$upload_output = '

'.&mt('Unable to save file [_1].',''.$filename.'').'

'; + $$upload_output = '
'.&mt('Unable to save file [_1].',''.$filename.'').'
'; return; } my $ext='false'; @@ -1850,7 +1857,7 @@ sub process_file_upload { ($errtext,$fatal)=&storemap($coursenum,$coursedom, $folder.'.'.$container); if ($fatal) { - $$upload_output = '

'.$errtext.'

'; + $$upload_output = '
'.$errtext.'
'; return; } else { if ($parseaction eq 'parse' && $mimetype eq 'text/html') { @@ -1877,6 +1884,7 @@ sub process_file_upload { } else { $$upload_output .= &mt('No embedded items identified').'
'; } + $$upload_output = '
'.$$upload_output.'
'; } } } @@ -2745,14 +2753,14 @@ sub startContentScreen { if ($allowed) { $r->print('
  •       '.&mt('Content Editor').'      
    • '); + ' id="tabbededitor">      '.&mt('Content Editor').'      '); } $r->print('     '.&mt('Content Search').'     '); $r->print('      '.&mt('Content Index').'      '); $r->print('
  • '.&mt('Supplemental Documents').'
    • '); $r->print(''); - $r->print('
    ' + $r->print('
    ' .'
    '); $r->print('
    '); } @@ -2852,6 +2860,7 @@ sub handler { my $script=''; my $showdoc=0; + my $addentries = {}; my $containertag; my $uploadtag; @@ -2952,7 +2961,12 @@ sub handler { $iconpath = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL') . "/"); if ($allowed) { - $script .= &editing_js($udom,$uname); + $script .= &editing_js($udom,$uname). + &resize_contentdiv_js(); + $addentries = { + onload => "javascript:resize_contentdiv('contentscroll');", + onresize => "javascript:resize_contentdiv('contentscroll');", + }; } # -------------------------------------------------------------------- Body tag $script = '