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

Diff for /loncom/interface/loncreateuser.pm between versions 1.190 and 1.192

version 1.190, 2007/10/22 22:16:38 version 1.192, 2007/11/09 20:51:20
Line 835  ENDAUTH Line 835  ENDAUTH
 ENDPORT  ENDPORT
     } else { # user already exists      } else { # user already exists
  my %lt=&Apache::lonlocal::texthash(   my %lt=&Apache::lonlocal::texthash(
                     'cup'  => "Existing user ",                      'cup'  => "Modify existing user: ",
                     'id'   => "in domain",                      'id'   => "in domain",
        );         );
  $r->print(<<ENDCHANGEUSER);   $r->print(<<ENDCHANGEUSER);
 $start_page  $start_page
 $crumbs  $crumbs
 $forminfo  $forminfo
 <h3>$lt{'cup'} "$ccuname" $lt{'id'} "$ccdomain"</h3>  <h2>$lt{'cup'} "$ccuname" $lt{'id'} "$ccdomain"</h2>
 ENDCHANGEUSER  ENDCHANGEUSER
         $r->print('<div class="LC_left_float">'.          $r->print('<div class="LC_left_float">'.
                   &personal_data_display($ccuname,$ccdomain,$newuser,                    &personal_data_display($ccuname,$ccdomain,$newuser,
Line 886  ENDNOPORTPRIV Line 886  ENDNOPORTPRIV
         unless ($tmp =~ /^(con_lost|error)/i) {          unless ($tmp =~ /^(con_lost|error)/i) {
            my $now=time;             my $now=time;
    my %lt=&Apache::lonlocal::texthash(     my %lt=&Apache::lonlocal::texthash(
     'rer'  => "Revoke Existing Roles",      'rer'  => "Existing Roles",
                     'rev'  => "Revoke",                                          'rev'  => "Revoke",                    
                     'del'  => "Delete",                      'del'  => "Delete",
     'ren'  => "Re-Enable",      'ren'  => "Re-Enable",
Line 2434  sub handler { Line 2434  sub handler {
     } elsif ($env{'form.action'} eq 'singleuser' && $permission->{'cusr'}) {      } elsif ($env{'form.action'} eq 'singleuser' && $permission->{'cusr'}) {
         my $phase = $env{'form.phase'};          my $phase = $env{'form.phase'};
         my @search = ('srchterm','srchby','srchin','srchtype','srchdomain');          my @search = ('srchterm','srchby','srchin','srchtype','srchdomain');
    &Apache::loncreateuser::restore_prev_selections();
    my $srch;
    foreach my $item (@search) {
       $srch->{$item} = $env{'form.'.$item};
    }
   
         if (($phase eq 'get_user_info') || ($phase eq 'userpicked')) {          if (($phase eq 'get_user_info') || ($phase eq 'userpicked')) {
             my $srch;  
             foreach my $item (@search) {  
                 $srch->{$item} = $env{'form.'.$item};  
             }  
             if ($env{'form.phase'} eq 'get_user_info') {              if ($env{'form.phase'} eq 'get_user_info') {
                 my ($currstate,$response,$forcenewuser,$results) =                   my ($currstate,$response,$forcenewuser,$results) = 
                     &user_search_result($srch);                      &user_search_result($srch);
Line 2480  sub handler { Line 2481  sub handler {
         } elsif ($env{'form.phase'} eq 'update_user_data') {          } elsif ($env{'form.phase'} eq 'update_user_data') {
             &update_user_data($r);              &update_user_data($r);
         } else {          } else {
             &print_username_entry_form($r);              &print_username_entry_form($r,undef,$srch);
         }          }
     } elsif ($env{'form.action'} eq 'custom' && $permission->{'custom'}) {      } elsif ($env{'form.action'} eq 'custom' && $permission->{'custom'}) {
         if ($env{'form.phase'} eq 'set_custom_roles') {          if ($env{'form.phase'} eq 'set_custom_roles') {
Line 2489  sub handler { Line 2490  sub handler {
             &custom_role_editor($r);              &custom_role_editor($r);
         }          }
     } elsif ($env{'form.action'} eq 'listusers' && $permission->{'view'}) {      } elsif ($env{'form.action'} eq 'listusers' && $permission->{'view'}) {
         $r->print(&header());          my ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles);
           my $formname = 'studentform';
           if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {
               ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles) = 
                   &Apache::lonuserutils::courses_selector($env{'request.role.domain'},
                                                           $formname);
               my $js = &add_script($jscript).$cb_jscript;
               my $loadcode = 
                   &Apache::lonuserutils::course_selector_loadcode($formname);
               if ($loadcode ne '') {
                   $r->print(&header($js,{'onload' => $loadcode,}));
               } else {
                   $r->print(&header($js));
               }
           } else {
               $r->print(&header());
           }
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/createuser?action=listusers',              ({href=>'/adm/createuser?action=listusers',
               text=>"List Users' Roles"});                text=>"List Users"});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs("List Users' Roles",          $r->print(&Apache::lonhtmlcommon::breadcrumbs("List Users",
                                                       'User_Management_List'));                                                        'User_Management_List'));
         if (! exists($env{'form.state'})) {          &Apache::lonuserutils::print_userlist($r,undef,$permission,$context,
             &Apache::lonuserutils::print_html_classlist($r,undef,$permission);                       $formname,$totcodes,$codetitles,$idlist,$idlist_titles);
         } elsif ($env{'form.state'} eq 'csv') {  
             &Apache::lonuserutils::print_html_classlist($r,'csv',$permission);  
         } elsif ($env{'form.state'} eq 'excel') {  
             &Apache::lonuserutils::print_html_classlist($r,'excel',$permission);  
         } else {  
             &Apache::lonuserutils::print_html_classlist($r,undef,$permission);  
         }  
         $r->print(&Apache::loncommon::end_page());          $r->print(&Apache::loncommon::end_page());
     } elsif ($env{'form.action'} eq 'expire' && $permission->{'cusr'}) {      } elsif ($env{'form.action'} eq 'expire' && $permission->{'cusr'}) {
         $r->print(&header());          $r->print(&header());
Line 2539  sub header { Line 2549  sub header {
     return $start_page;      return $start_page;
 }  }
   
   sub add_script {
       my ($js) = @_;
       return '<script type="text/javascript">'."\n".$js."\n".'</script>';
   }
   
 ###############################################################  ###############################################################
 ###############################################################  ###############################################################
 #  Menu Phase One  #  Menu Phase One
Line 2546  sub print_main_menu { Line 2561  sub print_main_menu {
     my ($permission) = @_;      my ($permission) = @_;
     my @menu =      my @menu =
         (          (
           { text => 'Upload a File of Users to Set Roles',            { text => 'Upload a File of Users to Modify/Create Users and/or Add roles',
             help => 'User_Management_Upload',              help => 'User_Management_Upload',
             action => 'upload',              action => 'upload',
             permission => $permission->{'cusr'},              permission => $permission->{'cusr'},
             },              },
           { text => 'Set User Roles for an Individual User',            { text => 'Create User/Set User Roles for a single user',
             help => 'User_Management_Single_User',              help => 'User_Management_Single_User',
             action => 'singleuser',              action => 'singleuser',
             permission => $permission->{'cusr'},              permission => $permission->{'cusr'},
             },              },
 #          { text => 'Display User Roles for Multiple Users',            { text => 'Display Lists of Users',
 #            help => 'User_Management_List',              help => 'User_Management_List',
 #            action => 'listusers',              action => 'listusers',
 #            permission => $permission->{'view'},              permission => $permission->{'view'},
 #            },              },
 #          { text => 'Expire User Roles ',  #          { text => 'Expire User Roles',
 #            help => 'User_Management_Drops',  #            help => 'User_Management_Drops',
 #            action => 'expire',  #            action => 'expire',
 #            permission => $permission->{'cusr'},  #            permission => $permission->{'cusr'},
Removed from v.1.190  
changed lines
  Added in v.1.192

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