[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.139 and 1.141

version 1.139, 2006/04/22 01:06:48 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 2387  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 2414  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 2427  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 2442  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 2457  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 2473  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.139  
changed lines
  Added in v.1.141

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