[BACK]Return to londropadd.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/Attic/londropadd.pm between versions 1.138 and 1.141

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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>