[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.120 and 1.121

version 1.120, 2004/10/26 15:04:20 version 1.121, 2004/11/12 16:34:15
Line 136  sub domain_form { Line 136  sub domain_form {
 ###############################################################  ###############################################################
 #  Menu Phase One  #  Menu Phase One
 sub print_main_menu {  sub print_main_menu {
     my $r=shift;      my ($r,$enrl_permission,$view_permission)=@_;
     my %Text = &Apache::lonlocal::texthash      #
         ('upload'    => 'Upload a class list',  
          'enrollone' => 'Enroll a single student',  
          'modify'    => 'Modify student data',  
          'view'      => 'View Class List',  
          'drop'      => 'Drop Students',  
          'populate'  => 'Automated Enrollment Manager');  
     my %help=();  
     foreach ('Course_Drop_Student','Course_Add_Student',  
      'Course_Modify_Student_Data','Course_View_Class_List',  
      'Course_Create_Class_List') {  
  $help{$_}=&Apache::loncommon::help_open_topic($_);  
     }  
   
     $r->print(<<END);  
 <p>  
 <font size="+1">  
 <a href="/adm/dropadd?action=upload">$Text{'upload'}</a>  
 </font>$help{'Course_Create_Class_List'}  
 </p><p>  
 <font size="+1">  
     <a href="/adm/dropadd?action=enrollstudent">$Text{'enrollone'}</a>  
     </font>$help{'Course_Add_Student'}  
 </p><p>  
 <font size="+1">  
     <a href="/adm/dropadd?action=modifystudent">$Text{'modify'}</a>  
     </font>$help{'Course_Modify_Student_Data'}  
 </p><p>  
 <font size="+1">  
     <a href="/adm/dropadd?action=classlist">$Text{'view'}</a>  
     </font>$help{'Course_View_Class_List'}  
 </p><p>  
 <font size="+1">  
     <a href="/adm/dropadd?action=drop">$Text{'drop'}</a>  
     </font>$help{'Course_Drop_Student'}  
 </p><p>  
 END  
     my ($cdom,$cnum) = split/_/,$ENV{'request.course.id'};      my ($cdom,$cnum) = split/_/,$ENV{'request.course.id'};
     if (&Apache::lonnet::auto_run($cnum,$cdom) ) {      my @menu = 
         $r->print(<<END);          ( 
 <font size="+1">            { text => 'Uploade a class list', 
     <a href="/adm/populate">$Text{'populate'}</a>              help => 'Course_Create_Class_List',
 </font>              action => 'upload',
 END              permission => $enrl_permission,
               },
             { text => 'Enroll a single student', 
               help => 'Course_Add_Student',
               action => 'enrollstudent',
               permission => $enrl_permission,
               },
             { text => 'Modify student data', 
               help => 'Course_Modify_Student_Data',
               action => 'modifystudent',
               permission => $enrl_permission,
               },
             { text => 'View Class List', 
               help => 'Course_View_Class_List',
               action => 'classlist',
               permission => $view_permission,
               },
             { text => 'Drop Students', 
               help => 'Course_Drop_Student',
               action => 'drop',
               permission => $enrl_permission,
               },
             { text => 'Automated Enrollment Manager', 
               permission => &Apache::lonnet::auto_run($cnum,$cdom),
               url  => '/adm/populate',
               },
             );
       my $menu_html = '';
       foreach my $menu_item (@menu) {
           next if (! $menu_item->{'permission'});
           $menu_html.='<p>';
           $menu_html.='<font size="+1">';
           if (exists($menu_item->{'url'})) {
               $menu_html.=qq{<a href="$menu_item->{'url'}">};
           } else {
               $menu_html.=
                   qq{<a href="/adm/dropadd?action=$menu_item->{'action'}">};
           }
           $menu_html.= &mt($menu_item->{'text'}).'</a></font>';
           if (exists($menu_item->{'help'})) {
               $menu_html.=
                   &Apache::loncommon::help_open_topic($menu_item->{'help'});
           }
           $menu_html.='</p>'.$/;
     }      }
       $r->print($menu_html);
       return;
 }  }
   
 ###############################################################  ###############################################################
Line 2268  sub handler { Line 2277  sub handler {
           text=>"Enrollment Manager",            text=>"Enrollment Manager",
           faq=>9,bug=>'Instructor Interface',});            faq=>9,bug=>'Instructor Interface',});
     #  Needs to be in a course      #  Needs to be in a course
     if (! (($ENV{'request.course.fn'}) &&      if (! ($ENV{'request.course.fn'})) {
           (&Apache::lonnet::allowed('cst',$ENV{'request.course.id'})))) {          # Not in a course
         # Not in a course, or not allowed to modify parms  
         $ENV{'user.error.msg'}=          $ENV{'user.error.msg'}=
             "/adm/dropadd:cst:0:0:Cannot drop or add students";              "/adm/dropadd:cst:0:0:Cannot drop or add students";
         return HTTP_NOT_ACCEPTABLE;           return HTTP_NOT_ACCEPTABLE; 
     }      }
     #      #
       my $view_permission = 
           &Apache::lonnet::allowed('vcl',$ENV{'request.course.id'});
       my $enrl_permission = 
           &Apache::lonnet::allowed('cst',$ENV{'request.course.id'});
       if (! $view_permission && ! $enrl_permission) {
           $ENV{'user.error.msg'}=
               "/adm/dropadd:cst:0:0:Cannot drop or add students";
           return HTTP_NOT_ACCEPTABLE;        
       }
       #
     # Only output the header information if they did not request csv format      # Only output the header information if they did not request csv format
     #      #
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
Line 2289  sub handler { Line 2307  sub handler {
     if (! exists($ENV{'form.action'})) {      if (! exists($ENV{'form.action'})) {
         $r->print(&Apache::lonhtmlcommon::breadcrumbs          $r->print(&Apache::lonhtmlcommon::breadcrumbs
                   (undef,'Enrollment Manager'));                    (undef,'Enrollment Manager'));
         &print_main_menu($r);          &print_main_menu($r,$enrl_permission,$view_permission);
     } elsif ($ENV{'form.action'} eq 'upload') {      } 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"});
Line 2309  sub handler { Line 2327  sub handler {
         } else {          } else {
             &print_first_courselist_upload_form($r);                          &print_first_courselist_upload_form($r);            
         }          }
     } elsif ($ENV{'form.action'} eq 'drop') {      } elsif ($ENV{'form.action'} eq 'drop' && $enrl_permission) {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/dropadd?action=drop',              ({href=>'/adm/dropadd?action=drop',
               text=>"Drop Students"});                text=>"Drop Students"});
