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

albertel lon-capa-cvs@mail.lon-capa.org
Wed, 09 Aug 2006 20:37:53 -0000


albertel		Wed Aug  9 16:37:53 2006 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - change to use own start_page rather than common one (as it has unneded bits in it)
  - generate correct <form> start
  - elimintte extraneous </form>
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.326 loncom/interface/lonparmset.pm:1.327
--- loncom/interface/lonparmset.pm:1.326	Mon Aug  7 12:23:04 2006
+++ loncom/interface/lonparmset.pm	Wed Aug  9 16:37:52 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.326 2006/08/07 16:23:04 www Exp $
+# $Id: lonparmset.pm,v 1.327 2006/08/09 20:37:52 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3384,17 +3384,17 @@
 
 sub parm_change_log {
     my ($r)=@_;
-    &startpage($r);
+    $r->print(&Apache::loncommon::start_page('Parameter Change Log'));
+    $r->print(&Apache::lonhtmlcommon::breadcrumbs('Parameter Change Log'));
+
     my %parmlog=&Apache::lonnet::dump('nohist_parameterlog',
 				      $env{'course.'.$env{'request.course.id'}.'.domain'},
 				      $env{'course.'.$env{'request.course.id'}.'.num'});
 
     if ((keys(%parmlog))[0]=~/^error\:/) { undef(%parmlog); }
 
-    $r->print('<form action="/adm/parmset?action=settable"
-                     method="post" name"parameterlog">
-               <input type="hidden" name="action"
-                      value="parameterchangelog" />');
+    $r->print('<form action="/adm/parmset?action=parameterchangelog"
+                     method="post" name="parameterlog">');
     
     my %saveable_parameters = ('show' => 'scalar',);
     &Apache::loncommon::store_course_settings('parameter_log',
@@ -3410,7 +3410,7 @@
     $r->print('<nobr>'.&mt('[_1] Records',$countselect).'</nobr>'.
               '<label>'.&Apache::lonhtmlcommon::checkbox('includetypes',$env{'form.includetypes'},'1').
 	      ' '.&mt('Include parameter types').'</label>'.
-	      '<input type="submit" value="'.&mt('Display').'" />');
+	      '<input type="submit" value="'.&mt('Display').'" /></form>');
 
     my $courseopt=&Apache::lonnet::get_courseresdata($env{'course.'.$env{'request.course.id'}.'.num'},
 						     $env{'course.'.$env{'request.course.id'}.'.domain'});
@@ -3505,7 +3505,6 @@
 	      || $shown<=$env{'form.show'})) { last; }
     }
     $r->print(&Apache::loncommon::end_data_table());
-    $r->print('</form>');
     $r->print(&Apache::loncommon::end_page());
 }