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

Diff for /loncom/interface/loncreateuser.pm between versions 1.329.2.5 and 1.329.2.6

version 1.329.2.5, 2010/10/11 15:38:17 version 1.329.2.6, 2010/11/08 19:52:01
Line 70  use Apache::lonlocal; Line 70  use Apache::lonlocal;
 use Apache::longroup;  use Apache::longroup;
 use Apache::lonuserutils;  use Apache::lonuserutils;
 use Apache::loncoursequeueadmin;  use Apache::loncoursequeueadmin;
   use Apache::lonrequestcourse;
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
   
 my $loginscript; # piece of javascript used in two separate instances  my $loginscript; # piece of javascript used in two separate instances
Line 4054  sub handler { Line 4055  sub handler {
     } else {      } else {
         $context = 'domain';          $context = 'domain';
     }      }
       my ($permission,$allowed) =
           &Apache::lonuserutils::get_permission($context,$crstype);
       if (!$allowed) {
           $env{'user.error.msg'}=
               "/adm/createuser:cst:0:0:Cannot create/modify user data ".
                                    "or view user status.";
           return HTTP_NOT_ACCEPTABLE;
       }
   
       &Apache::loncommon::content_type($r,'text/html');
       $r->send_http_header;
   
     my $title = 'User Management';      my $title = 'User Management';
     my $is_custom = &Apache::loncommon::needs_gci_custom();      my $is_custom = &Apache::loncommon::needs_gci_custom();
     if ($context eq 'course') {      if ($context eq 'course') {
Line 4068  sub handler { Line 4081  sub handler {
     my $args;      my $args;
     my $brcrum = [];      my $brcrum = [];
     my $bread_crumbs_component = $title;      my $bread_crumbs_component = $title;
     if ($env{'form.action'} ne 'dateselect') {      if ($env{'form.context'} eq 'requestcrs') {
           my $reqstate = 'uploadroster';
           if ($env{'form.state'} eq 'enrolling') {
               $reqstate = 'enrolling';
           }
           unless (&Apache::lonrequestcourse::generate_page($r,'new',$reqstate)) {
               return OK;
           }
       } elsif ($env{'form.action'} ne 'dateselect') {
         $brcrum = [{href=>"/adm/createuser",          $brcrum = [{href=>"/adm/createuser",
                     text=>$title,                      text=>$title,
                     help=>'Course_Create_Class_List,Course_Change_Privileges,Course_View_Class_List,Course_Editing_Custom_Roles,Course_Add_Student,Course_Drop_Student,Course_Automated_Enrollment,Course_Self_Enrollment,Course_Manage_Group'}                      help=>'Course_Create_Class_List,Course_Change_Privileges,Course_View_Class_List,Course_Editing_Custom_Roles,Course_Add_Student,Course_Drop_Student,Course_Automated_Enrollment,Course_Self_Enrollment,Course_Manage_Group'}
Line 4076  sub handler { Line 4097  sub handler {
     }      }
     #SD Following files not added to help, because the corresponding .tex-files seem to      #SD Following files not added to help, because the corresponding .tex-files seem to
     #be missing: Course_Approve_Selfenroll,Course_User_Logs,      #be missing: Course_Approve_Selfenroll,Course_User_Logs,
     my ($permission,$allowed) =   
         &Apache::lonuserutils::get_permission($context,$crstype);  
     if (!$allowed) {  
         $env{'user.error.msg'}=  
             "/adm/createuser:cst:0:0:Cannot create/modify user data ".  
                                  "or view user status.";  
         return HTTP_NOT_ACCEPTABLE;  
     }  
   
     &Apache::loncommon::content_type($r,'text/html');  
     $r->send_http_header;  
   
     # 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'})) {
Line 4095  sub handler { Line 4105  sub handler {
         $r->print(&header(undef,$args));          $r->print(&header(undef,$args));
         $r->print(&print_main_menu($permission,$context,$crstype));          $r->print(&print_main_menu($permission,$context,$crstype));
     } elsif ($env{'form.action'} eq 'upload' && $permission->{'cusr'}) {      } elsif ($env{'form.action'} eq 'upload' && $permission->{'cusr'}) {
         push(@{$brcrum},          unless ($env{'form.context'} eq 'requestcrs') {
               { href => '/adm/createuser?action=upload&state=',              push(@{$brcrum},
                 text => 'Upload Users List',                    { href => '/adm/createuser?action=upload&state=',
                 help => 'Course_Create_Class_List',                      text => 'Upload Users List',
               });                      help => 'Course_Create_Class_List',
         $bread_crumbs_component = 'Upload Users List';                    });
         $args = {bread_crumbs           => $brcrum,              $bread_crumbs_component = 'Upload Users List';
                  bread_crumbs_component => $bread_crumbs_component};              $args = {bread_crumbs           => $brcrum,
         $r->print(&header(undef,$args));                       bread_crumbs_component => $bread_crumbs_component};
         $r->print('<form name="studentform" method="post" '.              $r->print(&header(undef,$args));
                   'enctype="multipart/form-data" '.          }
                   ' action="/adm/createuser">'."\n");          unless (($env{'form.context'} eq 'requestcrs') && ($env{'form.state'} eq 'enrolling')) {
               $r->print('<form name="studentform" method="post" '.
                         'enctype="multipart/form-data" '.
                         ' action="/adm/createuser">'."\n");
           }
         if (! exists($env{'form.state'})) {          if (! exists($env{'form.state'})) {
             &Apache::lonuserutils::print_first_users_upload_form($r,$context);              &Apache::lonuserutils::print_first_users_upload_form($r,$context);
         } elsif ($env{'form.state'} eq 'got_file') {          } elsif ($env{'form.state'} eq 'got_file') {
             my $formname;              my $formname;
             if ($env{'form.caller'} eq 'requestcrs') {              if ($env{'form.context'} eq 'requestcrs') {
                 $formname = 'studentform';                  $formname = 'studentform';
             }              }
             &Apache::lonuserutils::print_upload_manager_form($r,$context,              &Apache::lonuserutils::print_upload_manager_form($r,$context,
                                                              $permission,$crstype,$formname);                                                               $permission,$crstype,$formname);
               if ($env{'form.context'} eq 'requestcrs') {
                   $r->print('<input type="hidden" name="concepttest" value="'.$env{'form.concepttest'}.'" />');
               }
         } elsif ($env{'form.state'} eq 'enrolling') {          } elsif ($env{'form.state'} eq 'enrolling') {
             if ($env{'form.datatoken'}) {              if ($env{'form.datatoken'}) {
                 &Apache::lonuserutils::upfile_drop_add($r,$context,$permission);                  &Apache::lonuserutils::upfile_drop_add($r,$context,$permission);
                   if ($env{'form.context'} eq 'requestcrs') {
                       $r->print('<br /><hr />'.
                                 '<form name="requestcrs" method="post" action="/adm/requestcourse">'.
                                 '<input type="hidden" name="context" value="'.$env{'form.context'}.'" />'.
                                 '<input type="hidden" name="concepttest" value="'.$env{'form.concepttest'}.'" />'.
                                 '<input type="hidden" name="reqaction" value="new" />'.
                                 '<input type="hidden" name="state" value="'.$env{'form.state'}.'" />'.
                                 &Apache::lonrequestcourse::done_display());
                   }
             }              }
         } else {          } else {
             &Apache::lonuserutils::print_first_users_upload_form($r,$context);              &Apache::lonuserutils::print_first_users_upload_form($r,$context);
         }          }
           $r->print('</form>');
     } elsif ((($env{'form.action'} eq 'singleuser') || ($env{'form.action'}      } elsif ((($env{'form.action'} eq 'singleuser') || ($env{'form.action'}
              eq 'singlestudent')) && ($permission->{'cusr'})) {               eq 'singlestudent')) && ($permission->{'cusr'})) {
         my $phase = $env{'form.phase'};          my $phase = $env{'form.phase'};
Removed from v.1.329.2.5  
changed lines
  Added in v.1.329.2.6

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