Diff for /loncom/interface/lonsupportreq.pm between versions 1.98 and 1.100

version 1.98, 2019/08/11 15:15:40 version 1.100, 2020/06/09 21:32:32
Line 319  $jscript Line 319  $jscript
 $loaditems  $loaditems
 // ]]>  // ]]>
 </script>  </script>
 <script type="text/javascript" src="/res/adm/includes/file_upload.js"></script>  
 ENDJS  ENDJS
     if ($recaptcha_version >=2) {      if ($knownuser) {
           $js .="\n".'<script type="text/javascript" src="/res/adm/includes/file_upload.js"></script>';
       } elsif ($recaptcha_version >=2) {
         $js.= "\n".'<script src="https://www.google.com/recaptcha/api.js"></script>'."\n";          $js.= "\n".'<script src="https://www.google.com/recaptcha/api.js"></script>'."\n";
     }      }
     my %add_entries = (      my %add_entries = (
Line 1116  END Line 1117  END
     }      }
   
     # Compose and send a MIME email      # Compose and send a MIME email
     &Apache::loncommon::mime_email($from, $to, $subject, $supportmsg, $cc_string, $bcc,       &Apache::loncommon::mime_email($from,'',$to,$subject,$supportmsg,$cc_string,
                                     $attachmentpath, $fname, $attachment_text);                                     $bcc,$attachmentpath,$fname,$attachment_text);
   
     if ($attachmentpath =~ m|$Apache::lonnet::perlvar{'lonDaemons'}/tmp/helprequests/(\d+)/[^/]+|) {      if ($attachmentpath =~ m|$Apache::lonnet::perlvar{'lonDaemons'}/tmp/helprequests/(\d+)/[^/]+|) {
         unlink($attachmentpath);          unlink($attachmentpath);

Removed from v.1.98  
changed lines
  Added in v.1.100


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