version 1.243, 2003/03/30 21:58:17
|
version 1.245, 2003/04/03 22:25:49
|
Line 401 sub xmlparse {
|
Line 401 sub xmlparse {
|
&Apache::inputtags::initialize_inputtags(); |
&Apache::inputtags::initialize_inputtags(); |
&Apache::outputtags::initialize_outputtags(); |
&Apache::outputtags::initialize_outputtags(); |
&Apache::edit::initialize_edit(); |
&Apache::edit::initialize_edit(); |
|
|
# |
# |
# do we have a course style file? |
# do we have a course style file? |
# |
# |
Line 526 sub inner_xmlparse {
|
Line 527 sub inner_xmlparse {
|
while ($token->[1] ne $$stack['-1'] && ($#$stack > -1)) { |
while ($token->[1] ne $$stack['-1'] && ($#$stack > -1)) { |
my $lasttag=$$stack[-1]; |
my $lasttag=$$stack[-1]; |
if ($token->[1] =~ /^$lasttag$/i) { |
if ($token->[1] =~ /^$lasttag$/i) { |
&Apache::lonxml::warning('Using tag </'.$token->[1].'> as end tag to <'.$$stack[-1].'>'); |
&Apache::lonxml::warning('Using tag </'.$token->[1].'> on line '.$token->[3].' as end tag to <'.$$stack[-1].'>'); |
last; |
last; |
} else { |
} else { |
&Apache::lonxml::warning('Found tag </'.$token->[1].'> when looking for </'.$$stack[-1].'> in file'); |
&Apache::lonxml::warning('Found tag </'.$token->[1].'> on line '.$token->[3].' when looking for </'.$$stack[-1].'> in file'); |
&end_tag($stack,$parstack,$token); |
&end_tag($stack,$parstack,$token); |
} |
} |
} |
} |
Line 1390 sub description {
|
Line 1391 sub description {
|
# calls to lonnet functions for this setup. |
# calls to lonnet functions for this setup. |
# - looks for form.grade_ parameters |
# - looks for form.grade_ parameters |
sub whichuser { |
sub whichuser { |
my ($symb,$courseid,$domain,$name); |
my ($symb,$courseid,$domain,$name,$publicuser); |
if (defined($ENV{'form.grade_symb'})) { |
if (defined($ENV{'form.grade_symb'})) { |
my $tmp_courseid=$ENV{'form.grade_courseid'}; |
my $tmp_courseid=$ENV{'form.grade_courseid'}; |
my $allowed=&Apache::lonnet::allowed('mgr',$tmp_courseid); |
my $allowed=&Apache::lonnet::allowed('mgr',$tmp_courseid); |
Line 1401 sub whichuser {
|
Line 1402 sub whichuser {
|
$name=$ENV{'form.grade_username'}; |
$name=$ENV{'form.grade_username'}; |
} |
} |
} else { |
} else { |
$symb=&Apache::lonnet::symbread(); |
$symb=&Apache::lonnet::symbread(); |
$courseid=$ENV{'request.course.id'}; |
$courseid=$ENV{'request.course.id'}; |
$domain=$ENV{'user.domain'}; |
$domain=$ENV{'user.domain'}; |
$name=$ENV{'user.name'}; |
$name=$ENV{'user.name'}; |
|
if ($name eq 'public' && $domain eq 'public') { |
|
if (!defined($ENV{'form.username'})) { |
|
$ENV{'form.username'}.=time.rand(10000000); |
|
} |
|
$name.=$ENV{'form.username'}; |
|
} |
} |
} |
return ($symb,$courseid,$domain,$name); |
return ($symb,$courseid,$domain,$name,$publicuser); |
} |
} |
|
|
1; |
1; |