|
version 1.45, 2002/08/08 19:27:35
|
version 1.46, 2002/08/21 17:18:08
|
|
Line 59 use Apache::Constants qw(:common :http R
|
Line 59 use Apache::Constants qw(:common :http R
|
| # ================================================================ Print header |
# ================================================================ Print header |
| |
|
| sub header { |
sub header { |
| |
my $bodytag=&Apache::loncommon::bodytag('Enrollment Manager'); |
| return(<<ENDHEAD); |
return(<<ENDHEAD); |
| <html> |
<html> |
| <head> |
<head> |
| <title>LON-CAPA Enrollment Manager</title> |
<title>LON-CAPA Enrollment Manager</title> |
| </head> |
</head> |
| <body bgcolor="#FFFFFF"> |
$bodytag |
| <img align=right src=/adm/lonIcons/lonlogos.gif> |
|
| <h1>$ENV{'course.'.$ENV{'request.course.id'}.'.description'}</h1> |
|
| <h2>Enrollment Manager</h2> |
|
| <form method="post" enctype="multipart/form-data" |
<form method="post" enctype="multipart/form-data" |
| action="/adm/dropadd" name="studentform"> |
action="/adm/dropadd" name="studentform"> |
| ENDHEAD |
ENDHEAD |
![[BACK]](/icons/back.gif){kind=icon}
Return to londropadd.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface