version 1.13, 2003/02/28 16:16:59
|
version 1.14, 2003/03/03 13:03:58
|
Line 50 ENDDOCUMENT
|
Line 50 ENDDOCUMENT
|
my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri); |
my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri); |
# Is this even a user? |
# Is this even a user? |
if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') { |
if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') { |
$r->print('<body>No user information available</body>'); |
$r->print('</head><body>No user information available</body></html>'); |
return OK; |
return OK; |
} |
} |
# --------------------------------------------------------- The syllabus fields |
# --------------------------------------------------------- The syllabus fields |
Line 76 ENDDOCUMENT
|
Line 76 ENDDOCUMENT
|
# --------------------------------------- There is such a user, get environment |
# --------------------------------------- There is such a user, get environment |
my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum); |
my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum); |
$r->print('</head>'.&Apache::loncommon::bodytag |
$r->print('</head>'.&Apache::loncommon::bodytag |
("Personal Information",$forcestudent,$addentries,'',$cdom)); |
("Personal Information",$forcestudent,$addentries,'',$cdom, |
|
$ENV{'form.register'})); |
$r->print('<h1>'.&Apache::loncommon::plainname($cnum,$cdom).'</h1>'); |
$r->print('<h1>'.&Apache::loncommon::plainname($cnum,$cdom).'</h1>'); |
if ($courseenv{'nickname'}) { |
if ($courseenv{'nickname'}) { |
$r->print( |
$r->print( |