--- loncom/homework/grades.pm 2010/04/12 13:11:42 1.612 +++ loncom/homework/grades.pm 2010/04/12 22:19:53 1.613 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.612 2010/04/12 13:11:42 www Exp $ +# $Id: grades.pm,v 1.613 2010/04/12 22:19:53 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -617,7 +617,6 @@ sub jscriptNform { "\n"); $jscript.= '
'."\n". ''."\n". - ''."\n". ''."\n". ''."\n". ''."\n". @@ -920,7 +919,6 @@ LISTJAVASCRIPT ''."\n". '
'."\n". '
'."\n". - ''."\n". ''."\n". ''."\n"; @@ -1956,7 +1954,6 @@ sub submission { my $stu_status = join(':',&Apache::loncommon::get_env_multiple('form.Status')); $request->print(''."\n". ''."\n". - ''."\n". ''."\n". ''."\n". ''."\n". @@ -3289,7 +3286,6 @@ sub viewgrades { ''."\n". ''."\n". &build_section_inputs(). - ''."\n". ''."\n". my ($common_header,$specific_header); @@ -3856,7 +3852,6 @@ to this page if the data selected is ins -
ENDPICK @@ -3934,7 +3929,6 @@ sub upcsvScores_form { - $upfile_select
@@ -4248,8 +4242,7 @@ LISTJAVASCRIPT my $stu_status = join(':',&Apache::loncommon::get_env_multiple('form.Status')); $result.=''."\n". ''."\n". - ''."\n". - ''."
\n"; + ''."
\n"; $result.=' '.&mt('Use CODE').':
'."\n"; @@ -4388,8 +4381,7 @@ sub displayPage { ''."\n". ''."\n". ''."\n". - ''."\n". - ''."\n"; + ''."\n"; if (defined($env{'form.CODE'})) { $studentTable.= @@ -4852,8 +4844,7 @@ the homework problem. sub defaultFormData { my ($symb)=@_; - return ''."\n". - ''; + return ''; } @@ -8417,7 +8408,6 @@ sub show_grading_menu_form { my ($symb)=@_; my $result.='
'."\n". ''."\n". - ''."\n". ''."\n". ''."\n". '
'."\n"; @@ -8822,7 +8812,6 @@ ENDUPFORM
-

@@ -8928,7 +8917,6 @@ sub process_clicker_file { - @@ -9196,11 +9184,13 @@ sub navmap_errormsg { } sub startpage { - my ($r,$symb,$crumbs,$onlyfolderflag) = @_; + my ($r,$symb,$crumbs,$onlyfolderflag,$nodisplayflag) = @_; unshift(@$crumbs,{href=>"/adm/grades?command=gradingmenu&symb=".&HTML::Entities::encode($symb,'<>&"'),text=>"Grading"}); $r->print(&Apache::loncommon::start_page('Grading',undef, {'bread_crumbs' => $crumbs})); - $r->print(&Apache::lonhtmlcommon::resource_info_box($symb,$onlyfolderflag)); + unless ($nodisplayflag) { + $r->print(&Apache::lonhtmlcommon::resource_info_box($symb,$onlyfolderflag)); + } } sub handler { @@ -9266,13 +9256,13 @@ sub handler { &startpage($request,$symb); $request->print(&submit_options($request,$symb)); } elsif ($command eq 'table' && $perm{'vgr'}) { - &startpage($request,$symb); + &startpage($request,$symb,[{href=>"", text=>"Grading table"}],1); $request->print(&submit_options_table($request,$symb)); } elsif ($command eq 'all_for_one' && $perm{'vgr'}) { &startpage($request,$symb); $request->print(&submit_options_sequence($request,$symb)); } elsif ($command eq 'viewgrades' && $perm{'vgr'}) { - &startpage($request,$symb); + &startpage($request,$symb,[{href=>"/adm/grades?symb=".&HTML::Entities::encode($symb,'<>&"')."&command=table", text=>"Grading table"},{href=>'', text=>"Modify grades"}],1); $request->print(&viewgrades($request,$symb)); } elsif ($command eq 'handgrade' && $perm{'mgr'}) { &startpage($request,$symb);