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

Diff for /loncom/interface/lonsupportreq.pm between versions 1.55.4.2 and 1.55.4.3

version 1.55.4.2, 2010/02/13 00:09:20 version 1.55.4.3, 2010/04/14 07:31:21
Line 77  sub print_request_form { Line 77  sub print_request_form {
     $browser = $env{'browser.type'};      $browser = $env{'browser.type'};
     $bversion = $env{'browser.version'};      $bversion = $env{'browser.version'};
     $uhost = $env{'request.host'};      $uhost = $env{'request.host'};
     $uname = $env{'user.name'};      my ($uname,$udom);
     $udom = $env{'user.domain'};      if (($env{'user.name'} ne 'public') && ($env{'user.domain'} ne 'public')) {
           $uname = $env{'user.name'};
           $udom = $env{'user.domain'};
       }
     $uhome = $env{'user.home'};      $uhome = $env{'user.home'};
     $urole = $env{'request.role'};      $urole = $env{'request.role'};
     $usec = $env{'request.course.sec'};      $usec = $env{'request.course.sec'};
Line 266  function initialize_codes() { Line 269  function initialize_codes() {
                &Apache::lonhtmlcommon::row_closure();                 &Apache::lonhtmlcommon::row_closure();
     $num ++;      $num ++;
     $i = $num%2;      $i = $num%2;
     if (defined($env{'user.name'})) {      if (defined($uname)) {
         $output .= &Apache::lonhtmlcommon::row_title($lt{'emac'},undef,$css[$i]).          $output .= &Apache::lonhtmlcommon::row_title($lt{'emac'},undef,$css[$i]).
                    '<input type="text" size="50" name="cc" value="" /><br />'."\n".                     '<input type="text" size="50" name="cc" value="" /><br />'."\n".
                    &Apache::lonhtmlcommon::row_closure();                     &Apache::lonhtmlcommon::row_closure();
Line 428  function initialize_codes() { Line 431  function initialize_codes() {
                &Apache::lonhtmlcommon::row_closure();                 &Apache::lonhtmlcommon::row_closure();
     $num ++;      $num ++;
     $i = $num%2;       $i = $num%2; 
     if (defined($env{'user.name'})) {      if (defined($uname)) {
         $output .= &Apache::lonhtmlcommon::row_title($lt{'opfi'},undef,$css[$i]).          $output .= &Apache::lonhtmlcommon::row_title($lt{'opfi'},undef,$css[$i]).
                    ' <input type="file" name="screenshot" size="20" /><br />'.$lt{'uplf'}."\n".                     ' <input type="file" name="screenshot" size="20" /><br />'.$lt{'uplf'}."\n".
         &Apache::lonhtmlcommon::row_closure();          &Apache::lonhtmlcommon::row_closure();
Line 474  sub print_request_receipt { Line 477  sub print_request_receipt {
     my $to = &Apache::loncommon::build_recipient_list(undef,'helpdeskmail',      my $to = &Apache::loncommon::build_recipient_list(undef,'helpdeskmail',
                                                       $defdom,$origmail);                                                        $defdom,$origmail);
     my $from = $admin;      my $from = $admin;
       my $bcc;
       my %domconfig =
            &Apache::lonnet::get_dom('configuration',['contacts'],$defdom);
       if (ref($domconfig{'contacts'}) eq 'HASH') {
           if (exists($domconfig{'contacts'}{'helpdeskmail'})) {
               if (ref($domconfig{'contacts'}{'helpdeskmail'}) eq 'HASH') {
                   my $bccmail = $domconfig{'contacts'}{'helpdeskmail'}{'bcc'};
                   if ($bccmail ne '') {
                       my @bccs = split(/,/,$bccmail);
                       my @ok_bccs;
                       foreach my $bcc (@bccs) {
                           $bcc =~ s/^\s+//g;
                           $bcc =~ s/\s+$//g;
                           if ($bcc =~ m/^[^\@]+\@[^\@]+$/) {
                               if (!(grep(/^\Q$bcc\E$/,@ok_bccs))) {
                                   push(@ok_bccs,$bcc);
                               }
                           }
                       }
                       if (@ok_bccs > 0) {
                           $bcc = join(', ',@ok_bccs);
                       }
                   }
               }
           }
       }
     my $reporttime = &Apache::lonlocal::locallocaltime(time);      my $reporttime = &Apache::lonlocal::locallocaltime(time);
     my @formvars = ('username','email','uname','udom','sourceurl','phone','section','coursecode','title','subject','description','screenshot');      my @formvars = ('username','email','uname','udom','sourceurl','phone','section','coursecode','title','subject','description','screenshot');
   
Line 669  END Line 698  END
   
     my $attachmentpath = '';      my $attachmentpath = '';
     my $attachmentsize = '';      my $attachmentsize = '';
     if (defined($env{'user.name'})) {      if ((defined($env{'user.name'})) && ($env{'user.name'} ne 'public')
           && ($env{'user.domain'} ne 'public')) {
         if ($env{'form.screenshot.filename'}) {          if ($env{'form.screenshot.filename'}) {
             $attachmentsize = length($env{'form.screenshot'});              $attachmentsize = length($env{'form.screenshot'});
             if ($attachmentsize > 131072) {              if ($attachmentsize > 131072) {
Line 717  END Line 747  END
         my $cc_string = join(', ',@ok_ccs);          my $cc_string = join(', ',@ok_ccs);
         $msg->add("Cc" => $cc_string);          $msg->add("Cc" => $cc_string);
     }      }
       if ($bcc ne '') {
           $msg->add("Bcc" => $bcc);
       }
   
     if ($attachmentpath) {      if ($attachmentpath) {
         my ($type, $encoding) = MIME::Types::by_suffix($attachmentpath);          my ($type, $encoding) = MIME::Types::by_suffix($attachmentpath);
Removed from v.1.55.4.2  
changed lines
  Added in v.1.55.4.3

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