version 1.35, 2001/09/21 19:59:49
|
version 1.36, 2001/10/05 21:50:25
|
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 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'}) && |