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

Diff for /loncom/interface/lonfeedback.pm between versions 1.351 and 1.352

version 1.351, 2012/03/17 14:49:29 version 1.352, 2012/04/29 22:02:02
Line 1807  END Line 1807  END
    $env{'course.'.$env{'request.course.id'}.'.domain'},     $env{'course.'.$env{'request.course.id'}.'.domain'},
    $env{'course.'.$env{'request.course.id'}.'.num'});     $env{'course.'.$env{'request.course.id'}.'.num'});
       unless (($contrib{'hidden'}=~/\.$idx\./) || ($contrib{'deleted'}=~/\.$idx\./)) {        unless (($contrib{'hidden'}=~/\.$idx\./) || ($contrib{'deleted'}=~/\.$idx\./)) {
             my $numoldver = 0;
           if ($contrib{$idx.':history'}) {            if ($contrib{$idx.':history'}) {
               if ($contrib{$idx.':history'} =~ /:/) {                if ($contrib{$idx.':history'} =~ /:/) {
                   my @oldversions = split(/:/,$contrib{$idx.':history'});                    my @oldversions = split(/:/,$contrib{$idx.':history'});
Line 1815  END Line 1816  END
                   $numoldver = 1;                    $numoldver = 1;
               }                }
           }            }
           if ($env{'form.replydisc'}) {            if ($idx > 0) {
               if ($contrib{$idx.':history'}) {                my (%msgversions,%subversions,$htmldecode);
                   if ($contrib{$idx.':history'} =~ /:/) {                $htmldecode = 0;
                       my @oldversions = split(/:/,$contrib{$idx.':history'});                if ($env{'form.replydisc'}) {
                       $numoldver = @oldversions;                    $htmldecode = 1;
                   } else {                }
                       $numoldver = 1;                &get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver);
                   }                &get_post_versions(\%subversions,$contrib{$idx.':subject'},$htmldecode,
               }                                   $numoldver);
               if ($idx > 0) {                $subject = $subversions{$numoldver};
                   my %msgversions = ();                if ($env{'form.replydisc'}) {
                   &get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver);  
                   $quote = $msgversions{$numoldver};                    $quote = $msgversions{$numoldver};
               }                    $subject = &HTML::Entities::encode(&mt('Re: ').$subject,'<>&"');
               if ($idx > 0) {                } else {
                   my %subversions = ();  
                   &get_post_versions(\%subversions,$contrib{$idx.':subject'},1,$numoldver);  
                   $subject = &mt('Re: ').$subversions{$numoldver};  
               }  
               $subject = &HTML::Entities::encode($subject,'<>&"');  
           } else {  
               $attachmenturls = $contrib{$idx.':attachmenturl'};  
               if ($idx > 0) {  
                   my %msgversions = ();  
                   &get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver);  
                   $comment = $msgversions{$numoldver};                    $comment = $msgversions{$numoldver};
                   my %subversions = ();  
                   &get_post_versions(\%subversions,$contrib{$idx.':subject'},0,$numoldver);  
                   $subject = $subversions{$numoldver};   
               }                }
             }
             if ($env{'form.editdisc'}) {
                 $attachmenturls = $contrib{$idx.':attachmenturl'};
               if (defined($contrib{$idx.':replyto'})) {                if (defined($contrib{$idx.':replyto'})) {
                   $parentmsg = $contrib{$idx.':replyto'};                    $parentmsg = $contrib{$idx.':replyto'};
               }                }
Removed from v.1.351  
changed lines
  Added in v.1.352

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