Line 2322  sub handler { Line 2340  sub handler {
         } else {          } else {
             &print_drop_menu($r);              &print_drop_menu($r);
         }          }
     } elsif ($ENV{'form.action'} eq 'enrollstudent') {      } elsif ($ENV{'form.action'} eq 'enrollstudent' && $enrl_permission) {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/dropadd?action=enrollstudent',              ({href=>'/adm/dropadd?action=enrollstudent',
               text=>"Enroll Student"});                text=>"Enroll Student"});
Line 2337  sub handler { Line 2355  sub handler {
         } else {          } else {
             &get_student_username_domain_form($r);              &get_student_username_domain_form($r);
         }          }
     } elsif ($ENV{'form.action'} eq 'classlist') {      } elsif ($ENV{'form.action'} eq 'classlist' && $view_permission) {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/dropadd?action=classlist',              ({href=>'/adm/dropadd?action=classlist',
               text=>"View Classlist"});                text=>"View Classlist"});
Line 2352  sub handler { Line 2370  sub handler {
         } else {          } else {
             &print_html_classlist($r,undef);              &print_html_classlist($r,undef);
         }          }
     } elsif ($ENV{'form.action'} eq 'modifystudent') {      } elsif ($ENV{'form.action'} eq 'modifystudent' && $enrl_permission) {
         &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"});
Line 2374  sub handler { Line 2392  sub handler {
                                  "Someone should fix this.");                                   "Someone should fix this.");
         $r->print(&Apache::lonhtmlcommon::breadcrumbs          $r->print(&Apache::lonhtmlcommon::breadcrumbs
                   (undef,'Enrollment Manager'));                    (undef,'Enrollment Manager'));
         &print_main_menu($r);          &print_main_menu($r,$enrl_permission,$view_permission);
     }      }
     #      #
     # Finish up      # Finish up
Removed from v.1.120  
changed lines
  Added in v.1.121

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