[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.105

version 1.103, 2018/03/23 01:01:21 version 1.105, 2018/12/27 18:14:25
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.105

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