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

Diff for /loncom/interface/loncreateuser.pm between versions 1.351 and 1.353

version 1.351, 2010/10/08 01:59:39 version 1.353, 2011/01/05 18:42:53
Line 638  END Line 638  END
   
 sub entry_form {  sub entry_form {
     my ($dom,$srch,$forcenewuser,$context,$responsemsg,$crstype) = @_;      my ($dom,$srch,$forcenewuser,$context,$responsemsg,$crstype) = @_;
     my %domconf = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom);  
     my ($usertype,$inexact);      my ($usertype,$inexact);
     if (ref($srch) eq 'HASH') {      if (ref($srch) eq 'HASH') {
         if (($srch->{'srchin'} eq 'dom') &&          if (($srch->{'srchin'} eq 'dom') &&
Line 646  sub entry_form { Line 645  sub entry_form {
             ($srch->{'srchtype'} eq 'exact') &&              ($srch->{'srchtype'} eq 'exact') &&
             ($srch->{'srchdomain'} ne '') &&              ($srch->{'srchdomain'} ne '') &&
             ($srch->{'srchterm'} ne '')) {              ($srch->{'srchterm'} ne '')) {
               my (%curr_rules,%got_rules);
             my ($rules,$ruleorder) =              my ($rules,$ruleorder) =
                 &Apache::lonnet::inst_userrules($srch->{'srchdomain'},'username');                  &Apache::lonnet::inst_userrules($srch->{'srchdomain'},'username');
             $usertype = &Apache::lonuserutils::check_usertype($srch->{'srchdomain'},$srch->{'srchterm'},$rules);              $usertype = &Apache::lonuserutils::check_usertype($srch->{'srchdomain'},$srch->{'srchterm'},$rules,\%curr_rules,\%got_rules);
         } else {          } else {
             $inexact = 1;              $inexact = 1;
         }          }
Line 942  sub print_user_modification_page { Line 942  sub print_user_modification_page {
         my ($rules,$ruleorder) =          my ($rules,$ruleorder) =
             &Apache::lonnet::inst_userrules($ccdomain,'username');              &Apache::lonnet::inst_userrules($ccdomain,'username');
             $usertype =              $usertype =
                 &Apache::lonuserutils::check_usertype($ccdomain,$ccuname,$rules);                  &Apache::lonuserutils::check_usertype($ccdomain,$ccuname,$rules,
                                                          \%curr_rules,\%got_rules);
         my $cancreate =          my $cancreate =
             &Apache::lonuserutils::can_create_user($ccdomain,$context,              &Apache::lonuserutils::can_create_user($ccdomain,$context,
                                                    $usertype);                                                     $usertype);
Line 1346  ENDNOTOOLSPRIV Line 1347  ENDNOTOOLSPRIV
     }      }
     $r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','userrole','ccdomain','prevphase','currstate','ccuname','ccdomain']));      $r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','userrole','ccdomain','prevphase','currstate','ccuname','ccdomain']));
     $r->print('<input type="hidden" name="currstate" value="" />');      $r->print('<input type="hidden" name="currstate" value="" />');
     $r->print('<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" />');      $r->print('<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" /></form>');
     return;      return;
 }  }
   
Line 3929  sub set_custom_role { Line 3930  sub set_custom_role {
                  .$jsback."\n"                   .$jsback."\n"
                  .'// ]]>'."\n"                   .'// ]]>'."\n"
                  .'</script>'."\n";                   .'</script>'."\n";
     my $brcrum = [{href => "javascript:backPage(document.customresult,'pickrole','')",      push(@{$brcrum},
                    text => "Pick custom role",          {href => "javascript:backPage(document.customresult,'pickrole','')",
                    faq  => 282,           text => "Pick custom role",
                    bug  => 'Instructor Interface',},           faq  => 282,
                   {href => "javascript:backPage(document.customresult,'selected_custom_edit','')",           bug  => 'Instructor Interface',},
                    text => "Edit custom role",          {href => "javascript:backPage(document.customresult,'selected_custom_edit','')",
                    faq  => 282,           text => "Edit custom role",
                    bug  => 'Instructor Interface',},           faq  => 282,
                   {href => "javascript:backPage(document.customresult,'set_custom_roles','')",           bug  => 'Instructor Interface',},
                    text => "Result",          {href => "javascript:backPage(document.customresult,'set_custom_roles','')",
                    faq  => 282,           text => "Result",
                    bug  => 'Instructor Interface',           faq  => 282,
                    help => 'Course_Editing_Custom_Roles'},           bug  => 'Instructor Interface',
                  ];           help => 'Course_Editing_Custom_Roles'},
     my $args = { bread_crumbs          => $brcrum,          );
       my $args = { bread_crumbs           => $brcrum,
                  bread_crumbs_component => 'User Management'};                    bread_crumbs_component => 'User Management'}; 
     $r->print(&Apache::loncommon::start_page('Save Custom Role',$jscript,$args));      $r->print(&Apache::loncommon::start_page('Save Custom Role',$jscript,$args));
   
Removed from v.1.351  
changed lines
  Added in v.1.353

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