loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.90, 2003/05/04 07:38:32	version 1.92, 2003/05/23 06:18:25
Line 341 sub startpage {	Line 341 sub startpage {
$selscript	$selscript
</head>	</head>
$bodytag	$bodytag

	<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.

<form method="post" action="/adm/parmset" name="envform">	<form method="post" action="/adm/parmset" name="envform">
<h3>Course Environment</h3>	<h3>Course Environment</h3>
<input type="submit" name="crsenv" value="Set Course Environment">	<input type="submit" name="crsenv" value="Set Course Environment">
Line 683 sub assessparms {	Line 687 sub assessparms {
my $url=$ENV{'form.url'};	my $url=$ENV{'form.url'};
$url=~s-^http://($ENV{'SERVER_NAME'}\|$ENV{'HTTP_HOST'})--;	$url=~s-^http://($ENV{'SERVER_NAME'}\|$ENV{'HTTP_HOST'})--;
$pssymb=&Apache::lonnet::symbread($url);	$pssymb=&Apache::lonnet::symbread($url);
@pscat='all';	if (!@pscat) { @pscat=('all'); }
$pschp='';	$pschp='';
$parmlev = 'full';	$parmlev = 'full';
} elsif ($ENV{'form.symb'}) {	} elsif ($ENV{'form.symb'}) {
$pssymb=$ENV{'form.symb'};	$pssymb=$ENV{'form.symb'};
@pscat='all';	if (!@pscat) { @pscat=('all'); }
$pschp='';	$pschp='';
$parmlev = 'full';	$parmlev = 'full';
} else {	} else {