version 1.34, 2001/09/01 14:13:47
|
version 1.36, 2001/10/05 21:50:25
|
Line 12
|
Line 12
|
# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28, |
# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28, |
# 12/08,12/12, |
# 12/08,12/12, |
# 16/01/01,02/08,03/20,03/23,03/24,03/26,05/09, |
# 16/01/01,02/08,03/20,03/23,03/24,03/26,05/09, |
# 07/05,07/06,08/08,08/09,09/01 Gerd Kortemeyer |
# 07/05,07/06,08/08,08/09,09/01,09/21 Gerd Kortemeyer |
|
|
package Apache::lonparmset; |
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 223 sub assessparms {
|
Line 228 sub assessparms {
|
my %name=&Apache::lonnet::userenvironment($udom,$uname, |
my %name=&Apache::lonnet::userenvironment($udom,$uname, |
('firstname','middlename','lastname','generation','id')); |
('firstname','middlename','lastname','generation','id')); |
$message="\n<p>\nFull Name: ". |
$message="\n<p>\nFull Name: ". |
$name{'firstname'}.' '.$name{'middlename'} |
$name{'firstname'}.' '.$name{'middlename'}.' ' |
.$name{'lastname'}.' '.$name{'generation'}. |
.$name{'lastname'}.' '.$name{'generation'}. |
"<br>\nID: ".$name{'id'}.'<p>'; |
"<br>\nID: ".$name{'id'}.'<p>'; |
} |
} |
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'}) && |