[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 and 1.295.2.1

version 1.295, 2009/05/18 16:08:07 version 1.295.2.1, 2009/05/21 05:45:59
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 => 'File of Course Users',                                     upload => 'Upload a File of Course Users',
                                    singleuser => 'Single Course User',                                     singleuser => 'Add/Modify a Single Course User',
                                    listusers => 'Course User Lists',                                     listusers => 'Display Class Lists and Manage Multiple Users',
                                  },                                   },
                      );                  );
   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.',  
         });  
   
  }  
   
  push(@{ $menu[2]->{items} },      my @menu =
  { linktext => 'Course Groups',          (
  icon => 'conf.png',            { text => $links{$context}{'upload'},
         #help => 'Course_Manage_Group',              help => 'Course_Create_Class_List',
             url => '/adm/coursegroups?refpage=cusr',              action => 'upload',
  permission => $permission->{'grp_manage'},              permission => $permission->{'cusr'},
  linktitle => 'Manage course groups.',              },
         },            { text => $links{$context}{'singleuser'},
         { linktext => 'Change Logs',              help => 'Course_Change_Privileges',
  icon => 'document-properties.png',              action => 'singleuser',
         #help => 'Course_User_Logs',              permission => $permission->{'cusr'},
         url => '/adm/createuser?action=changelogs',              },
  permission => $permission->{'cusr'},            { text => $links{$context}{'listusers'},
  linktitle => 'View change log.',              help => 'Course_View_Class_List',
         });              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 {
Removed from v.1.295  
changed lines
  Added in v.1.295.2.1

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