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

Diff for /loncom/interface/lonfeedback.pm between versions 1.108 and 1.109

version 1.108, 2004/07/28 18:50:26 version 1.109, 2004/07/29 18:21:44
Line 508  sub list_discussion { Line 508  sub list_discussion {
                         $discussionitems[$idx] .= '<td align ="left">&nbsp;&nbsp;'.                          $discussionitems[$idx] .= '<td align ="left">&nbsp;&nbsp;'.
                             '<b>'.$subject.'</b>&nbsp;&nbsp;'.                              '<b>'.$subject.'</b>&nbsp;&nbsp;'.
                             $sender.'</b> '.$vgrlink.' ('.                              $sender.'</b> '.$vgrlink.' ('.
                             localtime($posttime).')</td></tr>'.                              &Apache::lonlocal::locallocaltime($posttime).')</td></tr>'.
                             '</table><blockquote>'.$message.'</blockquote></p>';                              '</table><blockquote>'.$message.'</blockquote></p>';
                         if ($contrib{$idx.':history'}) {                          if ($contrib{$idx.':history'}) {
                             my @postversions = ();                              my @postversions = ();
                             $discussionitems[$idx] .= '<br />'.&mt('This post has been edited by the author.').'<br/>'.&mt('Earlier version(s) were posted on: ');                              $discussionitems[$idx] .= '<br />'.&mt('This post has been edited by the author.');
                               if ($seeid) {
                                   $discussionitems[$idx] .= '&nbsp;&nbsp;<a href="/adm/feedback?allversions='.$ressymb.':::'.$idx.'">'.&mt('Display all versions').'</a>';
                               }
                               $discussionitems[$idx].='<br/>'.&mt('Earlier version(s) were posted on: ');
                             if ($contrib{$idx.':history'} =~ m/:/) {                              if ($contrib{$idx.':history'} =~ m/:/) {
                                 @postversions = split/:/,$contrib{$idx.':history'};                                  @postversions = split/:/,$contrib{$idx.':history'};
                             } else {                              } else {
Line 522  sub list_discussion { Line 526  sub list_discussion {
                                 my $version = $i+1;                                  my $version = $i+1;
                                 $discussionitems[$idx] .= '<b>'.$version.'.</b> - '.&Apache::lonlocal::locallocaltime($postversions[$i]).'  ';                                  $discussionitems[$idx] .= '<b>'.$version.'.</b> - '.&Apache::lonlocal::locallocaltime($postversions[$i]).'  ';
                             }                              }
                             $discussionitems[$idx] .= '<br />';  
                         }                          }
                     }                      }
                 }                  }
Line 2254  sub handler { Line 2257  sub handler {
 # --------------------------- Get query string for limited number of parameters  # --------------------------- Get query string for limited number of parameters
   
   &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
          ['hide','unhide','deldisc','postdata','preview','replydisc','editdisc','threadedon','threadedoff','onlyunread','allposts','previous','markread','markonread','markondisp','modifydisp','changes','navmaps','navurl','sortfilter','sortposts','applysort','rolefilter','statusfilter','sectionpick','posterlist','userpick','attach','origpage','currnewattach','deloldattach','keepold']);           ['hide','unhide','deldisc','postdata','preview','replydisc','editdisc','threadedon','threadedoff','onlyunread','allposts','previous','markread','markonread','markondisp','modifydisp','changes','navmaps','navurl','sortfilter','sortposts','applysort','rolefilter','statusfilter','sectionpick','posterlist','userpick','attach','origpage','currnewattach','deloldattach','keepold','allversions']);
     if ($ENV{'form.allversions'}) {
         &Apache::loncommon::content_type($r,'text/html');
         $r->send_http_header;
         my $bodytag=&Apache::loncommon::bodytag('Discussion Post Versions',
                                             '','');
         $r->print (<<END);
   <html>
   <head>
   <title>Post Versions</title>
   <meta http-equiv="pragma" content="no-cache" />
   </head>
   $bodytag
   END
         my $crs='/'.$ENV{'request.course.id'};
         if ($ENV{'request.course.sec'}) {
             $crs.='_'.$ENV{'request.course.sec'};
         }
         $crs=~s/\_/\//g;
         my $seeid=&Apache::lonnet::allowed('rin',$crs);
         my ($symb,$idx)=split(/\:\:\:/,$ENV{'form.allversions'});
         my $ressymb=$symb;
         unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {
             $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;
         }
         if ($idx > 0) {
             my %contrib=&Apache::lonnet::restore($ressymb,$ENV{'request.course.id'},
                  $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
                  $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
             if ($contrib{$idx.':history'}) {
                 my $attachmenturls = $contrib{$idx.':attachmenturl'};
                 my @postversions = ();
                 if ($contrib{$idx.':history'} =~ m/:/) {
                     @postversions = split/:/,$contrib{$idx.':history'};
                 } else {
                     @postversions = ("$contrib{$idx.':history'}");
                 }
                 if (@postversions > 0) {
                     push @postversions,$contrib{$idx.':timestamp'};
                     my $screenname=&Apache::loncommon::screenname(
                                               $contrib{$idx.':sendername'},
                                               $contrib{$idx.':senderdomain'});
                     my $plainname=&Apache::loncommon::nickname(
                                               $contrib{$idx.':sendername'},
                                               $contrib{$idx.':senderdomain'});
                     my $sender=&Apache::loncommon::aboutmewrapper(
                                        $plainname,
                                        $contrib{$idx.':sendername'},
                                        $contrib{$idx.':senderdomain'}).' ('.
                                        $contrib{$idx.':sendername'}.' at '.
                                        $contrib{$idx.':senderdomain'}.')';
                     if ($contrib{$idx.':anonymous'}) {
                         $sender.=' ['.&mt('anonymous').'] '.$screenname;
                     }
                     $r->print('<b>'.$sender.'</b><br /><ul>');
                     for (my $i=0; $i<@postversions; $i++) {
                         my ($timesent,$message,$subject,$attachmsg);
                         $timesent = &Apache::lonlocal::locallocaltime($postversions[$i]);
                         if ($i == @postversions-1) {
                             ($message)=($contrib{$idx.':message'} =~ /.*::::\Q$i\E::::(.+?)$/si);
                             ($subject)=($contrib{$idx.':subject'} =~ /.*::::\Q$i\E::::(.+?)$/si);
                         } else { 
                             ($message)=($contrib{$idx.':message'} =~ /::::\Q$i\E::::(.+?)::::/si);
                             ($subject)=($contrib{$idx.':subject'} =~ /::::\Q$i\E::::(.+?)::::/si);
                         }
                         $message=~s/\n/\<br \/\>/g;
                         $message=&Apache::lontexconvert::msgtexconverted($message);
                         $subject=~s/\n/\<br \/\>/g;
                         $subject=&Apache::lontexconvert::msgtexconverted($subject);
                         if ($attachmenturls) {
                             my @attachments = ();
                             my %currattach = ();
                             &extract_attachments($attachmenturls,$idx,$i,\$attachmsg,\@attachments,\%currattach);
                         }
                         if ($attachmsg) {
                             $attachmsg = '<br />Attachments:'.$attachmsg.'<br />';
                         } else {
                             $attachmsg = '<br />';
                         }
                         $r->print (<<END);
   <li><b>$subject</b>, $timesent<br />
   $message<br />
   $attachmsg</li>
   END
                     }
                     $r->print('</ul></body></html>');
                 }
             }
         }
         return OK;
     }
   if ($ENV{'form.posterlist'}) {    if ($ENV{'form.posterlist'}) {
       &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.108  
changed lines
  Added in v.1.109

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