--- loncom/imspackages/imsimportdocs.pm	2005/10/27 18:19:36	1.14
+++ loncom/imspackages/imsimportdocs.pm	2006/03/23 23:12:21	1.15
@@ -156,9 +156,10 @@ sub handler {
 # does this user have privileges to post, etc?
     my $allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'});
     unless ($allowed) {
-        $r->print("<html><head><title>The LearningOnline Network with CAPA</title></head>");
-        $r->print(&Apache::loncommon::bodytag('Import IMS package',undef,'',1));  
-        $r->print('<h3>'.&mt('Modification of Course Contents Disallowed').'</h3>'.&mt('Your current role does not grant you the right to modify course content in this course.').'</body></html>');
+        $r->print(&Apache::loncommon::start_page('Import IMS package',undef,
+						 {'only_body' => 1,}));  
+        $r->print('<h3>'.&mt('Modification of Course Contents Disallowed').'</h3>'.&mt('Your current role does not grant you the right to modify course content in this course.').
+		  &Apache::loncommon::end_page());
         return OK;
     }
 
@@ -173,20 +174,15 @@ sub handler {
         &jscript_three(\$javascript);
     }
 
+    $javascript = 
+	 "<script type=\"text/javascript\">\n".
+	 "//<!--\n$javascript\n// --></script>\n";
+    my $start_page = &Apache::loncommon::start_page('Import IMS package',
+						    $javascript,
+						    {'only_body' => 1,});
 # print screen
-    $r->print(<<ENDHEAD);
-<html>
-<head>
-<title>The LearningOnline Network with CAPA</title>
-<script type="text/javascript">
-<!--
-$javascript
--->
-</script>
-</head>
-ENDHEAD
-# -------------------------------------------------------------------- Body tag
-    $r->print(&Apache::loncommon::bodytag('Import IMS package',undef,'',1));
+    $r->print($start_page);
+
     if ($env{'form.phase'} eq 'one') {
         &display_one($r);       
     } elsif ($env{'form.phase'} eq 'two') {
@@ -194,7 +190,7 @@ ENDHEAD
     } elsif ($env{'form.phase'} eq 'three') {
         &display_three($r,$coursenum,$coursedom,$uname,$udom,\@areas,%cmsmap);
     }   
-    $r->print("</body><html>");
+    $r->print(&Apache::loncommon::end_page());
     return OK;
 } 
 
