--- loncom/interface/Attic/londropadd.pm 2005/06/03 16:27:26 1.130
+++ loncom/interface/Attic/londropadd.pm 2006/05/01 19:37:33 1.141
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to drop and add students in courses
#
-# $Id: londropadd.pm,v 1.130 2005/06/03 16:27:26 www Exp $
+# $Id: londropadd.pm,v 1.141 2006/05/01 19:37:33 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(<
\n".''; + $Str .= "
\n".'
\n"; + "\n
\n";
$Str .= ''."
\n";
$Str .= &mt('Note: for large courses, this operation may be time '.
@@ -853,16 +868,16 @@ sub date_setting_table {
my ($starttime,$endtime,$mode) = @_;
my ($startform,$endform)=&setup_date_selectors($starttime,$endtime,$mode);
my $dateDefault = '
";
#
# Refresh the course environment
- &Apache::lonnet::coursedescription($env{'request.course.id'});
+ &Apache::lonnet::coursedescription($env{'request.course.id'},
+ {'freshen_cache' => 1});
} else {
$result .= &mt('Unable to set default dates for course').":".$put_result.
'
';
@@ -1117,8 +1133,10 @@ $date_table
$lt{'idsn'}:
+
@@ -1164,10 +1182,11 @@ sub print_html_classlist { $env{'form.output'} = 'html'; } # - $r->print('
'.$role.' | '); + $r->print(&Apache::loncommon::start_data_table_row(). + ' | '.$role.' | '); foreach my $user (split(',',$coursepersonnel{$role})) { my ($puname,$pudom)=split(':',$user); $r->print(' '.&Apache::loncommon::aboutmewrapper( @@ -1175,9 +1194,9 @@ sub print_html_classlist { $pudom), $puname,$pudom)); } - $r->print(' |
-
$lt{'end'} | -'."\n".' '. + ''. + $photo_options{$photochg}.' '.$lt{'photo'}."\n". + ' | '."\n"); + } + $r->print(" \n"); } elsif ($mode eq 'csv') { # # Open a file @@ -1387,22 +1441,22 @@ END } else { $end = &Apache::lonlocal::locallocaltime($end); } - $r->print("
---|