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

Diff for /loncom/interface/lonrequestcourse.pm between versions 1.97 and 1.100

version 1.97, 2016/04/04 01:07:17 version 1.100, 2017/08/07 20:22:13
Line 2109  sub print_personnel_menu { Line 2109  sub print_personnel_menu {
         $output .= &Apache::lonhtmlcommon::row_headline().          $output .= &Apache::lonhtmlcommon::row_headline().
                   '<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Personnel').'&nbsp;'.$lt{$crstype}.' '.&mt('Include other personnel?').'</h3>';                    '<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Personnel').'&nbsp;'.$lt{$crstype}.' '.&mt('Include other personnel?').'</h3>';
     }      }
     for (my $i=0; $i<$persontotal; $i++) {       my $cansearch = 1;
       my @alldoms = &Apache::lonnet::all_domains();
       if (@alldoms == 1) {
           my %domsrch = &Apache::lonnet::get_dom('configuration',
                                                  ['directorysrch'],$alldoms[0]);
           if (ref($domsrch{'directorysrch'}) eq 'HASH') {
               if ((!$domsrch{'directorysrch'}{'available'}) &&
                   ($domsrch{'directorysrch'}{'lcavailable'} eq '0')) {
                   $cansearch = 0;
               }
           }
       }
       my ($trustedref,$untrustedref) = &Apache::lonnet::trusted_domains('enroll',$dom);
       for (my $i=0; $i<$persontotal; $i++) {
         my @linkargs = map { 'person_'.$i.'_'.$_ } (@items);          my @linkargs = map { 'person_'.$i.'_'.$_ } (@items);
         my $linkargstr = join("','",@linkargs);          my $linkargstr = join("','",@linkargs);
         my $uname_form = '<input type="text" name="person_'.$i.'_uname" value="" size="20" />';          my $uname_form = '<input type="text" name="person_'.$i.'_uname" value="" size="20" />';
         my $onchange = 'javascript:fix_domain('."'$formname','person_".$i."_dom',".          my $onchange = 'javascript:fix_domain('."'$formname','person_".$i."_dom',".
                        "'person_".$i."_hidedom','person_".$i."_uname'".');';                         "'person_".$i."_hidedom','person_".$i."_uname'".');';
         my $udom_form = &Apache::loncommon::select_dom_form($dom,'person_'.$i.'_dom','',          my $udom_form = &Apache::loncommon::select_dom_form($dom,'person_'.$i.'_dom','',
                                                             1,$onchange).                                                              1,$onchange,undef,$trustedref,$untrustedref).
                         '<input type="hidden" name="person_'.$i.'_hidedom" value="" />';                          '<input type="hidden" name="person_'.$i.'_hidedom" value="" />';
         my %form_elems;          my %form_elems;
         foreach my $item (@items) {          foreach my $item (@items) {
Line 2133  sub print_personnel_menu { Line 2146  sub print_personnel_menu {
         }          }
         $sectionselector .= $newtitle.          $sectionselector .= $newtitle.
             '<input type="text" name="person_'.$i.'_newsec" size="15" value="" />'."\n";              '<input type="text" name="person_'.$i.'_newsec" size="15" value="" />'."\n";
         my $usersrchlinktxt = &mt('Search for user');          my $usersrchlink;
         my $usersrchlink =  &Apache::loncommon::selectuser_link($formname,@linkargs,$dom,          if ($cansearch) {
                             $usersrchlinktxt);              my $usersrchlinktxt = &mt('Search for user');
               $usersrchlink = &Apache::loncommon::selectuser_link($formname,@linkargs,$dom,
                                                                   $usersrchlinktxt);
           } else {
               $usersrchlink = '&nbsp;';
           }
         my $userchklinktxt = &mt('Check username');          my $userchklinktxt = &mt('Check username');
         my $userchklink = &Apache::loncommon::selectuser_link($formname,@linkargs,$dom,          my $userchklink = &Apache::loncommon::selectuser_link($formname,@linkargs,$dom,
                             $userchklinktxt,'checkusername');                              $userchklinktxt,'checkusername');
Line 3168  sub clone_form { Line 3186  sub clone_form {
     my $type = 'Course';      my $type = 'Course';
     if ($crstype eq 'community') {      if ($crstype eq 'community') {
         $type = 'Community';          $type = 'Community';
       } elsif ($crstype eq 'placement') {
           $type = 'Placement'; 
     }      }
     my %lt = &clone_text();      my %lt = &clone_text();
     my $output .=       my $output .= 
Line 3333  sub get_course_dom { Line 3353  sub get_course_dom {
                     return $env{'user.domain'};                      return $env{'user.domain'};
                 }                  }
             }              }
             my @possible_doms;              my (@possible_doms,%willtrust,%trustchecked);
             foreach my $type (@{$types}) {              foreach my $type (@{$types}) {
                 my $dom_str = $env{'environment.reqcrsotherdom.'.$type};                  my $dom_str = $env{'environment.reqcrsotherdom.'.$type};
                 if ($dom_str ne '') {                  if ($dom_str ne '') {
                     my @domains = split(',',$dom_str);                      my @domains = split(',',$dom_str);
                     foreach my $entry (@domains) {                      foreach my $entry (@domains) {
                         my ($extdom,$extopt) = split(':',$entry);                          my ($extdom,$extopt) = split(':',$entry);
                         if ($extdom eq $env{'request.role.domain'}) {                          unless ($trustchecked{$extdom}) {
                             return $extdom;                              $willtrust{$extdom} = &Apache::lonnet::will_trust('reqcrs',$env{'user.domain'},$extdom);
                         }                           }
                         unless(grep(/^\Q$extdom\E$/,@possible_doms)) {                          if ($willtrust{$extdom}) {
                             push(@possible_doms,$extdom);                              if ($extdom eq $env{'request.role.domain'}) {
                                   return $extdom;
                               }
                               unless(grep(/^\Q$extdom\E$/,@possible_doms)) {
                                   push(@possible_doms,$extdom);
                               }
                         }                          }
                     }                      }
                 }                  }
Line 4578  sub print_textbook_form { Line 4603  sub print_textbook_form {
                                                owner => $courseinfo{'internal.courseowner'},                                                 owner => $courseinfo{'internal.courseowner'},
                                                releaserequired => $courseinfo{'internal.releaserequired'},                                                 releaserequired => $courseinfo{'internal.releaserequired'},
                                                type  => $courseinfo{'type'},                                                 type  => $courseinfo{'type'},
                                            };  
         }          }
     }      }
   
Removed from v.1.97  
changed lines
  Added in v.1.100

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