version 1.142, 2001/12/21 22:44:06
|
version 1.145, 2002/01/03 16:18:00
|
Line 51
|
Line 51
|
# 8/7,8/9,8/10,8/11,8/15,8/16,8/17,8/18,8/20,8/23,8/24 Gerd Kortemeyer |
# 8/7,8/9,8/10,8/11,8/15,8/16,8/17,8/18,8/20,8/23,8/24 Gerd Kortemeyer |
# Guy Albertelli |
# Guy Albertelli |
# 9/26 Gerd Kortemeyer |
# 9/26 Gerd Kortemeyer |
|
# Dec Guy Albertelli |
|
# YEAR=2002 |
|
# 1/1 Gerd Kortemeyer |
|
# 1/2 Matthew Hall |
|
# 1/3 Gerd Kortemeyer |
|
# |
|
|
package Apache::lonxml; |
package Apache::lonxml; |
use vars |
use vars |
Line 285 sub printtokenheader {
|
Line 290 sub printtokenheader {
|
$reply{'generation'}; |
$reply{'generation'}; |
|
|
if ($target eq 'web') { |
if ($target eq 'web') { |
|
my %idhash=&Apache::lonnet::idrget($tudom,($tuname)); |
return |
return |
'<img align="right" src="/cgi-bin/barcode.gif?encode='.$token.'" />'. |
'<img align="right" src="/cgi-bin/barcode.gif?encode='.$token.'" />'. |
'Checked out for '.$plainname. |
'Checked out for '.$plainname. |
'<br />User: '.$tuname.' at '.$tudom. |
'<br />User: '.$tuname.' at '.$tudom. |
|
'<br />ID: '.$idhash{$tuname}. |
'<br />CourseID: '.$tcrsid. |
'<br />CourseID: '.$tcrsid. |
|
'<br />Course: '.$ENV{'course.'.$tcrsid.'.description'}. |
'<br />DocID: '.$token. |
'<br />DocID: '.$token. |
'<br />Time: '.localtime().'<hr />'; |
'<br />Time: '.localtime().'<hr />'; |
} else { |
} else { |
Line 1122 sub error {
|
Line 1130 sub error {
|
#notify course |
#notify course |
if ( $ENV{'request.course.id'} ) { |
if ( $ENV{'request.course.id'} ) { |
my $users=$ENV{'course.'.$ENV{'request.course.id'}.'.comment.email'}; |
my $users=$ENV{'course.'.$ENV{'request.course.id'}.'.comment.email'}; |
|
my $declutter=&Apache::lonnet::declutter($ENV{'request.filename'}); |
foreach my $user (split /\,/, $users) { |
foreach my $user (split /\,/, $users) { |
($user,my $domain) = split /:/, $user; |
($user,my $domain) = split /:/, $user; |
&Apache::lonmsg::user_normal_msg($user,$domain,"Error in $ENV{'request.filename'}",$_[0]); |
&Apache::lonmsg::user_normal_msg($user,$domain, |
|
"Error [$declutter]",$_[0]); |
} |
} |
} |
} |
|
|
Line 1193 sub register_insert {
|
Line 1203 sub register_insert {
|
my $line = $data[$i]; |
my $line = $data[$i]; |
my ($mnemonic,@which) = split(/ +/,$line); |
my ($mnemonic,@which) = split(/ +/,$line); |
my $tag = $insertlist{"$tagnum.tag"}; |
my $tag = $insertlist{"$tagnum.tag"}; |
for (my $j=0;$j <$#which;$j++) { |
for (my $j=0;$j <=$#which;$j++) { |
if ( $which[$j] eq 'Y' ) { |
if ( $which[$j] eq 'Y' ) { |
if ($insertlist{"$j.show"} ne 'no') { |
if ($insertlist{"$j.show"} ne 'no') { |
push(@{ $insertlist{"$tag.which"} },$j); |
push(@{ $insertlist{"$tag.which"} },$j); |