|
version 1.48, 2000/10/25 10:55:46
|
version 1.49, 2000/10/25 20:52:31
|
|
Line 492 sub restore {
|
Line 492 sub restore {
|
| sub coursedescription { |
sub coursedescription { |
| my $courseid=shift; |
my $courseid=shift; |
| $courseid=~s/^\///; |
$courseid=~s/^\///; |
| |
$courseid=~s/\_/\//g; |
| my ($cdomain,$cnum)=split(/\//,$courseid); |
my ($cdomain,$cnum)=split(/\//,$courseid); |
| my $chome=homeserver($cnum,$cdomain); |
my $chome=homeserver($cnum,$cdomain); |
| if ($chome ne 'no_host') { |
if ($chome ne 'no_host') { |
|
Line 1076 sub varval {
|
Line 1077 sub varval {
|
| } elsif ($realm eq 'course') { |
} elsif ($realm eq 'course') { |
| # ---------------------------------------------------------- course.description |
# ---------------------------------------------------------- course.description |
| if ($space eq 'description') { |
if ($space eq 'description') { |
| return &coursedescription($ENV{'request.course.id'}); |
my %reply=&coursedescription($ENV{'request.course.id'}); |
| |
return $reply{'description'}; |
| # ------------------------------------------------------------------- course.id |
# ------------------------------------------------------------------- course.id |
| } elsif ($space eq 'id') { |
} elsif ($space eq 'id') { |
| return $ENV{'request.course.id'}; |
return $ENV{'request.course.id'}; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl