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

Diff for /loncom/interface/lonrequestcourse.pm between versions 1.103 and 1.106

version 1.103, 2018/03/23 01:01:21 version 1.106, 2019/01/27 15:46:26
Line 3371  sub get_course_dom { Line 3371  sub get_course_dom {
                     return $env{'user.domain'};                      return $env{'user.domain'};
                 }                  }
             }              }
             my (@possible_doms,%willtrust,%trustchecked);              my (@possible_doms,%willtrust);
             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);
                         unless ($trustchecked{$extdom}) {                          unless (exists($willtrust{$extdom})) {
                             $willtrust{$extdom} = &Apache::lonnet::will_trust('reqcrs',$env{'user.domain'},$extdom);                              $willtrust{$extdom} = &Apache::lonnet::will_trust('reqcrs',$env{'user.domain'},$extdom);
                         }                          }
                         if ($willtrust{$extdom}) {                          if ($willtrust{$extdom}) {
Line 4330  sub pending_validation_form { Line 4330  sub pending_validation_form {
                         $buttontext = &mt('Create course');                          $buttontext = &mt('Create course');
                     }                      }
                 }                  }
                   my $hostname = &Apache::lonnet::hostname($lonhost);
                 my $protocol = $Apache::lonnet::protocol{$lonhost};                  my $protocol = $Apache::lonnet::protocol{$lonhost};
                 $protocol = 'http' if ($protocol ne 'https');                  $protocol = 'http' if ($protocol ne 'https');
                 my $crscreator = $protocol.'://'.&Apache::lonnet::hostname($lonhost).'/cgi-bin/createpending.pl';                  my $crscreator = $protocol.'://'.$hostname.'/cgi-bin/createpending.pl';
                 $output .= '<input type="hidden" name="crscreator" value="'.$crscreator.'" />'."\n".                  $output .= '<input type="hidden" name="crscreator" value="'.$crscreator.'" />'."\n".
                            '<input type="hidden" name="token" value="'.$token.'" />'."\n".                             '<input type="hidden" name="token" value="'.$token.'" />'."\n".
                            '<input type="submit" name="validate" value="'.$buttontext.'" />'."\n".                             '<input type="submit" name="validate" value="'.$buttontext.'" />'."\n".
Line 5098  sub process_textbook_request { Line 5099  sub process_textbook_request {
             } else {              } else {
                 $details->{dateshift} = '';                  $details->{dateshift} = '';
             }              }
           } elsif (($reqtype eq 'textbook') || ($reqtype eq 'template')) {
               $details->{datemode} = 'delete';
               $details->{dateshift} = '';
         }          }
         if ($details->{dateshift} ne '') {          if ($details->{dateshift} ne '') {
             $details->{dateshift} =~ s/[^\d\.]+//g;              $details->{dateshift} =~ s/[^\d\.]+//g;
Removed from v.1.103  
changed lines
  Added in v.1.106

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