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

Diff for /loncom/interface/lonfeedback.pm between versions 1.78 and 1.79

version 1.78, 2004/04/28 21:13:13 version 1.79, 2004/04/28 23:59:53
Line 56  sub list_discussion { Line 56  sub list_discussion {
     }      }
     unless ($symb) { return ''; }      unless ($symb) { return ''; }
   
     my %dischash = &Apache::lonnet::restore($symb,$ENV{'request.course.id'}.'_discuss',$ENV{'user.domain'},$ENV{'user.name'});      my %dischash = &Apache::lonnet::restore($symb,'nohist_'.$ENV{'request.course.id'}.'_discuss',$ENV{'user.domain'},$ENV{'user.name'});
     my %readids = ();      my %readids = ();
     my $showonlyunread;      my $showonlyunread;
       my $prevread = 0;
   
     foreach my $key (keys %dischash) {      foreach my $key (keys %dischash) {
           if ($key eq 'lastread') {
               $prevread = $dischash{$key};
           }
         if ($key eq 'showonlyunread') {          if ($key eq 'showonlyunread') {
             $showonlyunread = $dischash{$key};              $showonlyunread = $dischash{$key};
         } else {          } else {
Line 94  sub list_discussion { Line 99  sub list_discussion {
     $ENV{'environment.remote'} eq 'off' ) {      $ENV{'environment.remote'} eq 'off' ) {
  $target='target="LONcom"';   $target='target="LONcom"';
     }      }
       
       my $now = time;
       my %discinfo = (
                      'lastread' => $now,
                      ); 
       &Apache::lonnet::cstore(\%discinfo,$symb,'nohist_'.$ENV{'request.course.id'}.'_discuss',$ENV{'user.domain'},$ENV{'user.name'});
   
     if ($contrib{'version'}) {      if ($contrib{'version'}) {
  for (my $id=1;$id<=$contrib{'version'};$id++) {   for (my $id=1;$id<=$contrib{'version'};$id++) {
     my $idx=$id;      my $idx=$id;
Line 201  sub list_discussion { Line 213  sub list_discussion {
     }      }
     $alldiscussion{$thisindex}=$idx;      $alldiscussion{$thisindex}=$idx;
     $index[$idx]=$thisindex;      $index[$idx]=$thisindex;
                     $discussionitems[$idx]='<p><table border="0" width="100%">'.                      my $posttime = $contrib{$idx.':timestamp'};
                         '<tr><td align="left"><b>'.$subject.'</b>&nbsp;&nbsp;'.                      my $spansize = 2;
                       $discussionitems[$idx]='<p><table border="0" width="100%"><tr>';
                       if ($prevread > 0 && $prevread < $posttime) {
                           $discussionitems[$idx] .= '<td align="left" bgcolor="#FFFFFF"><font color="#FF0000">NEW</font></td>';
                           $spansize ++;
                       }
                       $discussionitems[$idx] .= '<td align ="left">&nbsp;&nbsp;'.
                           '<b>'.$subject.'</b>&nbsp;&nbsp;'.
                         $sender.'</b> '.$vgrlink.' ('.                          $sender.'</b> '.$vgrlink.' ('.
                         localtime($contrib{$idx.':timestamp'}).                          localtime($posttime).')'.
                         ')</td><td align="right">&nbsp;&nbsp;'.$ctlink.'</td></tr>';                          '</td><td align="right">&nbsp;&nbsp;'.
                           $ctlink.'</td></tr>';
                     if ($showonlyunread && $readids{$idx}) {                      if ($showonlyunread && $readids{$idx}) {
                         $discussionitems[$idx] .= '<tr><td colspan="2" align="right"><i><font size="-1">Check "Show all posts?" or "Mark unread?", then "Save read settings" to display message</font></i></td></tr></table>';                          $discussionitems[$idx] .= '<tr><td colspan="'.$spansize.'" align="right"><i><font size="-1">Check "Show all posts?" or "Mark unread?", then "Save read settings" to display message</font></i></td></tr></table>';
                     } else {                      } else {
                         $discussionitems[$idx] .= '</table><blockquote>'.$message.'</blockquote></p>';                          $discussionitems[$idx] .= '</table><blockquote>'.$message.'</blockquote></p>';
                     }                      }
Line 306  sub mail_screen { Line 326  sub mail_screen {
   my $message=$contrib{$idx.':message'};    my $message=$contrib{$idx.':message'};
   $message=~s/\n/\<br \/\>/g;    $message=~s/\n/\<br \/\>/g;
   $quote='<blockquote>'.&Apache::lontexconvert::msgtexconverted($message).'</blockquote>';    $quote='<blockquote>'.&Apache::lontexconvert::msgtexconverted($message).'</blockquote>';
           $subject = 'Re: '.$contrib{$idx.':subject'};            if ($idx > 0) {
                 $subject = 'Re: '.$contrib{$idx.':subject'};
             }
       }        }
   }    }
   my $latexHelp = Apache::loncommon::helpLatexCheatsheet();    my $latexHelp = Apache::loncommon::helpLatexCheatsheet();
Line 764  sub handler { Line 786  sub handler {
           } elsif ($ENV{'form.onlyunread'}) {            } elsif ($ENV{'form.onlyunread'}) {
               $readinghash{'showonlyunread'} = 1;                $readinghash{'showonlyunread'} = 1;
           }            }
           &Apache::lonnet::cstore(\%readinghash,$symb,$ENV{'request.course.id'}.'_discuss',$ENV{'user.domain'},$ENV{'user.name'});            &Apache::lonnet::cstore(\%readinghash,$symb,'nohist_'.$ENV{'request.course.id'}.'_discuss',$ENV{'user.domain'},$ENV{'user.name'});
       }        }
                                                                                                                                                                     
       &redirect_back($r,&Apache::lonnet::clutter($url),&mt('Changed reading status'),'0','0');        &redirect_back($r,&Apache::lonnet::clutter($url),&mt('Changed reading status'),'0','0');
Line 791  sub handler { Line 813  sub handler {
       }        }
                                                                                                                                                                     
       if ($chgcount > 0) {        if ($chgcount > 0) {
           &Apache::lonnet::cstore(\%readinghash,$symb,$ENV{'request.course.id'}.'_discuss',$ENV{'user.domain'},$ENV{'user.name'});            &Apache::lonnet::cstore(\%readinghash,$symb,'nohist_'.$ENV{'request.course.id'}.'_discuss',$ENV{'user.domain'},$ENV{'user.name'});
       }        }
   }    }
   
Line 830  sub handler { Line 852  sub handler {
      $ENV{'course.'.$ENV{'request.course.id'}.'.num'});       $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
   
     &redirect_back($r,&Apache::lonnet::clutter($url),      &redirect_back($r,&Apache::lonnet::clutter($url),
        &mt('Changed read status').'<br />','0','0');         &mt('Changed discussion status').'<br />','0','0');
   } elsif (($ENV{'form.threadedon'}) || ($ENV{'form.threadedoff'})) {    } elsif (($ENV{'form.threadedon'}) || ($ENV{'form.threadedoff'})) {
       &Apache::loncommon::content_type($r,'text/html');        &Apache::loncommon::content_type($r,'text/html');
       $r->send_http_header;        $r->send_http_header;
Removed from v.1.78  
changed lines
  Added in v.1.79

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