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

Diff for /loncom/interface/lonrequestcourse.pm between versions 1.109 and 1.111

version 1.109, 2020/07/01 20:08:54 version 1.111, 2021/05/04 18:47:36
Line 2427  sub print_cancel_request { Line 2427  sub print_cancel_request {
                       &Apache::loncommon::start_data_table_row().                        &Apache::loncommon::start_data_table_row().
                       '<td>'.$history{details}{'cdescr'}.'</td><td>'.                        '<td>'.$history{details}{'cdescr'}.'</td><td>'.
                       &Apache::lonlocal::locallocaltime($timestamp).'</td>'.                        &Apache::lonlocal::locallocaltime($timestamp).'</td>'.
                       '<td>'.$showtype.'</td>'.                        '<td>'.&mt($showtype).'</td>'.
                       &Apache::loncommon::end_data_table_row().                        &Apache::loncommon::end_data_table_row().
                       &Apache::loncommon::end_data_table().                        &Apache::loncommon::end_data_table().
                       '<br /><div class="LC_warning">';                        '<br /><div class="LC_warning">';
Line 2781  sub requestlog_display_filter { Line 2781  sub requestlog_display_filter {
                         $typename = $typenames->{$crstype};                          $typename = $typenames->{$crstype};
                     }                      }
                 }                  }
                 $output .= '<option value="'.$crstype.'"'.$selstr.'>'.$typename.'</option>'."\n";                  $output .= '<option value="'.$crstype.'"'.$selstr.'>'.&mt($typename).'</option>'."\n";
             }              }
             $output .= '</select></td>';              $output .= '</select></td>';
         }          }
Line 4066  sub process_request { Line 4066  sub process_request {
             } elsif ($disposition eq 'pending') {              } elsif ($disposition eq 'pending') {
                 my $pendingform;                  my $pendingform;
                 if ($crstype ne 'official') {                  if ($crstype ne 'official') {
                     $pendingform = &pending_validation_form($dom,$cnum,$crstype,$now,$token,                      $pendingform = &pending_validation_form($r,$dom,$cnum,$crstype,$now,$token,
                                                             $lonhost,$env{'form.cdescr'});                                                              $lonhost,$env{'form.cdescr'});
                 }                  }
                 if ($pendingform) {                  if ($pendingform) {
Line 4384  sub notification_information { Line 4384  sub notification_information {
 }  }
   
 sub pending_validation_form {  sub pending_validation_form {
     my ($cdom,$cnum,$crstype,$now,$token,$lonhost,$cdesc) = @_;      my ($r,$cdom,$cnum,$crstype,$now,$token,$lonhost,$cdesc) = @_;
     my $output;      my $output;
     my %postvalues = (      my %postvalues = (
                       'owner'      => $env{'user.name'}.':'.$env{'user.domain'},                        'owner'      => $env{'user.name'}.':'.$env{'user.domain'},
Line 4420  sub pending_validation_form { Line 4420  sub pending_validation_form {
                 my $hostname = &Apache::lonnet::hostname($lonhost);                  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 $alias = &Apache::lonnet::use_proxy_alias($r,$lonhost);
                   $hostname = $alias if ($alias ne '');
                 my $crscreator = $protocol.'://'.$hostname.'/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".
Removed from v.1.109  
changed lines
  Added in v.1.111

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