[LON-CAPA-cvs] cvs: loncom /homework grades.pm lonhomework.pm

[albertel]

albertel		Fri Mar 24 12:34:16 2006 EDT

  Modified files:              
    /loncom/homework	grades.pm lonhomework.pm 
  Log:
  - start_page
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.338 loncom/homework/grades.pm:1.339
--- loncom/homework/grades.pm:1.338	Tue Mar 21 08:49:34 2006
+++ loncom/homework/grades.pm	Fri Mar 24 12:34:11 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.338 2006/03/21 13:49:34 banghart Exp $
+# $Id: grades.pm,v 1.339 2006/03/24 17:34:11 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5985,19 +5985,14 @@
 
 sub send_header {
     my ($request)= @_;
-    $request->print(&Apache::lontexconvert::header());
-#  $request->print("
-#<script>
-#remotewindow=open('','homeworkremote');
-#remotewindow.close();
-#</script>"); 
-    $request->print(&Apache::loncommon::bodytag('Grading'));
+    &Apache::lontexconvert::init_tth()
+    $request->print(&Apache::loncommon::start_page('Grading'));
     $request->rflush();
 }
 
 sub send_footer {
     my ($request)= @_;
-    $request->print('</body></html>');
+    $request->print(&Apache::loncommon::end_page());
 }
 
 1;
Index: loncom/homework/lonhomework.pm
diff -u loncom/homework/lonhomework.pm:1.236 loncom/homework/lonhomework.pm:1.237
--- loncom/homework/lonhomework.pm:1.236	Sun Feb 26 15:01:17 2006
+++ loncom/homework/lonhomework.pm	Fri Mar 24 12:34:11 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.236 2006/02/26 20:01:17 albertel Exp $
+# $Id: lonhomework.pm,v 1.237 2006/03/24 17:34:11 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -143,12 +143,6 @@
 #  return ';$external::target='.$target.';';
 }
 
-sub send_header {
-    my ($request)= @_;
-    $request->print(&Apache::lontexconvert::header());
-#  $request->print('<form name='.$env{'form.request.prefix'}.'lonhomework method="POST" action="'.$request->uri.'">');
-}
-
 sub createmenu {
     my ($which,$request)=@_;
     if ($which eq 'grade') {
@@ -159,12 +153,6 @@
     }
 }
 
-sub send_footer {
-    my ($request)= @_;
-#  $request->print('</form>');
-    $request->print(&Apache::lontexconvert::footer());
-}
-
 sub proctor_checked_in {
     my ($slot_name,$slot,$type)=@_;
     my @possible_proctors=split(",",$slot->{'proctor'});
@@ -656,8 +644,7 @@
 
 sub analyze_footer {
     my ($request) = @_;
-    my $result='</body></html>';
-    $request->print($result);
+    $request->print(&Apache::loncommon::end_page());
     $request->rflush();
 }
 
@@ -1033,7 +1020,6 @@
     }
     #my $td=&tv_interval($t0);
     #&Apache::lonxml::debug("Spent $td seconds processing");
-    # &Apache::lonhomework::send_footer($request);
     # always turn off debug messages
     $Apache::lonxml::debug=0;
     return OK;