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

Diff for /loncom/interface/lonfeedback.pm between versions 1.128 and 1.132

version 1.128, 2004/10/04 21:35:52 version 1.132, 2004/11/14 07:54:41
Line 37  use Apache::lontexconvert(); Line 37  use Apache::lontexconvert();
 use Apache::lonlocal; # must not have ()  use Apache::lonlocal; # must not have ()
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
 use Apache::lonnavmaps;  use Apache::lonnavmaps;
   use Apache::lonenc();
 use HTML::LCParser();  use HTML::LCParser();
 use Apache::lonspeller();  use Apache::lonspeller();
 use Cwd;  use Cwd;
Line 99  sub list_discussion { Line 100  sub list_discussion {
             $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;              $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;
         }          }
     }      }
       $ressymb=&Apache::lonenc::check_encrypt($ressymb);
 # Get discussion display settings for this discussion  # Get discussion display settings for this discussion
     my $lastkey = $ressymb.'_lastread';      my $lastkey = $ressymb.'_lastread';
     my $showkey = $ressymb.'_showonlyunread';      my $showkey = $ressymb.'_showonlyunread';
Line 360  imscp_v1p1.xsd http://www.imsglobal.org/ Line 361  imscp_v1p1.xsd http://www.imsglobal.org/
    }     }
 </script>  </script>
             |;              |;
     $discussion.='<form name="readchoices" method="post" action="/adm/feedback?chgreads='.$symb.'"><table bgcolor="#AAAAAA" cellpadding="2" cellspacing="2" border="0">';      $discussion.='<form name="readchoices" method="post" action="/adm/feedback?chgreads='.$ressymb.'"><table bgcolor="#AAAAAA" cellpadding="2" cellspacing="2" border="0">';
     $discussion .='<tr><td bgcolor="#DDDDBB" colspan="'.$colspan.'">'.      $discussion .='<tr><td bgcolor="#DDDDBB" colspan="'.$colspan.'">'.
  '<table border="0" width="100%" bgcolor="#DDDDBB"><tr>';   '<table border="0" width="100%" bgcolor="#DDDDBB"><tr>';
     if ($visible>2) {      if ($visible>2) {
Line 678  ENDDISCUSS Line 679  ENDDISCUSS
  ($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) {   ($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) {
     if ($outputtarget ne 'tex') {      if ($outputtarget ne 'tex') {
  $discussion.='<table bgcolor="#BBBBBB"><tr><td><a href="/adm/feedback?replydisc='.   $discussion.='<table bgcolor="#BBBBBB"><tr><td><a href="/adm/feedback?replydisc='.
     $symb.':::" '.$target.'>'.      $ressymb.':::" '.$target.'>'.
     '<img src="/adm/lonMisc/chat.gif" border="0" />'.      '<img src="/adm/lonMisc/chat.gif" border="0" />'.
     &mt('Post Discussion').'</a></td></tr></table>';      &mt('Post Discussion').'</a></td></tr></table>';
     }      }
Line 2049  sub redirect_back { Line 2050  sub redirect_back {
           $sectag = '<input type="hidden" name="sectionpick" value="'.$secpick.'" />';            $sectag = '<input type="hidden" name="sectionpick" value="'.$secpick.'" />';
       }        }
   }    }
     $feedurl=&Apache::lonenc::check_encrypt($feedurl);
   $r->print (<<ENDREDIR);    $r->print (<<ENDREDIR);
 <html>  <html>
 <head>  <head>
Line 2086  sub no_redirect_back { Line 2088  sub no_redirect_back {
 ENDNOREDIR  ENDNOREDIR
   
   if ($feedurl!~/^\/adm\/feedback/) {     if ($feedurl!~/^\/adm\/feedback/) { 
     $r->print('<meta HTTP-EQUIV="Refresh" CONTENT="2; url='.$feedurl.'">');        $r->print('<meta HTTP-EQUIV="Refresh" CONTENT="2; url='.
    &Apache::lonenc::check_encrypt($feedurl).'">');
   }    }
       $feedurl=&Apache::lonenc::check_encrypt($feedurl);
   $r->print (<<ENDNOREDIRTWO);    $r->print (<<ENDNOREDIRTWO);
 </head>  </head>
 <body bgcolor="#FFFFFF" onLoad='if (window.name!="loncapaclient") { self.close(); }'>  <body bgcolor="#FFFFFF" onLoad='if (window.name!="loncapaclient") { self.close(); }'>
Line 2186  sub clear_out_html { Line 2189  sub clear_out_html {
 sub assemble_email {  sub assemble_email {
   my ($feedurl,$message,$prevattempts,$usersaw,$useranswer)=@_;    my ($feedurl,$message,$prevattempts,$usersaw,$useranswer)=@_;
   my $email=<<"ENDEMAIL";    my $email=<<"ENDEMAIL";
 Refers to <a href="$feedurl">$feedurl</a>  
   
 $message  $message
 ENDEMAIL  ENDEMAIL
     my $citations=<<"ENDCITE";      my $citations=<<"ENDCITE";
Line 2339  sub adddiscuss { Line 2340  sub adddiscuss {
             $contrib{'history'} = '';              $contrib{'history'} = '';
             my $numoldver = 0;              my $numoldver = 0;
             my ($oldsymb,$oldidx)=split(/\:\:\:/,$ENV{'form.editdisc'});              my ($oldsymb,$oldidx)=split(/\:\:\:/,$ENV{'form.editdisc'});
       &Apache::lonenc::check_decrypt(\$oldsymb);
             $oldsymb=~s|(bulletin___\d+___)adm/wrapper/|$1|;              $oldsymb=~s|(bulletin___\d+___)adm/wrapper/|$1|;
 # get timestamp for last post and history  # get timestamp for last post and history
             my %oldcontrib=&Apache::lonnet::restore($oldsymb,$ENV{'request.course.id'},              my %oldcontrib=&Apache::lonnet::restore($oldsymb,$ENV{'request.course.id'},
Line 2799  END Line 2801  END
       my $seeid=&Apache::lonnet::allowed('rin',$crs);        my $seeid=&Apache::lonnet::allowed('rin',$crs);
       my ($symb,$idx)=split(/\:\:\:/,$ENV{'form.allversions'});        my ($symb,$idx)=split(/\:\:\:/,$ENV{'form.allversions'});
       my $ressymb=$symb;        my $ressymb=$symb;
         &Apache::lonenc::check_decrypt(\$ressymb);
       unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {        unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {
           $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;            $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;
       }        }
Line 2840  END Line 2843  END
       my $previous=$ENV{'form.previous'};        my $previous=$ENV{'form.previous'};
 # backward compatibility (bulletin boards used to be 'wrapped')  # backward compatibility (bulletin boards used to be 'wrapped')
       my $ressymb=$symb;        my $ressymb=$symb;
         &Apache::lonenc::check_decrypt(\$ressymb);
       unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {        unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {
           $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;            $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;
       }        }
Line 2919  END Line 2923  END
       foreach (@resources) {        foreach (@resources) {
 # backward compatibility (bulletin boards used to be 'wrapped')  # backward compatibility (bulletin boards used to be 'wrapped')
           my $ressymb=$_;            my $ressymb=$_;
     &Apache::lonenc::check_decrypt(\$ressymb);
           if ($ressymb =~ m/bulletin___\d+___/) {            if ($ressymb =~ m/bulletin___\d+___/) {
               unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {                unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {
                   $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper/|;                    $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper/|;
Line 2976  ENDREDIR Line 2981  ENDREDIR
           my $symb=$ENV{'form.toggoff'}?$ENV{'form.toggoff'}:$ENV{'form.toggon'};            my $symb=$ENV{'form.toggoff'}?$ENV{'form.toggoff'}:$ENV{'form.toggon'};
           my $ressymb = $symb;            my $ressymb = $symb;
           ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);            ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);
     &Apache::lonenc::check_decrypt(\$ressymb);
           unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {            unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {
               $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;                $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;
           }            }
Line 2993  ENDREDIR Line 2999  ENDREDIR
           my $symb=$ENV{'form.markondisp'}?$ENV{'form.markondisp'}:$ENV{'form.markonread'};            my $symb=$ENV{'form.markondisp'}?$ENV{'form.markondisp'}:$ENV{'form.markonread'};
           my $ressymb = $symb;            my $ressymb = $symb;
           ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);            ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);
     &Apache::lonenc::check_decrypt(\$ressymb);
           unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {            unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {
               $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;                $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;
           }            }
Line 3022  ENDREDIR Line 3029  ENDREDIR
           }            }
           my $ressymb = $symb;            my $ressymb = $symb;
           ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);            ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);
     &Apache::lonenc::check_decrypt(\$ressymb);
           unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {            unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {
               $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;                $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;
           }            }
Line 3049  ENDREDIR Line 3057  ENDREDIR
       my $symb=$ENV{'form.markread'};        my $symb=$ENV{'form.markread'};
       my $ressymb = $symb;        my $ressymb = $symb;
       my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);        my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);
         &Apache::lonenc::check_decrypt(\$ressymb);
       unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {        unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {
           $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;            $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;
       }        }
Line 3231  ENDREDIR Line 3240  ENDREDIR
           $feedurl=&Apache::lonnet::clutter($url);            $feedurl=&Apache::lonnet::clutter($url);
       }        }
   }    }
     &Apache::lonenc::check_decrypt(\$symb);
   my $goahead=1;    my $goahead=1;
   if ($feedurl=~/\.(problem|exam|quiz|assess|survey|form)$/) {    if ($feedurl=~/\.(problem|exam|quiz|assess|survey|form)$/) {
       unless ($symb) { $goahead=0; }        unless ($symb) { $goahead=0; }
Line 3288  ENDREDIR Line 3298  ENDREDIR
           } elsif ($ENV{'form.origpage'}) {            } elsif ($ENV{'form.origpage'}) {
               $symb = $ENV{'form.symb'};                $symb = $ENV{'form.symb'};
           }            }
     &Apache::lonenc::check_decrypt(\$symb);
           my @currnewattach = ();            my @currnewattach = ();
           my @deloldattach = ();            my @deloldattach = ();
           my @keepold = ();            my @keepold = ();
Removed from v.1.128  
changed lines
  Added in v.1.132

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