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

Diff for /loncom/interface/loncreateuser.pm between versions 1.268 and 1.268.2.2

version 1.268, 2008/12/14 14:36:18 version 1.268.2.2, 2008/12/15 00:54:54
Line 2928  sub make_script_template { Line 2928  sub make_script_template {
         my ($priv_item, $dummy) = split(/\&/,$priv);          my ($priv_item, $dummy) = split(/\&/,$priv);
         $role_c{$priv_item} = 1;          $role_c{$priv_item} = 1;
     }      }
       my %role_d;
       @temp = split(/:/,$Apache::lonnet::pr{$role.':d'});
       foreach my $priv(@temp) {
           my ($priv_item, $dummy) = split(/\&/,$priv);
           $role_d{$priv_item} = 1;
       }
       my %role_s;
       @temp = split(/:/,$Apache::lonnet::pr{$role.':s'});
       foreach my $priv(@temp) {
           my ($priv_item, $dummy) = split(/\&/,$priv);
           $role_s{$priv_item} = 1;
       }
     foreach my $priv_item (keys(%full_c)) {      foreach my $priv_item (keys(%full_c)) {
         my ($priv, $dummy) = split(/\&/,$priv_item);          my ($priv, $dummy) = split(/\&/,$priv_item);
         if (exists($role_c{$priv})) {          if ((exists($role_c{$priv})) || (exists($role_d{$priv})) || 
               (exists($role_s{$priv}))) {
             $return_script .= "document.form1.$priv"."_c.checked = true;\n";              $return_script .= "document.form1.$priv"."_c.checked = true;\n";
         } else {          } else {
             $return_script .= "document.form1.$priv"."_c.checked = false;\n";              $return_script .= "document.form1.$priv"."_c.checked = false;\n";
         }          }
     }      }
     my %role_d;  
     @temp = split(/:/,$Apache::lonnet::pr{$role.':d'});  
     foreach my $priv(@temp) {  
         my ($priv_item, $dummy) = split(/\&/,$priv);  
         $role_d{$priv_item} = 1;  
     }  
     foreach my $priv_item (keys(%full_d)) {      foreach my $priv_item (keys(%full_d)) {
         my ($priv, $dummy) = split(/\&/,$priv_item);          my ($priv, $dummy) = split(/\&/,$priv_item);
         if (exists($role_d{$priv})) {          if ((exists($role_d{$priv})) || (exists($role_s{$priv}))) {
             $return_script .= "document.form1.$priv"."_d.checked = true;\n";              $return_script .= "document.form1.$priv"."_d.checked = true;\n";
         } else {          } else {
             $return_script .= "document.form1.$priv"."_d.checked = false;\n";              $return_script .= "document.form1.$priv"."_d.checked = false;\n";
         }          }
     }      }
     my %role_s;  
     @temp = split(/:/,$Apache::lonnet::pr{$role.':s'});  
     foreach my $priv(@temp) {  
         my ($priv_item, $dummy) = split(/\&/,$priv);  
         $role_s{$priv_item} = 1;  
     }  
     foreach my $priv_item (keys(%full_s)) {      foreach my $priv_item (keys(%full_s)) {
         my ($priv, $dummy) = split(/\&/,$priv_item);          my ($priv, $dummy) = split(/\&/,$priv_item);
         if (exists($role_s{$priv})) {          if (exists($role_s{$priv})) {
Line 3364  sub print_main_menu { Line 3365  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',      my @menu =
      items =>          (
      [{            { text => $links{$context}{'upload'},
          linktext => $links{$context}{'upload'},              help => 'Course_Create_Class_List',
          icon => 'sctr.png',              action => 'upload',
          #help => 'Course_Create_Class_List',              permission => $permission->{'cusr'},
          url => '/adm/createuser?action=upload',              },
          permission => $permission->{'cusr'},            { text => $links{$context}{'singleuser'},
          linktitle => 'Upload a CSV or a text file containing users.',              help => 'Course_Change_Privileges',
      },              action => 'singleuser',
      {              permission => $permission->{'cusr'},
          linktext => $links{$context}{'singleuser'},              },
          icon => 'edit-redo.png',            { text => $links{$context}{'listusers'},
          #help => 'Course_Change_Privileges',              help => 'Course_View_Class_List',
          url => '/adm/createuser?action=singleuser',              action => 'listusers',
          permission => $permission->{'cusr'},              permission => ($permission->{'view'} || $permission->{'cusr'}),
          linktitle => 'Add a user with a certain role to this course.',            },
      }]},          );
      {categorytitle => 'Administration',      if ($context eq 'domain' || $context eq 'course') {
      items =>          my $customlink =  { text => 'Edit Custom Roles',
      [{                              help => 'Course_Editing_Custom_Roles',
          linktext => $links{$context}{'listusers'},                              action => 'custom',
                  icon => 'edit-find.png',                              permission => $permission->{'custom'},
                  #help => 'Course_View_Class_List',                            };
                  url => '/adm/createuser?action=listusers',          push(@menu,$customlink);
          permission => ($permission->{'view'} || $permission->{'cusr'}),      }
          linktitle => 'Show and manage users of this course.',      if ($context eq 'course') {
      }]},          my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();
      {categorytitle => 'Configuration',          my @courselinks =
      items =>              (
      [                { text => 'Enroll a Single Student',
      ]},                   help => 'Course_Add_Student',
    );                   action => 'singlestudent',
                    permission => $permission->{'cusr'},
     if ($context eq 'domain'){                   },
                 { text => 'Drop Students',
  push(@{ $menu[1]->{items} },                  help => 'Course_Drop_Student',
  { linktext => 'Custom Roles',                  action => 'drop',
  icon => 'emblem-photos.png',                  permission => $permission->{'cusr'},
  #help => 'Course_Editing_Custom_Roles',                });
  url => '/adm/createuser?action=custom',          if (!exists($permission->{'cusr_section'})) {
  permission => $permission->{'custom'},              push(@courselinks,
  linktitle => 'Configure a custom role.',                 { text => 'Automated Enrollment Manager',
  });                   help => 'Course_Automated_Enrollment',
                    permission => (&Apache::lonnet::auto_run($cnum,$cdom)
     }elsif ($context eq 'course'){                                  && $permission->{'cusr'}),
     my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();                   url  => '/adm/populate',
                    },
         push(@{ $menu[0]->{items} },                 { text => 'Configure User Self-enrollment',
  { linktext => 'Single Student',                   help => 'Course_Self_Enrollment',
             #help => 'Course_Add_Student',                   action => 'selfenroll',
  icon => 'list-add.png',                   permission => $permission->{'cusr'},
             url => '/adm/createuser?action=singlestudent',                 });
  permission => $permission->{'cusr'},          }
             linktitle => 'Add a user with the role student to this course.',          push(@courselinks,
         });                 { text => 'Manage Course Groups',
                    help => 'Course_Manage_Group',
         push(@{ $menu[1]->{items} },                     permission => $permission->{'grp_manage'},
  { linktext => 'Drop Students',                   url => '/adm/coursegroups?refpage=cusr',
  icon => 'edit-undo.png',                 },
             #help => 'Course_Drop_Student',                 { text => 'View Change Logs',
             url => '/adm/createuser?action=drop',                   help => 'Course_User_Logs',
  permission => $permission->{'cusr'},                   action => 'changelogs',
             linktitle =>'Remove a student from this course.',                   permission => $permission->{'cusr'},
         },                 },);
  { 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 (!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} },  
  { 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.268  
changed lines
  Added in v.1.268.2.2

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