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

version 1.140, 2006/04/26 14:52:22 version 1.141, 2006/05/01 19:37:33
Line 2388  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 2415  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 2428  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 2443  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 2458  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 2474  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.140  
changed lines
  Added in v.1.141

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