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

Diff for /loncom/interface/lonsupportreq.pm between versions 1.6 and 1.9

version 1.6, 2004/07/19 16:35:12 version 1.9, 2004/09/13 13:31:52
Line 544  Date/Time: $reporttime Line 544  Date/Time: $reporttime
 $bodytag  $bodytag
  <h3>A support request has been sent to $to</h3>   <h3>A support request has been sent to $to</h3>
 END  END
     } else {       } else {
         $to = 'helpdesk@lon-capa.org';          $to = $admin;
         $r->print(<<END);          if ($to =~ m/^[^\@]+\@[^\@]+$/) {
               $r->print(<<END);
   <html>
   <head>
    <title>LON-CAPA support request recorded</title>
   </head>
   $bodytag
    <h3>A support request has been sent to $to</h3>
   END
           } else {
               $r->print(<<END);
 <html>  <html>
 <head>  <head>
  <title>LON-CAPA support request recorded</title>   <title>LON-CAPA support request recorded</title>
 </head>  </head>
 $bodytag  $bodytag
  <h3>Warning: Problem with support e-mail address</h3>   <h3>Warning: Problem with support e-mail address</h3>
 As the e-mail address provided for this LON-CAPA server ($to) does not appear to be a valid e-mail address, your support request has <b>not</b> been sent to the LON-CAPA support staff at your institution. Instead a copy has been sent to the LON-CAPA support team at Michigan State University.   As the e-mail address provided for this LON-CAPA server ($to) does not appear to be a valid e-mail address, your support request has <b>not</b> been sent to the LON-CAPA support staff or administrator at your institution. Instead a copy has been sent to the LON-CAPA support team at Michigan State University. 
 END  END
               $to = 'helpdesk@lon-capa.org';
           }
     }      }
     if (defined($ENV{'form.email'})) {      if (defined($ENV{'form.email'})) {
         if ($ENV{'form.email'} =~ m/^[^\@]+\@[^\@]+$/) {          if ($ENV{'form.email'} =~ m/^[^\@]+\@[^\@]+$/) {
Line 737  sub build_code_selections { Line 749  sub build_code_selections {
             }              }
             $$idlist{$$codetitles[0]} = join('","',@contents);              $$idlist{$$codetitles[0]} = join('","',@contents);
             $$idnums{$$codetitles[0]} = scalar(@contents);              $$idnums{$$codetitles[0]} = scalar(@contents);
             print STDERR "idnums for {$$codetitles[0] is $$idnums{$$codetitles[0]}\n";  
             if (defined($$cat_titles{$$codetitles[0]})) {              if (defined($$cat_titles{$$codetitles[0]})) {
                 $$idlist_titles{$$codetitles[0]} = join('","',@contents_titles);                  $$idlist_titles{$$codetitles[0]} = join('","',@contents_titles);
             }              }
Line 755  sub build_code_selections { Line 766  sub build_code_selections {
                 }                  }
                 $$idlist{$$codetitles[1]}{$key_a} = join('","',@sorted_a);                  $$idlist{$$codetitles[1]}{$key_a} = join('","',@sorted_a);
                 $$idnums{$$codetitles[1]}{$key_a} = scalar(@sorted_a);                  $$idnums{$$codetitles[1]}{$key_a} = scalar(@sorted_a);
                 print STDERR "idnums for {$$codetitles[1]  and $key_a is $$idnums{$$codetitles[1]}{$key_a}\n";  
                 if (defined($$cat_titles{$$codetitles[1]})) {                  if (defined($$cat_titles{$$codetitles[1]})) {
                     $$idlist_titles{$$codetitles[1]}{$key_a} = join('","',@sorted_a_titles);                      $$idlist_titles{$$codetitles[1]}{$key_a} = join('","',@sorted_a_titles);
                 }                  }
Line 837  sub recurse_list { Line 847  sub recurse_list {
     if ($num == 0) {      if ($num == 0) {
         if (!grep/^$$codes{$cid}{$$codetitles[0]}$/,@{$$idarrays{$$codetitles[0]}}) {          if (!grep/^$$codes{$cid}{$$codetitles[0]}$/,@{$$idarrays{$$codetitles[0]}}) {
             push @{$$idarrays{$$codetitles[0]}}, $$codes{$cid}{$$codetitles[0]};              push @{$$idarrays{$$codetitles[0]}}, $$codes{$cid}{$$codetitles[0]};
             print STDERR "Adding $$codes{$cid}{$$codetitles[0]} to $$codetitles[0]\n";  
         }          }
     } elsif ($num == 1) {      } elsif ($num == 1) {
         if (defined($$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}})) {          if (defined($$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}})) {
Removed from v.1.6  
changed lines
  Added in v.1.9

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