[LON-CAPA-cvs] cvs: loncom /interface lonparmset.pm

banghart lon-capa-cvs@mail.lon-capa.org
Fri, 26 Aug 2005 19:55:21 -0000


banghart		Fri Aug 26 15:55:21 2005 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  	Finish the page in setinstmeta. 
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.240 loncom/interface/lonparmset.pm:1.241
--- loncom/interface/lonparmset.pm:1.240	Fri Aug 26 14:57:42 2005
+++ loncom/interface/lonparmset.pm	Fri Aug 26 15:55:19 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.240 2005/08/26 18:57:42 banghart Exp $
+# $Id: lonparmset.pm,v 1.241 2005/08/26 19:55:19 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2727,18 +2727,19 @@
 ### Set instructor defined metadata
 sub setinstmeta {
     my ($r)=@_;
-     my $setoutput='';
+    my $setoutput='';
     $r->print(&Apache::lonxml::xmlbegin());
     $r->print('<head>
             <title>LON-CAPA Set Instructor Metadata</title>
             </head>');
-            
     $r->print(&Apache::loncommon::bodytag('Set Instructor Metadata'));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs(undef,
 						    'Set Instructor Metadata'));
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
-   $r->print('Set instructor metadata here');
+    $r->print('Set instructor metadata here');
+    $r->print('</body>
+                </html>');
     return 'ok';
 }
 ##################################################