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

Diff for /loncom/interface/loncreateuser.pm between versions 1.339 and 1.341

version 1.339, 2010/04/02 14:53:26 version 1.341, 2010/04/23 17:21:54
Line 2385  sub update_user_data { Line 2385  sub update_user_data {
                     }                      }
                 }                  }
                 foreach my $item (@requestcourses) {                  foreach my $item (@requestcourses) {
                     $newcustom{$item} = $env{'form.crsreq_'.$item};                      if ($env{'form.custom'.$item} == 1) {
                     if ($env{'form.crsreq_'.$item} eq 'autolimit') {                          $newcustom{$item} = $env{'form.crsreq_'.$item};
                         $newcustom{$item} .= '=';                          if ($env{'form.crsreq_'.$item} eq 'autolimit') {
                         unless ($env{'form.crsreq_'.$item.'_limit'} =~ /\D/) {                              $newcustom{$item} .= '=';
                             $newcustom{$item} .= $env{'form.crsreq_'.$item.'_limit'};                              unless ($env{'form.crsreq_'.$item.'_limit'} =~ /\D/) {
                                   $newcustom{$item} .= $env{'form.crsreq_'.$item.'_limit'};
                               }
                         }                          }
                           $changed{$item} = &tool_admin($item,$newcustom{$item},
                                                         \%changeHash,'requestcourses');
                     }                      }
                     $changed{$item} = &tool_admin($item,$newcustom{$item},  
                                                   \%changeHash,'requestcourses');  
                 }                  }
             }              }
             if ($canmodify_status{'inststatus'}) {              if ($canmodify_status{'inststatus'}) {
Line 4386  sub print_main_menu { Line 4388  sub print_main_menu {
          [           [
             {              {
              linktext => $links{$linkcontext}{'upload'},               linktext => $links{$linkcontext}{'upload'},
              icon => 'sctr.png',               icon => 'uplusr.png',
              #help => 'Course_Create_Class_List',               #help => 'Course_Create_Class_List',
              url => '/adm/createuser?action=upload',               url => '/adm/createuser?action=upload',
              permission => $permission->{'cusr'},               permission => $permission->{'cusr'},
Line 4394  sub print_main_menu { Line 4396  sub print_main_menu {
             },              },
             {              {
              linktext => $links{$linkcontext}{'listusers'},               linktext => $links{$linkcontext}{'listusers'},
              icon => 'edit-find.png',               icon => 'mngcu.png',
              #help => 'Course_View_Class_List',               #help => 'Course_View_Class_List',
              url => '/adm/createuser?action=listusers',               url => '/adm/createuser?action=listusers',
              permission => ($permission->{'view'} || $permission->{'cusr'}),               permission => ($permission->{'view'} || $permission->{'cusr'}),
Removed from v.1.339  
changed lines
  Added in v.1.341

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