--- loncom/interface/Attic/londropadd.pm	2006/03/21 18:34:23	1.138
+++ 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.138 2006/03/21 18:34:23 albertel Exp $
+# $Id: londropadd.pm,v 1.141 2006/05/01 19:37:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -905,7 +905,8 @@ sub make_dates_default {
         $result .= "Set default start and end dates for course<br />";
         #
         # 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.
             '<br />';
@@ -1181,10 +1182,11 @@ sub print_html_classlist {
         $env{'form.output'} = 'html';
     }
     #
-    $r->print('<br /><table border="2">');
+    $r->print('<br />'.&Apache::loncommon::start_data_table());
     foreach my $role (sort keys %coursepersonnel) {
         next if ($role =~ /^\s*$/);
-	$r->print('<tr><td>'.$role.'</td><td>');
+	$r->print(&Apache::loncommon::start_data_table_row().
+		  '<td>'.$role.'</td><td>');
         foreach my $user (split(',',$coursepersonnel{$role})) {
 	    my ($puname,$pudom)=split(':',$user);
 	    $r->print(' '.&Apache::loncommon::aboutmewrapper(
@@ -1192,9 +1194,9 @@ sub print_html_classlist {
                                                                   $pudom),
                                                              $puname,$pudom));
 	}
-        $r->print('</td></tr>');
+        $r->print('</td>'.&Apache::loncommon::end_data_table_row());
     }
-    $r->print('</table>');
+    $r->print(&Apache::loncommon::end_data_table());
     #
     # Interface output
     $r->print('<input type="hidden" name="action" value="'.
@@ -1304,7 +1306,7 @@ function photowindow(photolink) {
         }
         $r->print("
 <p>
-<table border=2>
+".&Apache::loncommon::start_data_table()."
 <tr>
         ");
         if ($mode eq 'autoenroll') {
@@ -1439,7 +1441,7 @@ END
             } else {
                 $end = &Apache::lonlocal::locallocaltime($end);
             }
-            $r->print("<tr>\n    ");
+	    $r->print(&Apache::loncommon::start_data_table_row());
             if ($mode eq 'autoenroll') {
                 my $lockedtype = $sdata->[$index{'lockedtype'}];
                 $studentcount++;
@@ -1500,7 +1502,7 @@ END
                     $r->print('    <td>&nbsp;</td>  ');
                 }
             }
-            $r->print('  </tr>  ');
+	    $r->print(&Apache::loncommon::end_data_table_row());
         } elsif ($mode eq 'csv') {
             next if (! defined($CSVfile));
             # no need to bother with $linkto
@@ -1540,7 +1542,7 @@ END
         }
     }
     if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll') {
