version 1.5, 2001/12/21 20:42:11
|
version 1.6, 2001/12/22 21:46:02
|
Line 33
|
Line 33
|
# |
# |
# 3/1/1 Gerd Kortemeyer) |
# 3/1/1 Gerd Kortemeyer) |
# |
# |
# 3/1,12/6,12/12,12/21 Gerd Kortemeyer |
# 3/1,12/6,12/12,12/21,12/22 Gerd Kortemeyer |
# |
# |
package Apache::lonevaluate; |
package Apache::lonevaluate; |
|
|
Line 57 sub handler {
|
Line 57 sub handler {
|
|
|
my ($rdomain,$rauth)=($feedurl=~/^(\w+)\/(\w+)\//); |
my ($rdomain,$rauth)=($feedurl=~/^(\w+)\/(\w+)\//); |
|
|
my $prefix=$ENV{'user.name.'}.'@'.$ENV{'user.domain'}.'___'. |
my $prefix=$ENV{'user.name'}.'@'.$ENV{'user.domain'}.'___'. |
$feedurl.'___'; |
$feedurl.'___'; |
|
|
my @items=('correct','helpful','depth','clear','technical','comments', |
my @items=('correct','helpful','depth','clear','technical','comments', |