version 1.117, 2001/08/17 19:50:28
|
version 1.118, 2001/08/18 15:49:28
|
Line 13
|
Line 13
|
# 6/12,6/13 H. K. Ng |
# 6/12,6/13 H. K. Ng |
# 6/16 Gerd Kortemeyer |
# 6/16 Gerd Kortemeyer |
# 7/27 H. K. Ng |
# 7/27 H. K. Ng |
# 8/7,8/9,8/10,8/11,8/15,8/16,8/17 Gerd Kortemeyer |
# 8/7,8/9,8/10,8/11,8/15,8/16,8/17,8/18 Gerd Kortemeyer |
|
|
package Apache::lonxml; |
package Apache::lonxml; |
use vars |
use vars |
Line 153 sub xmlend {
|
Line 153 sub xmlend {
|
} |
} |
|
|
sub maketoken { |
sub maketoken { |
my ($target,$symb,$tuname,$tudom,$tcrsid)=@_; |
my ($symb,$tuname,$tudom,$tcrsid)=@_; |
unless ($symb) { |
unless ($symb) { |
$symb=&Apache::lonnet::symbread(); |
$symb=&Apache::lonnet::symbread(); |
} |
} |
Line 163 sub maketoken {
|
Line 163 sub maketoken {
|
$tcrsid=$ENV{'request.course.id'}; |
$tcrsid=$ENV{'request.course.id'}; |
} |
} |
|
|
my $token=&Apache::lonnet::checkout($symb,$tuname,$tudom,$tcrsid); |
return &Apache::lonnet::checkout($symb,$tuname,$tudom,$tcrsid); |
|
} |
|
|
|
sub printtokenheader { |
|
my ($target,$token,$symb,$tuname,$tudom,$tcrsid)=@_; |
unless ($token) { return ''; } |
unless ($token) { return ''; } |
|
|
|
unless ($symb) { |
|
$symb=&Apache::lonnet::symbread(); |
|
} |
|
unless ($tuname) { |
|
$tuname=$ENV{'user.name'}; |
|
$tudom=$ENV{'user.domain'}; |
|
$tcrsid=$ENV{'request.course.id'}; |
|
} |
|
|
my %reply=&Apache::lonnet::get('environment', |
my %reply=&Apache::lonnet::get('environment', |
['firstname','middlename','lastname','generation'], |
['firstname','middlename','lastname','generation'], |
$tudom,$tuname); |
$tudom,$tuname); |