[LON-CAPA-cvs] cvs: loncom(loncapaMITrelate_1) /interface lonwhatsnew.pm

[raeburn]

raeburn		Sat Feb 11 17:58:17 2012 EDT

  Modified files:              (Branch: loncapaMITrelate_1)
    /loncom/interface	lonwhatsnew.pm 
  Log:
  - Customization for MITrelate
    - Move </form> tag after radio buttons used to toggle "Last login" display.
  
  
Index: loncom/interface/lonwhatsnew.pm
diff -u loncom/interface/lonwhatsnew.pm:1.101.2.1.2.1 loncom/interface/lonwhatsnew.pm:1.101.2.1.2.2
--- loncom/interface/lonwhatsnew.pm:1.101.2.1.2.1	Wed Feb  8 17:07:02 2012
+++ loncom/interface/lonwhatsnew.pm	Sat Feb 11 17:58:17 2012
@@ -1,5 +1,5 @@
 #
-# $Id: lonwhatsnew.pm,v 1.101.2.1.2.1 2012/02/08 17:07:02 raeburn Exp $
+# $Id: lonwhatsnew.pm,v 1.101.2.1.2.2 2012/02/11 17:58:17 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -613,7 +613,7 @@
         }
     }
 
-    $r->print('<input type="hidden" name="refpage" value="'.$refpage.'" /></form><table class="LC_double_column"><tr><td class="LC_left_col">');
+    $r->print('<input type="hidden" name="refpage" value="'.$refpage.'" /><table class="LC_double_column"><tr><td class="LC_left_col">');
 
     my $displayed = 0;
     my $totalboxes = 0;
@@ -639,6 +639,7 @@
       </td>
     </tr>
    </table>
+   </form>
 ');
 }
 
@@ -889,7 +890,7 @@
         $crstype,$itemserror,$loggedin,$logincount) = @_;
 
     if ($$checkallowed{$action}) {
-        &start_box($r,$show,$headings,$action,$refpage,$action);
+        &start_box($r,$show,$headings,$action,$refpage);
         if ($$show{$action}) {
             if ($action eq 'handgrading') {    # UNGRADED ITEMS
                 &display_handgrade($r,$tograde,$ungraded,$itemserror);