-        $r->print('</table><br>');
+	$r->print(&Apache::loncommon::end_data_table().'<br />');
     } elsif ($mode eq 'excel') {
         $excel_workbook->close();
         $r->print('<p><a href="'.$excel_filename.'">'.
@@ -1924,8 +1926,8 @@ my %lt=&Apache::lonlocal::texthash('usrn
                                    'end'    => "end date",
                                    );
     if ($nosort) {
+	$r->print(&Apache::loncommon::start_data_table());
         $r->print(<<END);
-<table border=2>
 <tr>
     <th>&nbsp;</th>
     <th>$lt{'usrn'}</th>
@@ -1939,8 +1941,8 @@ my %lt=&Apache::lonlocal::texthash('usrn
 END
 
     } else  {
+	$r->print(&Apache::loncommon::start_data_table());
         $r->print(<<END);
-<table border=2>
 <tr><th>&nbsp;</th>
     <th>
        <a href="/adm/dropadd?action=$action&sortby=username">$lt{'usrn'}</a>
@@ -2000,8 +2002,8 @@ END
         my $status   = $sdata->[$index{'status'}];
         next if ($status ne 'Active');
         #
+        $r->print(&Apache::loncommon::start_data_table_row());
         $r->print(<<"END");
-<tr>
     <td><input type="checkbox" name="droplist" value="$student"></td>
     <td>$username</td>
     <td>$domain</td>
@@ -2010,10 +2012,10 @@ END
     <td>$section</td>
     <td>$start</td>
     <td>$end</td>
-</tr>
 END
+        $r->print(&Apache::loncommon::end_data_table_row());
     }
-    $r->print('</table><br>');
+    $r->print(&Apache::loncommon::end_data_table().'<br />');
     %lt=&Apache::lonlocal::texthash(
 	               'dp'   => "Drop Students",
                        'ca'   => "check all",
@@ -2386,16 +2388,15 @@ sub handler {
     #
     # Main switch on form.action and form.state, as appropriate
     if (! exists($env{'form.action'})) {
-        $r->print(&Apache::lonhtmlcommon::breadcrumbs
-                  (undef,'Enrollment Manager'));
+        $r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment Manager'));
         &print_main_menu($r,$enrl_permission,$view_permission,$grp_manage_permission,
                          $grp_view_permission);
     } elsif ($env{'form.action'} eq 'upload' && $enrl_permission) {
         &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/dropadd?action=upload&state=',
               text=>"Upload Classlist"});
-        $r->print(&Apache::lonhtmlcommon::breadcrumbs
-                  (undef,'Upload Classlist','Course_Create_Class_List'));
+        $r->print(&Apache::lonhtmlcommon::breadcrumbs('Upload Classlist',
+						      'Course_Create_Class_List'));
         if (! exists($env{'form.state'})) {
             &print_first_courselist_upload_form($r);            
         } elsif ($env{'form.state'} eq 'got_file') {
@@ -2413,8 +2414,8 @@ sub handler {
         &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/dropadd?action=drop',
               text=>"Drop Students"});
-        $r->print(&Apache::lonhtmlcommon::breadcrumbs
-                  (undef,'Drop Students','Course_Drop_Student'));
+        $r->print(&Apache::lonhtmlcommon::breadcrumbs('Drop Students',
+						      'Course_Drop_Student'));
         if (! exists($env{'form.state'})) {
             &print_drop_menu($r);
         } elsif ($env{'form.state'} eq 'done') {
@@ -2426,8 +2427,8 @@ sub handler {
         &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/dropadd?action=enrollstudent',
               text=>"Enroll Student"});
-        $r->print(&Apache::lonhtmlcommon::breadcrumbs
-                  (undef,'Enroll Student','Course_Add_Student'));
+        $r->print(&Apache::lonhtmlcommon::breadcrumbs('Enroll Student',
+						      'Course_Add_Student'));
         if (! exists($env{'form.state'})) {
             &get_student_username_domain_form($r);
         } elsif ($env{'form.state'} eq 'gotusername') {
@@ -2441,8 +2442,8 @@ sub handler {
         &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/dropadd?action=classlist',
               text=>"View Classlist"});
-        $r->print(&Apache::lonhtmlcommon::breadcrumbs
-                  (undef,'View Classlist','Course_View_Class_List'));
+        $r->print(&Apache::lonhtmlcommon::breadcrumbs('View Classlist',
+						      'Course_View_Class_List'));
         if (! exists($env{'form.state'})) {
             &print_html_classlist($r,undef);
         } elsif ($env{'form.state'} eq 'csv') {
@@ -2456,8 +2457,8 @@ sub handler {
         &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/dropadd?action=modifystudent',
               text=>"Modify Student Data"});
-        $r->print(&Apache::lonhtmlcommon::breadcrumbs
-                  (undef,'Modify Student Data','Course_Modify_Student_Data'));
+        $r->print(&Apache::lonhtmlcommon::breadcrumbs('Modify Student Data',
+						      'Course_Modify_Student_Data'));
         if (! exists($env{'form.state'})) {
             &print_html_classlist($r);
         } elsif ($env{'form.state'} eq 'selected') {
@@ -2472,8 +2473,7 @@ sub handler {
         &Apache::lonnet::logthis("Undetermined state in londropadd.pm.  ".
                                  "form.action = ".$env{'form.action'}.
                                  "Someone should fix this.");
-        $r->print(&Apache::lonhtmlcommon::breadcrumbs
-                  (undef,'Enrollment Manager'));
+        $r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment Manager'));
         &print_main_menu($r,$enrl_permission,$view_permission);
     }
     #