version 1.267, 2003/08/04 14:30:34
|
version 1.269, 2003/08/06 17:00:30
|
Line 1393 sub register_insert {
|
Line 1393 sub register_insert {
|
my $line = $data[$i]; |
my $line = $data[$i]; |
if ( $line =~ /^\#/ || $line =~ /^\s*\n/) { next; } |
if ( $line =~ /^\#/ || $line =~ /^\s*\n/) { next; } |
if ( $line =~ /TABLE/ ) { last; } |
if ( $line =~ /TABLE/ ) { last; } |
my ($tag,$descrip,$color,$function,$show) = split(/,/, $line); |
my ($tag,$descrip,$color,$function,$show,$helpfile,$helpdesc) = split(/,/, $line); |
if ($tag) { |
if ($tag) { |
$insertlist{"$tagnum.tag"} = $tag; |
$insertlist{"$tagnum.tag"} = $tag; |
$insertlist{"$tagnum.description"} = $descrip; |
$insertlist{"$tagnum.description"} = $descrip; |
Line 1401 sub register_insert {
|
Line 1401 sub register_insert {
|
$insertlist{"$tagnum.function"} = $function; |
$insertlist{"$tagnum.function"} = $function; |
if (!defined($show)) { $show='yes'; } |
if (!defined($show)) { $show='yes'; } |
$insertlist{"$tagnum.show"}= $show; |
$insertlist{"$tagnum.show"}= $show; |
|
$insertlist{"$tagnum.helpfile"} = $helpfile; |
|
$insertlist{"$tagnum.helpdesc"} = $helpdesc; |
$insertlist{"$tag.num"}=$tagnum; |
$insertlist{"$tag.num"}=$tagnum; |
$tagnum++; |
$tagnum++; |
} |
} |
Line 1435 sub description {
|
Line 1437 sub description {
|
return $insertlist{$tagnum.'.description'}; |
return $insertlist{$tagnum.'.description'}; |
} |
} |
|
|
|
# Returns a list containing the help file, and the description |
|
sub helpinfo { |
|
my ($token)=@_; |
|
my $tagnum; |
|
my $tag=$token->[1]; |
|
foreach my $namespace (reverse @Apache::lonxml::namespace) { |
|
my $testtag=$namespace.'::'.$tag; |
|
$tagnum=$insertlist{"$testtag.num"}; |
|
if (defined($tagnum)) { last; } |
|
} |
|
if (!defined ($tagnum)) { $tagnum=$Apache::lonxml::insertlist{"$tag.num"}; } |
|
return ($insertlist{$tagnum.'.helpfile'}, $insertlist{$tagnum.'.helpdesc'}); |
|
} |
|
|
# ----------------------------------------------------------------- whichuser |
# ----------------------------------------------------------------- whichuser |
# returns a list of $symb, $courseid, $domain, $name that is correct for |
# returns a list of $symb, $courseid, $domain, $name that is correct for |
# calls to lonnet functions for this setup. |
# calls to lonnet functions for this setup. |
Line 1444 sub whichuser {
|
Line 1460 sub whichuser {
|
my ($symb,$courseid,$domain,$name,$publicuser); |
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('vgr',$tmp_courseid); |
if ($allowed) { |
if ($allowed) { |
$symb=$ENV{'form.grade_symb'}; |
$symb=$ENV{'form.grade_symb'}; |
$courseid=$ENV{'form.grade_courseid'}; |
$courseid=$ENV{'form.grade_courseid'}; |