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

Diff for /loncom/interface/lonfeedback.pm between versions 1.232 and 1.233

version 1.232, 2006/12/08 20:09:29 version 1.233, 2006/12/08 22:35:56
Line 90  sub list_discussion { Line 90  sub list_discussion {
     }      }
     if (not &discussion_visible($status)) {      if (not &discussion_visible($status)) {
         if ($mode ne 'board') {          if ($mode ne 'board') {
             my $encsymb=&Apache::lonenc::check_encrypt($ressymb);               &Apache::lonenc::check_encrypt(\$ressymb); 
             return &send_message_link($encsymb);              return &send_message_link($ressymb);
         }          }
     }      }
     if ($group ne '' && $mode eq 'board') {      if ($group ne '' && $mode eq 'board') {
Line 103  sub list_discussion { Line 103  sub list_discussion {
     my ($blocked,$blocktext) = &blocking_posts('boards',1);      my ($blocked,$blocktext) = &blocking_posts('boards',1);
     if ($blocked) {      if ($blocked) {
         if ($mode ne 'board') {          if ($mode ne 'board') {
             my $encsymb=&Apache::lonenc::check_encrypt($ressymb);              &Apache::lonenc::check_encrypt(\$ressymb);
             return $blocktext.'<br />'.&send_message_link($encsymb);              return $blocktext.'<br />'.&send_message_link($ressymb);
         }          }
     }      }
   
Line 1755  END Line 1755  END
     if ($env{'form.editdisc'} || $env{'form.replydisc'}) {      if ($env{'form.editdisc'} || $env{'form.replydisc'}) {
         my $now = time;          my $now = time;
         my $ressymb = $symb;          my $ressymb = $symb;
           &Apache::lonenc::check_encrypt(\$ressymb);
         my $postidx = '';          my $postidx = '';
         if ($env{'form.editdisc'}) {          if ($env{'form.editdisc'}) {
             $postidx = $idx;              $postidx = $idx;
Line 2498  sub redirect_back { Line 2499  sub redirect_back {
           $feedurl .= '?group='.$group.$refarg;            $feedurl .= '?group='.$group.$refarg;
       }        }
   }     } 
   $feedurl=&Apache::lonenc::check_encrypt($feedurl);    &Apache::lonenc::check_encrypt(\$feedurl);
   my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');    my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
   my %onload;    my %onload;
   if ($env{'environment.remote'} ne 'off') {    if ($env{'environment.remote'} ne 'off') {
Line 2555  sub no_redirect_back { Line 2556  sub no_redirect_back {
               
   my $end_page = &Apache::loncommon::end_page();    my $end_page = &Apache::loncommon::end_page();
   
   $feedurl=&Apache::lonenc::check_encrypt($feedurl);    &Apache::lonenc::check_encrypt(\$feedurl);
   my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');    my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
   $r->print (<<ENDNOREDIRTWO);    $r->print (<<ENDNOREDIRTWO);
 $start_page  $start_page
Line 3782  ENDREDIR Line 3783  ENDREDIR
   &Apache::loncommon::content_type($r,'text/html');    &Apache::loncommon::content_type($r,'text/html');
   $r->send_http_header;    $r->send_http_header;
 # Unable to give feedback  # Unable to give feedback
             &Apache::lonenc::check_encrypt(\$feedurl);
   &no_redirect_back($r,$feedurl);    &no_redirect_back($r,$feedurl);
   return OK;    return OK;
       }        }
 # --------------------------------------------------- Print login screen header  # --------------------------------------------------- Print login screen header
       unless ($env{'form.sendit'}) {        unless ($env{'form.sendit'}) {
             &Apache::lonenc::check_encrypt(\$feedurl);
   &Apache::loncommon::content_type($r,'text/html');    &Apache::loncommon::content_type($r,'text/html');
   $r->send_http_header;    $r->send_http_header;
   my $options=&screen_header($feedurl,$symb);    my $options=&screen_header($feedurl,$symb);
Removed from v.1.232  
changed lines
  Added in v.1.233

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