--- loncom/interface/Attic/londropadd.pm 2006/02/07 16:21:26 1.135
+++ loncom/interface/Attic/londropadd.pm 2006/03/21 18:34:23 1.138
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to drop and add students in courses
#
-# $Id: londropadd.pm,v 1.135 2006/02/07 16:21:26 albertel Exp $
+# $Id: londropadd.pm,v 1.138 2006/03/21 18:34:23 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -43,15 +43,9 @@ use Apache::lonlocal;
###############################################################
###############################################################
sub header {
- my $html=&Apache::lonxml::xmlbegin();
- my $bodytag=&Apache::loncommon::bodytag('Enrollment Manager');
- my $title = &mt('LON-CAPA Enrollment Manager');
+ my $start_page=&Apache::loncommon::start_page('Enrollment Manager');
return(<<ENDHEAD);
-$html
-<head>
-<title>$title</title>
-</head>
-$bodytag
+$start_page
<form method="post" enctype="multipart/form-data"
action="/adm/dropadd" name="studentform">
ENDHEAD
@@ -172,26 +166,26 @@ sub print_main_menu {
permission => &Apache::lonnet::auto_run($cnum,$cdom),
url => '/adm/populate',
},
-# { text => 'Create a new group',
-# help => 'Course_Create_Group',
-# permission => $grp_manage_permission,
-# url => '/adm/coursegroups?refpage=enrl&action=create',
-# },
-# { text => 'Modify an existing group',
-# help => 'Course_Modify_Group',
-# permission => $grp_manage_permission,
-# url => '/adm/coursegroups?refpage=enrl&action=modify',
-# },
-# { text => 'Delete an existing group',
-# help => 'Course_Delete_Group',
-# permission => $grp_manage_permission,
-# url => '/adm/coursegroups?refpage=enrl&action=delete',
-# },
-# { text => 'Enter an existing group',
-# help => 'Course_Display_Group',
-# permission => $grp_view_permission,
-# url => '/adm/coursegroups?refpage=enrl&action=view',
-# },
+ { text => 'Create a new group',
+ help => 'Course_Create_Group',
+ permission => $grp_manage_permission,
+ url => '/adm/coursegroups?refpage=enrl&action=create',
+ },
+ { text => 'Modify an existing group',
+ help => 'Course_Modify_Group',
+ permission => $grp_manage_permission,
+ url => '/adm/coursegroups?refpage=enrl&action=modify',
+ },
+ { text => 'Delete an existing group',
+ help => 'Course_Delete_Group',
+ permission => $grp_manage_permission,
+ url => '/adm/coursegroups?refpage=enrl&action=delete',
+ },
+ { text => 'Enter an existing group',
+ help => 'Course_Display_Group',
+ permission => $grp_view_permission,
+ url => '/adm/coursegroups?refpage=enrl&action=view',
+ },
);
my $menu_html = '';
foreach my $menu_item (@menu) {
@@ -1295,7 +1289,7 @@ END
<input type="hidden" name="sdom" value="" />
END
}
- if ($env{'course.'.$env{'request.course.id'}.'.internal.showphotos'}) {
+ if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
$r->print('
<script type="text/javascript">
function photowindow(photolink) {
@@ -1339,7 +1333,7 @@ function photowindow(photolink) {
<a href="javascript:document.studentform.sortby.value='end';document.studentform.submit();">$lt{'end'}</a>
</th>
END
- if ($env{'course.'.$env{'request.course.id'}.'.internal.showphotos'}) {
+ if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
my %photo_options = &Apache::lonlocal::texthash(
'on' => 'Show',
'off' => 'Hide',
@@ -1494,7 +1488,7 @@ END
<td>$end</td>
END
if ($env{'course.'.$env{'request.course.id'}.
- '.internal.showphotos'}) {
+ '.internal.showphoto'}) {
if ($displayphotos eq 'on') {
my $imgurl =
&Apache::lonnet::retrievestudentphoto($domain,
@@ -1586,7 +1580,7 @@ sub print_modify_student_form {
'<p>'.
&mt('Unable to retrieve environment data for').' '.$sname.
&mt('in domain').' '.$sdom.'</p><p>'.
- &mt('Please contact your LON-CAPA administrator regarding this situation.').'</p></body></html>');
+ &mt('Please contact your LON-CAPA administrator regarding this situation.').'</p>'.&Apache::loncommon::end_page());
return;
}
# determine the students starting and ending times and section
@@ -1675,8 +1669,8 @@ $lt{'disn'}
<p>$current_date_description</p>
<p>$date_table</p>
<input type="submit" value="$lt{'sm'}" />
-</body></html>
END
+ $r->print(&Apache::loncommon::end_page());
return;
}
@@ -1684,7 +1678,7 @@ END
# modify a single students section
#
sub modify_single_student {
- my $r = shift;
+ my ($r) = @_;
#
# Remove non alphanumeric values from the section
$env{'form.section'} =~ s/\W//g;
@@ -1826,8 +1820,8 @@ END
<input type="hidden" name="sortby" value="$sortby" />
<input type="hidden" name="Status" value="$status" />
<a href="javascript:document.studentform.submit();">$Masd</a>
-</body></html>
END
+ $r->print(&Apache::loncommon::end_page());
return;
}
@@ -2056,7 +2050,7 @@ sub print_first_courselist_upload_form {
$str .= &Apache::loncommon::help_open_topic("Course_Convert_To_CSV",
&mt("How do I create a CSV file from a spreadsheet")).
"<br />\n";
- $str .= "</body>\n</html>\n";
+ $str .= &Apache::loncommon::end_page();
$r->print($str);
return;
}
@@ -2112,7 +2106,7 @@ sub upfile_drop_add {
if (! exists($home_servers{$desiredhost})) {
$r->print('<font color="#ff0000">'.&mt('Error').'</font>'.
&mt('Invalid home server specified'));
- $r->print("</body>\n</html>\n");
+ $r->print(&Apache::loncommon::end_page());
return;
}
}
@@ -2484,7 +2478,7 @@ sub handler {
}
#
# Finish up
- $r->print('</form></body></html>');
+ $r->print('</form>'.&Apache::loncommon::end_page());
return OK;
}