[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.2

version 1.295, 2009/05/18 16:08:07 version 1.295.2.2, 2009/05/23 12:37:51
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 =>      my @menu =
      [{          (
          linktext => $links{$context}{'upload'},            { text => $links{$context}{'upload'},
          icon => 'sctr.png',              help => 'Course_Create_Class_List',
          #help => 'Course_Create_Class_List',              action => 'upload',
          url => '/adm/createuser?action=upload',              permission => $permission->{'cusr'},
          permission => $permission->{'cusr'},              },
          linktitle => 'Upload a CSV or a text file containing users.',            { text => $links{$context}{'singleuser'},
      },              help => 'Course_Change_Privileges',
      {              action => 'singleuser',
          linktext => $links{$context}{'singleuser'},              permission => $permission->{'cusr'},
          icon => 'edit-redo.png',              },
          #help => 'Course_Change_Privileges',            { text => $links{$context}{'listusers'},
          url => '/adm/createuser?action=singleuser',              help => 'Course_View_Class_List',
          permission => $permission->{'cusr'},              action => 'listusers',
          linktitle => 'Add a user with a certain role to this course.',              permission => ($permission->{'view'} || $permission->{'cusr'}),
      }]},            },
      {categorytitle => 'Administration',          );
      items =>      if ($context eq 'domain' || $context eq 'course') {
      [{          my $customlink =  { text => 'Edit Custom Roles',
          linktext => $links{$context}{'listusers'},                              help => 'Course_Editing_Custom_Roles',
                  icon => 'edit-find.png',                              action => 'custom',
                  #help => 'Course_View_Class_List',                              permission => $permission->{'custom'},
                  url => '/adm/createuser?action=listusers',                            };
          permission => ($permission->{'view'} || $permission->{'cusr'}),          push(@menu,$customlink);
          linktitle => 'Show and manage users of this course.',      }
      }]},      if ($context eq 'course') {
      {categorytitle => 'Configuration',          my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();
      items =>          my @courselinks =
      [              (
      ]},                { text => 'Enroll a Single Student',
    );                   help => 'Course_Add_Student',
                    action => 'singlestudent',
     if ($context eq 'domain'){                   permission => $permission->{'cusr'},
                    },
  push(@{ $menu[1]->{items} },                { text => 'Drop Students',
  { linktext => 'Custom Roles',                  help => 'Course_Drop_Student',
  icon => 'emblem-photos.png',                  action => 'drop',
  #help => 'Course_Editing_Custom_Roles',                  permission => $permission->{'cusr'},
  url => '/adm/createuser?action=custom',                });
  permission => $permission->{'custom'},          if (!exists($permission->{'cusr_section'})) {
  linktitle => 'Configure a custom role.',              push(@courselinks,
  });                 { text => 'Automated Enrollment Manager',
                    help => 'Course_Automated_Enrollment',
     }elsif ($context eq 'course'){                   permission => (&Apache::lonnet::auto_run($cnum,$cdom)
     my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();                                  && $permission->{'cusr'}),
                    url  => '/adm/populate',
         push(@{ $menu[0]->{items} },                   },
  { linktext => 'Single Student',                 { text => 'Configure User Self-enrollment',
             #help => 'Course_Add_Student',                   help => 'Course_Self_Enrollment',
  icon => 'list-add.png',                   action => 'selfenroll',
             url => '/adm/createuser?action=singlestudent',                   permission => $permission->{'cusr'},
  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'}) {          if ($env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_approval'}) {
             push(@{ $menu[1]->{items} },              push(@courselinks,
                     {   linktext => 'Enrollment Requests',                      {   text => 'Enrollment Requests',
                         icon => 'selfenrl-queue.png',                          help => 'Course_Approve_Selfenroll',
                         #help => 'Course_Approve_Selfenroll',                          action => 'selfenrollqueue',
                         url => '/adm/createuser?action=selfenrollqueue',  
                         permission => $permission->{'cusr'},                          permission => $permission->{'cusr'},
                         linktitle =>'Approve or reject enrollment requests.',                      });
                 });  
         }          }
           push(@courselinks,
         if (!exists($permission->{'cusr_section'})){                 { text => 'Manage Course Groups',
                           help => 'Course_Manage_Group',
  push(@{ $menu[2]->{items} },                   permission => $permission->{'grp_manage'},
  { linktext => 'Automated Enrollment',                   url => '/adm/coursegroups?refpage=cusr',
  icon => 'roles.png',                 },
           #help => 'Course_Automated_Enrollment',                 { text => 'View Change Logs',
         permission => (&Apache::lonnet::auto_run($cnum,$cdom)                   help => 'Course_User_Logs',
                                 && $permission->{'cusr'}),                   action => 'changelogs',
  url  => '/adm/populate',                   permission => $permission->{'cusr'},
  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} },  
  { linktext => 'Course Groups',  
  icon => 'conf.png',  
         #help => 'Course_Manage_Group',  
             url => '/adm/coursegroups?refpage=cusr',  
  permission => $permission->{'grp_manage'},  
  linktitle => 'Manage course groups.',  
         },  
         { linktext => 'Change Logs',  
  icon => 'document-properties.png',  
         #help => 'Course_User_Logs',  
         url => '/adm/createuser?action=changelogs',  
  permission => $permission->{'cusr'},  
  linktitle => 'View change log.',  
         });  
     };  
 return Apache::lonhtmlcommon::generate_menu(@menu);  
 #               { 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.2

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