version 1.35, 2001/09/21 19:59:49
|
version 1.37, 2001/12/06 22:39:45
|
Line 19 package Apache::lonparmset;
|
Line 19 package Apache::lonparmset;
|
use strict; |
use strict; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
|
use Apache::loncommon; |
use GDBM_File; |
use GDBM_File; |
|
|
|
|
Line 186 sub assessparms {
|
Line 187 sub assessparms {
|
$pssymb=&Apache::lonnet::symbread($url); |
$pssymb=&Apache::lonnet::symbread($url); |
$pscat='all'; |
$pscat='all'; |
$pschp=''; |
$pschp=''; |
|
} elsif ($ENV{'form.symb'}) { |
|
$pssymb=$ENV{'form.symb'}; |
|
$pscat='all'; |
|
$pschp=''; |
} else { |
} else { |
$ENV{'form.url'}=''; |
$ENV{'form.url'}=''; |
} |
} |
Line 783 sub crsenv {
|
Line 788 sub crsenv {
|
$values{$_}. |
$values{$_}. |
'"></td><td><input type=checkbox name="'.$_. |
'"></td><td><input type=checkbox name="'.$_. |
'_setparmval"></td></tr>'; |
'_setparmval"></td></tr>'; |
} keys %descriptions; |
} sort keys %descriptions; |
$output.='<tr><td><i>Create New Environment Variable</i><br>'. |
$output.='<tr><td><i>Create New Environment Variable</i><br>'. |
'<input type="text" size=40 name="newp_name"></td><td>'. |
'<input type="text" size=40 name="newp_name"></td><td>'. |
'<input type="text" size=40 name="newp_value"></td><td>'. |
'<input type="text" size=40 name="newp_value"></td><td>'. |
Line 822 sub handler {
|
Line 827 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
} |
} |
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}); |
# ----------------------------------------------------- Needs to be in a course |
# ----------------------------------------------------- Needs to be in a course |
|
|
if (($ENV{'request.course.id'}) && |
if (($ENV{'request.course.id'}) && |