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

Diff for /loncom/interface/loncreateuser.pm between versions 1.295.2.1 and 1.296

version 1.295.2.1, 2009/05/21 05:45:59 version 1.296, 2009/06/30 14:02:33
Line 3666  sub print_main_menu { Line 3666  sub print_main_menu {
                                    listusers => 'Display Co-authors and Manage Multiple Users',                                     listusers => 'Display Co-authors and Manage Multiple Users',
                                  },                                   },
                        course => {                         course => {
                                    upload => 'Upload a File of Course Users',                                     upload => 'File of Course Users',
                                    singleuser => 'Add/Modify a Single Course User',                                     singleuser => 'Single Course User',
                                    listusers => 'Display Class Lists and Manage Multiple Users',                                     listusers => 'Course User Lists',
                                  },                                   },
                 );                       );
     my @menu = ( {categorytitle => 'Add Users',
        items =>
        [{
            linktext => $links{$context}{'upload'},
            icon => 'sctr.png',
            #help => 'Course_Create_Class_List',
            url => '/adm/createuser?action=upload',
            permission => $permission->{'cusr'},
            linktitle => 'Upload a CSV or a text file containing users.',
        },
        {
            linktext => $links{$context}{'singleuser'},
            icon => 'edit-redo.png',
            #help => 'Course_Change_Privileges',
            url => '/adm/createuser?action=singleuser',
            permission => $permission->{'cusr'},
            linktitle => 'Add a user with a certain role to this course.',
        }]},
        {categorytitle => 'Administration',
        items =>
        [{
            linktext => $links{$context}{'listusers'},
                    icon => 'edit-find.png',
                    #help => 'Course_View_Class_List',
                    url => '/adm/createuser?action=listusers',
            permission => ($permission->{'view'} || $permission->{'cusr'}),
            linktitle => 'Show and manage users of this course.',
        }]},
        {categorytitle => 'Configuration',
        items =>
        [
        ]},
      );
   
       if ($context eq 'domain'){
   
    push(@{ $menu[1]->{items} },
    { linktext => 'Custom Roles',
    icon => 'emblem-photos.png',
    #help => 'Course_Editing_Custom_Roles',
    url => '/adm/createuser?action=custom',
    permission => $permission->{'custom'},
    linktitle => 'Configure a custom role.',
    });
   
       }elsif ($context eq 'course'){
       my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();
   
           push(@{ $menu[0]->{items} },
    { linktext => 'Single Student',
               #help => 'Course_Add_Student',
    icon => 'list-add.png',
               url => '/adm/createuser?action=singlestudent',
    permission => $permission->{'cusr'},
               linktitle => 'Add a user with the role student to this course.',
           });
   
           push(@{ $menu[1]->{items} },  
    { linktext => 'Drop Students',
    icon => 'edit-undo.png',
               #help => 'Course_Drop_Student',
               url => '/adm/createuser?action=drop',
    permission => $permission->{'cusr'},
               linktitle =>'Remove a student from this course.',
           },
    { linktext => 'Custom Roles',
    icon => 'emblem-photos.png',
               #help => 'Course_Editing_Custom_Roles',
               url => '/adm/createuser?action=custom',
    permission => $permission->{'custom'},
    linktitle => 'Configure a custom role.',
           });
           if ($env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_approval'}) {
               push(@{ $menu[1]->{items} },
                       {   linktext => 'Enrollment Requests',
                           icon => 'selfenrl-queue.png',
                           #help => 'Course_Approve_Selfenroll',
                           url => '/adm/createuser?action=selfenrollqueue',
                           permission => $permission->{'cusr'},
                           linktitle =>'Approve or reject enrollment requests.',
                   });
           }
   
           if (!exists($permission->{'cusr_section'})){
          
    push(@{ $menu[2]->{items} },
    { linktext => 'Automated Enrollment',
    icon => 'roles.png',
             #help => 'Course_Automated_Enrollment',
           permission => (&Apache::lonnet::auto_run($cnum,$cdom)
                                   && $permission->{'cusr'}),
    url  => '/adm/populate',
    linktitle => 'Automated enrollment manager.',
    },
    { linktext => 'User Self-Enrollment',
    icon => 'cstr.png',
          #help => 'Course_Self_Enrollment',
    url => '/adm/createuser?action=selfenroll',
    permission => $permission->{'cusr'},
    linktitle => 'Configure user self enrollment.',
           });
   
    }
   
     my @menu =   push(@{ $menu[2]->{items} },
         (   { linktext => 'Course Groups',
           { text => $links{$context}{'upload'},   icon => 'conf.png',
             help => 'Course_Create_Class_List',          #help => 'Course_Manage_Group',
             action => 'upload',              url => '/adm/coursegroups?refpage=cusr',
             permission => $permission->{'cusr'},   permission => $permission->{'grp_manage'},
             },   linktitle => 'Manage course groups.',
           { text => $links{$context}{'singleuser'},          },
             help => 'Course_Change_Privileges',          { linktext => 'Change Logs',
             action => 'singleuser',   icon => 'document-properties.png',
             permission => $permission->{'cusr'},          #help => 'Course_User_Logs',
             },          url => '/adm/createuser?action=changelogs',
           { text => $links{$context}{'listusers'},   permission => $permission->{'cusr'},
             help => 'Course_View_Class_List',   linktitle => 'View change log.',
             action => 'listusers',          });
             permission => ($permission->{'view'} || $permission->{'cusr'}),      };
           },  return Apache::lonhtmlcommon::generate_menu(@menu);
         );  
     if ($context eq 'domain' || $context eq 'course') {  
         my $customlink =  { text => 'Edit Custom Roles',  
                             help => 'Course_Editing_Custom_Roles',  
                             action => 'custom',  
                             permission => $permission->{'custom'},  
                           };  
         push(@menu,$customlink);  
     }  
     if ($context eq 'course') {  
         my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();  
         my @courselinks =  
             (  
               { text => 'Enroll a Single Student',  
                  help => 'Course_Add_Student',  
                  action => 'singlestudent',  
                  permission => $permission->{'cusr'},  
                  },  
               { text => 'Drop Students',  
                 help => 'Course_Drop_Student',  
                 action => 'drop',  
                 permission => $permission->{'cusr'},  
               });  
         if (!exists($permission->{'cusr_section'})) {  
             push(@courselinks,  
                { text => 'Automated Enrollment Manager',  
                  help => 'Course_Automated_Enrollment',  
                  permission => (&Apache::lonnet::auto_run($cnum,$cdom)  
                                 && $permission->{'cusr'}),  
                  url  => '/adm/populate',  
                  },  
                { text => 'Configure User Self-enrollment',  
                  help => 'Course_Self_Enrollment',  
                  action => 'selfenroll',  
                  permission => $permission->{'cusr'},  
                });  
         }  
         push(@courselinks,  
                { text => 'Manage Course Groups',  
                  help => 'Course_Manage_Group',  
                  permission => $permission->{'grp_manage'},  
                  url => '/adm/coursegroups?refpage=cusr',  
                },  
                { text => 'View Change Logs',  
                  help => 'Course_User_Logs',  
                  action => 'changelogs',  
                  permission => $permission->{'cusr'},  
                },);  
 #               { text => 'View Log-in History',  #               { text => 'View Log-in History',
 #                 help => 'Course_User_Logins',  #                 help => 'Course_User_Logins',
 #                 action => 'logins',  #                 action => 'logins',
 #                 permission => $permission->{'cusr'},  #                 permission => $permission->{'cusr'},
 #               });  #               });
         push(@menu,@courselinks);  
     }  
     my $menu_html = '';  
     foreach my $menu_item (@menu) {  
         next if (! $menu_item->{'permission'});  
         $menu_html.='<p>';  
         if (exists($menu_item->{'help'})) {  
             $menu_html.=  
                 &Apache::loncommon::help_open_topic($menu_item->{'help'});  
         }  
         $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/createuser?action=$menu_item->{'action'}">};      }  
         $menu_html.= &mt($menu_item->{'text'}).'</a></font>';  
         $menu_html.='</p>';  
     }  
     return $menu_html;  
 }  }
   
 sub restore_prev_selections {  sub restore_prev_selections {
Line 4930  sub role_display_filter { Line 4965  sub role_display_filter {
                &mt('[_1]Note:[_2] Only changes made from servers running LON-CAPA 2.6.99.0 or later are displayed.');                 &mt('[_1]Note:[_2] Only changes made from servers running LON-CAPA 2.6.99.0 or later are displayed.');
     if ($version) {      if ($version) {
         $output .= ' '.&mt('This server is version [_3].','<b>','</b>',$version);    }          $output .= ' '.&mt('This server is version [_3].','<b>','</b>',$version);    }
     $output .= '</span><hr noshade><br />';      $output .= '</span><hr /><br />';
     return $output;      return $output;
 }  }
   
Removed from v.1.295.2.1  
changed lines
  Added in v.1.296

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