[LON-CAPA-cvs] cvs: loncom /interface lonparmset.pm
www
lon-capa-cvs@mail.lon-capa.org
Wed, 03 Sep 2003 15:44:57 -0000
www Wed Sep 3 11:44:57 2003 EDT
Modified files:
/loncom/interface lonparmset.pm
Log:
Just saving my work - quicker way to modify a whole bunch of parameters at a
time.
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.119 loncom/interface/lonparmset.pm:1.120
--- loncom/interface/lonparmset.pm:1.119 Wed Aug 6 14:08:02 2003
+++ loncom/interface/lonparmset.pm Wed Sep 3 11:44:57 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.119 2003/08/06 18:08:02 matthew Exp $
+# $Id: lonparmset.pm,v 1.120 2003/09/03 15:44:57 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -287,7 +287,7 @@
sub startpage {
my ($r,$id,$udom,$csec,$uname,$have_assesments)=@_;
- my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','',
+ my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',
'onUnload="pclose()"');
my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
&Apache::loncommon::selectstudent_link('parmform','uname','udom');
@@ -343,16 +343,22 @@
$bodytag
<form method="post" action="/adm/parmset" name="envform">
-<h3>Course Environment</h3>
-<input type="submit" name="crsenv" value="Set Course Environment">
+<h4>Course Environment Parameters</h4>
+<input type="submit" name="crsenv" value="Set Course Environment Parameters" />
+</form>
+<hr />
+<form method="post" action="/adm/helper/parameter.helper" name="helpform">
+<h4>Course Assessment Parameter - Helper Mode</h4>
+<input type="submit" value="Set/Modify Course Assessment Parameter" />
+</form>
+<hr />
+<form method="post" action="/adm/parmset" name="overview">
+<h4>Course Assessment Parameters - Overview Mode</h4>
+<input type="submit" name="overview" value="Modify Course Assessment Parameters" />
</form>
<hr />
<form method="post" action="/adm/parmset" name="parmform">
-<h3>Course Assessments</h3>
-
-<a href="/adm/helper/parameter.helper">Use Assignment Parameter Helper</a>, a
-simpler interface to set open, due, or answer open dates for problems or
-sequences.<br /> <br />
+<h4>Course Assessments Parameters - Table Mode</h4>
ENDHEAD
if (!$have_assesments) {
@@ -1040,7 +1046,7 @@
if (($prevvisit) || ($pschp) || ($pssymb)) {
$submitmessage = "Update Course Assessment Parameter Display";
} else {
- $submitmessage = "Set Course Assessment Parameters";
+ $submitmessage = "Set/Modify Course Assessment Parameters";
}
$r->print('<input type="submit" name="dis" value="'.$submitmessage.'">');
@@ -1658,7 +1664,28 @@
</html>
ENDENV
}
+##################################################
+sub overview {
+ my $r=shift;
+ my $bodytag=&Apache::loncommon::bodytag(
+ 'Set/Modify Course Assessment Parameters');
+ my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
+ my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
+ $r->print(<<ENDOVER);
+<html>
+<head>
+<title>LON-CAPA Course Environment</title>
+</head>
+$bodytag
+<form method="post" action="/adm/parmset" name="overview">
+Not yet implemented.
+<input type="hidden" name="overview" value="1" />
+</form>
+</body>
+</html>
+ENDOVER
+}
##################################################
##################################################
@@ -1697,6 +1724,7 @@
# --------------------------------------------------------- Bring up assessment
&assessparms($r);
# ---------------------------------------------- This is for course environment
+ } elsif ($ENV{'form.overview'}) {
} else {
&crsenv($r);
}