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

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

version 1.107, 2004/07/27 23:35:34 version 1.108, 2004/07/28 18:50:26
Line 125  sub list_discussion { Line 125  sub list_discussion {
         }          }
     }      }
   
 # Get information about students and non-stundents in course for filtering display of posts  # Get information about students and non-students in course for filtering display of posts
     my %roleshash = ();      my %roleshash = ();
     my %roleinfo = ();      my %roleinfo = ();
     if ($rolefilter) {      if ($rolefilter) {
Line 258  sub list_discussion { Line 258  sub list_discussion {
                         $numoldver = 1;                          $numoldver = 1;
                     }                       } 
                 }                  }
  my $message=$contrib{$idx.':message'};   my ($message,$subject);
             if ($idx > 0) {
                       if ($contrib{$idx.':message'} =~ /.*::::\Q$numoldver\E::::(.+?)$/si) {
                           $message = $1;
                       } else {
                           $message = $contrib{$idx.':message'};
                       }
                   } else {
                       $message=$contrib{$idx.':message'};
                   }
                   my $attachmenturls = $contrib{$idx.':attachmenturl'}; 
  $message=~s/\n/\<br \/\>/g;   $message=~s/\n/\<br \/\>/g;
  $message=&Apache::lontexconvert::msgtexconverted($message,undef,$numoldver);   $message=&Apache::lontexconvert::msgtexconverted($message);
                 my $subject=$contrib{$idx.':subject'};            if ($idx > 0) {
                       if ($contrib{$idx.':subject'} =~ /.*::::\Q$numoldver\E::::(.+?)$/si) {
                           $subject = $1;
                       } else {
                           $subject = $contrib{$idx.':subject'};
                       }
                   } else {
                       $subject=$contrib{$idx.':subject'};
                   }
                 if (defined($subject)) {                  if (defined($subject)) {
                     $subject=~s/\n/\<br \/\>/g;                      $subject=~s/\n/\<br \/\>/g;
                     $subject=&Apache::lontexconvert::msgtexconverted($subject,undef,$numoldver);                      $subject=&Apache::lontexconvert::msgtexconverted($subject);
                 }                  }
  if ($contrib{$idx.':attachmenturl'}) {   if ($attachmenturls) {
     my ($fname)                      my @attachments = ();
                         =($contrib{$idx.':attachmenturl'}=~m|/([^/]+)$|);                      my %currattach = ();
     &Apache::lonnet::allowuploaded('/adm/feedback',                      &extract_attachments($attachmenturls,$idx,$numoldver,\$message,\@attachments,\%currattach);
    $contrib{$idx.':attachmenturl'});  
     $message.='<p>'.&mt('Attachment').  
  ': <a href="'.$contrib{$idx.':attachmenturl'}.'"><tt>'.  
  $fname.'</tt></a></p>';  
  }   }
  if ($message) {   if ($message) {
     if ($hidden) {      if ($hidden) {
Line 432  sub list_discussion { Line 446  sub list_discussion {
                     if ($showonlyunread && $prevread > $posttime) {                      if ($showonlyunread && $prevread > $posttime) {
                         $notshown{$idx} = 1;                          $notshown{$idx} = 1;
                     } else {                      } else {
   # apply filters
                         my $uname = $contrib{$idx.':sendername'};                          my $uname = $contrib{$idx.':sendername'};
                         my $udom = $contrib{$idx.':senderdomain'};                          my $udom = $contrib{$idx.':senderdomain'};
                         my $poster = $uname.':'.$udom;                          my $poster = $uname.':'.$udom;
Line 741  END Line 756  END
  }   }
     }      }
     if ($discussiononly) {      if ($discussiononly) {
           my $now = time;
           my $attachnum = 0;
           my $newattachmsg = '';
           my @currnewattach = ();
           my @currdelold = ();
           my $comment = '';
           my $subject = '';
           if ($ENV{'form.origpage'}) {
               &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['addnewattach','deloldattach','delnewattach','timestamp','idx','subject','comment']);
               $subject = &HTML::Entities::encode($ENV{'form.subject'},'<>&"');
               $comment = &HTML::Entities::encode($ENV{'form.comment'},'<>&"');
               my @keepold = ();
               &process_attachments(\@currnewattach,\@currdelold,\@keepold);
               if (@currnewattach > 0) {
                   $attachnum += @currnewattach;
               }
           }
  $discussion.=(<<ENDDISCUSS);   $discussion.=(<<ENDDISCUSS);
 <form action="/adm/feedback" method="post" name="mailform" enctype="multipart/form-data">  <form action="/adm/feedback" method="post" name="mailform" enctype="multipart/form-data">
 <input type="submit" name="discuss" value="Post Discussion" />  <input type="submit" name="discuss" value="Post Discussion" />
 <input type="submit" name="anondiscuss" value="Post Anonymous Discussion" />  <input type="submit" name="anondiscuss" value="Post Anonymous Discussion" />
 <input type="hidden" name="symb" value="$ressymb" />  <input type="hidden" name="symb" value="$ressymb" />
 <input type="hidden" name="sendit" value="true" />  <input type="hidden" name="sendit" value="true" />
 <br />  <input type="hidden" name="timestamp" value="$now" />
 <font size="1">Note: in anonymous discussion, your name is visible only to  <br /><a name="newpost"></a>
 course faculty</font><br />  <font size="1">Note: in anonymous discussion, your name is visible only 
 <b>Title:</b>&nbsp;<input type="text" name="subject" value="" size="30" /><br /><br />  to course faculty</font><br />
 <textarea name="comment" cols="80" rows="14" wrap="hard"></textarea>  <b>Title:</b>&nbsp;<input type="text" name="subject" value="$subject" size="30" /><br /><br />
 <p>  <textarea name="comment" cols="80" rows="14" wrap="hard">$comment</textarea>
 Attachment (128 KB max size): <input type="file" name="attachment" />  
 </p>  
 </form>  
 ENDDISCUSS  ENDDISCUSS
           if ($ENV{'form.origpage'}) {
               $discussion.='<input type="hidden" name="origpage" value="'.$ENV{'form.origpage'}.'" />'."\n";
               foreach (@currnewattach) {
                   $discussion.='<input type="hidden" name="currnewattach" value="'.$_.'" />'."\n";
               }
           }
           $discussion.="</form>\n";
         if ($outputtarget ne 'tex') {          if ($outputtarget ne 'tex') {
               $discussion.=&generate_attachments_button('',$attachnum,$ressymb,$now,\@currnewattach,\@currdelold,'',$mode);
               if (@currnewattach > 0) {
                   $newattachmsg .= '<b>New attachments</b><br />';
                   if (@currnewattach > 1) {
                       $newattachmsg .= '<ol>';
                       foreach my $item (@currnewattach) {
                           $item =~ m#.*/([^/]+)$#;
                           $newattachmsg .= '<li><a href="'.$item.'">'.$1.'</a></li>'."\n";
                       }
                       $newattachmsg .= '</ol>'."\n";
                   } else {
                       $currnewattach[0] =~ m#.*/([^/]+)$#;
                       $newattachmsg .= '<a href="'.$currnewattach[0].'">'.$1.'</a><br />'."\n";
                   }
               }
               $discussion.=$newattachmsg;
     $discussion.=&generate_preview_button();      $discussion.=&generate_preview_button();
  }   }
     } else {      } else {
Line 778  ENDDISCUSS Line 830  ENDDISCUSS
   
 sub mail_screen {  sub mail_screen {
   my ($r,$feedurl,$options) = @_;    my ($r,$feedurl,$options) = @_;
     if (exists($ENV{'form.origpage'})) {
         &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['subject','comment','currnewattach','addnewattach','deloldattach','delnewattach','timestamp','idx','anondiscuss','discuss']);
     }
   my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion',    my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion',
                                           '','onLoad="window.focus();setposttype();"');                                            '','onLoad="window.focus();setposttype();"');
   my $title=&Apache::lonnet::gettitle($feedurl);    my $title=&Apache::lonnet::gettitle($feedurl);
   if (!$title) { $title = $feedurl; }    if (!$title) { $title = $feedurl; }
   my $quote='';    my $quote='';
   my $subject = '';    my $subject = '';
   my $oldmessage = '';    my $comment = '';
   my $prevtag = '';    my $prevtag = '';
   my $parentmsg = '';    my $parentmsg = '';
   my $anonscript = (<<END);    my ($symb,$idx,$attachmenturls);
     my $numoldver = 0;
     my $attachmsg = '';
     my $newattachmsg = '';
     my @currnewattach = ();
     my @currdelold = ();
     my @keepold = ();
     my @attachments = ();
     my %currattach = ();
     my $attachnum = 0;
     my $anonchk = (<<END);
     function anonchk() {
        if (document.mailform.anondiscuss.checked == true) {
             document.attachment.anondiscuss.value = '1'
        }
        if (document.mailform.discuss.checked == true) {
             document.attachment.discuss.value = '1'
        }
        return
      }
   END
     my $anonscript;
     if (exists($ENV{'form.origpage'})) {
         $anonscript = (<<END);
   function setposttype() {    function setposttype() {
         var anondisc = $ENV{'form.anondiscuss'};
         var disc = $ENV{'form.discuss'};
         if (anondisc == 1) {
             document.mailform.anondiscuss.checked = true
         }
         if (disc == 1) {
             document.mailform.discuss.checked = true
         }
       return        return
   }    }
 END  END
     } else {
         $anonscript = (<<END);
     function setposttype() {
         return
     }
   END
     }
   if (($ENV{'form.replydisc'}) || ($ENV{'form.editdisc'})) {    if (($ENV{'form.replydisc'}) || ($ENV{'form.editdisc'})) {
       my ($symb,$idx);  
       if ($ENV{'form.replydisc'}) {        if ($ENV{'form.replydisc'}) {
           ($symb,$idx)=split(/\:\:\:/,$ENV{'form.replydisc'});            ($symb,$idx)=split(/\:\:\:/,$ENV{'form.replydisc'});
       } else {        } else {
Line 804  END Line 896  END
    $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\./)) {
           if ($ENV{'form.replydisc'}) {            if ($ENV{'form.replydisc'}) {
               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 813  END Line 904  END
                       $numoldver = 1;                        $numoldver = 1;
                   }                    }
               }                }
       my $message=$contrib{$idx.':message'};                my $message;
                 if ($idx > 0) {
                     if ($contrib{$idx.':message'} =~ /::::\Q$numoldver\E::::(.+?)$/si) {
                         $message = $1;
                     } else {
                         $message = $contrib{$idx.':message'};
                     }
                 } else {
             $message=$contrib{$idx.':message'};
                 }
       $message=~s/\n/\<br \/\>/g;        $message=~s/\n/\<br \/\>/g;
       $quote='<blockquote>'.&Apache::lontexconvert::msgtexconverted($message,undef,$numoldver).'</blockquote>';        $quote='<blockquote>'.&Apache::lontexconvert::msgtexconverted($message).'</blockquote>';
               if ($idx > 0) {                if ($idx > 0) {
                   if ($contrib{'subject'} =~ /::::\d+::::(.+)$/si) {                    if ($contrib{$idx.':subject'} =~ /::::\Q$numoldver\E::::(.+?)$/si) {
                       $subject = $1;                        $subject = $1;
                   } else {                    } else {
                       $subject = $contrib{$idx.':subject'};                        $subject = $contrib{$idx.':subject'};
                   }                    }
                   $subject = 'Re: '.$subject;                    $subject = 'Re: '.$subject;
               }                }
                 $subject = &HTML::Entities::encode($subject,'<>&"');
           } else {            } else {
               if ($contrib{$idx.':message'} =~ /::::\d+::::(.+)$/si) {                $attachmenturls = $contrib{$idx.':attachmenturl'};
                   $oldmessage = $1;                if ($contrib{$idx.':message'} =~ /.*::::(\d+)::::(.*?)$/si) {
                     $numoldver = $1;
                     $comment = $2;
               } else {                } else {
                   $oldmessage = $contrib{$idx.':message'};                    $comment = $contrib{$idx.':message'};
               }                }
       $oldmessage=&HTML::Entities::encode($oldmessage,'<>&"');                $comment = &HTML::Entities::encode($comment,'<>&"');
               if ($contrib{$idx.':subject'} =~ /::::\d+::::(.+)$/si) {                if ($contrib{$idx.':subject'} =~ /.*::::\d+::::(.+?)$/si) {
                   $subject = $1;                    $subject = $1;
               } else {                } else {
                   $subject = $contrib{$idx.':subject'};                    $subject = $contrib{$idx.':subject'};
               }                }
                 $subject = &HTML::Entities::encode($subject,'<>&"');
               if (defined($contrib{$idx.':replyto'})) {                if (defined($contrib{$idx.':replyto'})) {
                   $parentmsg = $contrib{$idx.':replyto'};                    $parentmsg = $contrib{$idx.':replyto'};
               }                }
               my $anonflag = 0;                unless (exists($ENV{'form.origpage'})) {
               if ($contrib{$idx.':anonymous'}) {                    my $anonflag = 0;
                   $anonflag = 1;                    if ($contrib{$idx.':anonymous'}) {
               }                        $anonflag = 1;
               $anonscript = (<<END);                    }
                     $anonscript = (<<END);
   function setposttype () {    function setposttype () {
       var currtype = $anonflag        var currtype = $anonflag
       if (currtype == 1) {        if (currtype == 1) {
Line 857  END Line 962  END
       return        return
   }    }
 END  END
                 }
           }            }
       }        }
       if ($ENV{'form.previous'}) {        if ($ENV{'form.previous'}) {
           $prevtag = '<input type="hidden" name="previous" value="'.$ENV{'form.previous'}.'" />';            $prevtag = '<input type="hidden" name="previous" value="'.$ENV{'form.previous'}.'" />';
       }        }
   }    }
   
     if ($ENV{'form.origpage'}) {
         $subject = $ENV{'form.subject'};
         $comment = $ENV{'form.comment'};
         &process_attachments(\@currnewattach,\@currdelold,\@keepold);
     }
   my $latexHelp=&Apache::loncommon::helpLatexCheatsheet();    my $latexHelp=&Apache::loncommon::helpLatexCheatsheet();
   my $htmlheader=&Apache::lonhtmlcommon::htmlareaheaders();    my $htmlheader=&Apache::lonhtmlcommon::htmlareaheaders();
   my $send=&mt('Send');    my $send=&mt('Send');
Line 916  $htmlheader Line 1028  $htmlheader
             alert('Please check a feedback type.');              alert('Please check a feedback type.');
  }   }
     }      }
       $anonchk
     $anonscript      $anonscript
 //-->  //-->
 </script>  </script>
Line 937  END Line 1050  END
 <input type="hidden" name="parentmsg" value ="$parentmsg" />  <input type="hidden" name="parentmsg" value ="$parentmsg" />
 END  END
   }    }
   $r->print(<<ENDDOCUMENT);    $r->print(<<END);
 Please check at least one of the following feedback types:  Please check at least one of the following feedback types:
 $options<hr />  $options<hr />
 $quote  $quote
Line 946  $quote Line 1059  $quote
 $latexHelp  $latexHelp
 Title: <input type="text" name="subject" size="30" value="$subject" /></p>  Title: <input type="text" name="subject" size="30" value="$subject" /></p>
 <p>  <p>
 <textarea name="comment" id="comment" cols="60" rows="10" wrap="hard">$oldmessage  <textarea name="comment" id="comment" cols="60" rows="10" wrap="hard">$comment
 </textarea></p>  </textarea></p>
 <p>  <p>
   END
       if ( ($ENV{'form.editdisc'}) || ($ENV{'form.replydisc'}) ) {
           if ($ENV{'form.origpage'}) {
               foreach (@currnewattach) {
                   $r->print('<input type="hidden" name="currnewattach" value="'.$_.'" />'."\n");
               }
               foreach (@currdelold) {
                   $r->print('<input type="hidden" name="deloldattach" value="'.$_.'" />'."\n");
               }
           }
           if ($ENV{'form.editdisc'}) {
               if ($attachmenturls) {
                   &extract_attachments($attachmenturls,$idx,$numoldver,\$attachmsg,\@attachments,\%currattach,\@currdelold);
                   $attachnum = scalar(keys %currattach);
                   foreach (keys %currattach) {
                       $r->print('<input type="hidden" name="keepold" value="'.$_.'" />'."\n");
                   }
               }
           }
       } else {
           $r->print(<<END);
 Attachment (128 KB max size): <input type="file" name="attachment" />  Attachment (128 KB max size): <input type="file" name="attachment" />
 </p>  </p>
   END
       }
       $r->print(<<END);
 <p>  <p>
 <input type="hidden" name="sendit" value="1" />  <input type="hidden" name="sendit" value="1" />
 <input type="button" value="$send" onClick='gosubmit();' />  <input type="button" value="$send" onClick='gosubmit();' />
 </p>  </p>
 </form>  </form>
 ENDDOCUMENT  END
 $r->print(&generate_preview_button().      if ($ENV{'form.editdisc'} || $ENV{'form.replydisc'}) {
 &Apache::lonhtmlcommon::htmlareaselectactive('comment').          my $now = time;
 '</body></html>');          my $ressymb = $symb;
           my $postidx = '';
           if ($ENV{'form.editdisc'}) {
               $postidx = $idx;
           }
           if (@currnewattach > 0) {
               $attachnum += @currnewattach;
           }
           $r->print(&generate_attachments_button($postidx,$attachnum,$ressymb,$now,\@currnewattach,\@currdelold,$numoldver));
           if ($attachnum > 0) {
               if (@currnewattach > 0) {
                   $newattachmsg .= '<b>New attachments</b><br />';
                   if (@currnewattach > 1) {
                       $newattachmsg .= '<ol>';
                       foreach my $item (@currnewattach) {
                           $item =~ m#.*/([^/]+)$#;
                           $newattachmsg .= '<li><a href="'.$item.'">'.$1.'</a></li>'."\n";
                       }
                       $newattachmsg .= '</ol>'."\n";
                   } else {
                       $currnewattach[0] =~ m#.*/([^/]+)$#;
                       $newattachmsg .= '<a href="'.$currnewattach[0].'">'.$1.'</a><br />'."\n";
                   }
               }
               if ($attachmsg) {
                   $r->print("<b>Retained attachments</b>:$attachmsg<br />\n");
               }
               if ($newattachmsg) {
                   $r->print("$newattachmsg<br />");
               }
           }
       }
       $r->print(&generate_preview_button().
                 &Apache::lonhtmlcommon::htmlareaselectactive('comment').
                 '</body></html>');
 }  }
   
 sub print_display_options {  sub print_display_options {
Line 1698  sub adddiscuss { Line 1869  sub adddiscuss {
                 }                  }
                 $contrib{'history'} = $oldcontrib{$oldidx.':history'}.':';                  $contrib{'history'} = $oldcontrib{$oldidx.':history'}.':';
             }              }
               my $numnewver = $numoldver + 1;
             if (defined($oldcontrib{$oldidx.':subject'})) {              if (defined($oldcontrib{$oldidx.':subject'})) {
                 $contrib{'subject'} = $oldcontrib{$oldidx.':subject'}.'::::'.$numoldver.'::::'.$contrib{'subject'};                              if ($oldcontrib{$oldidx.':subject'} =~ /::::\d+::::/) {
                       $contrib{'subject'} = $oldcontrib{$oldidx.':subject'}.'::::'.$numnewver.'::::'.$contrib{'subject'};
                   } else {
                        $contrib{'subject'} = '::::0::::'.$oldcontrib{$oldidx.':subject'}.'::::1::::'.$contrib{'subject'};
                   }
             }               } 
             if (defined($oldcontrib{$oldidx.':message'})) {              if (defined($oldcontrib{$oldidx.':message'})) {
                 $contrib{'message'} = $oldcontrib{$oldidx.':message'}.'::::'.$numoldver.'::::'.$contrib{'message'};                  if ($oldcontrib{$oldidx.':message'} =~ /::::\d+::::/) {
                       $contrib{'message'} = $oldcontrib{$oldidx.':message'}.'::::'.$numnewver.'::::'.$contrib{'message'};
                   } else {
                       $contrib{'message'} = '::::0::::'.$oldcontrib{$oldidx.':message'}.'::::1::::'.$contrib{'message'};
                   }
             }              }
             $contrib{'history'} .= $oldcontrib{$oldidx.':timestamp'};              $contrib{'history'} .= $oldcontrib{$oldidx.':timestamp'};
             foreach (keys %contrib) {              foreach (keys %contrib) {
Line 1769  onClick="if (typeof(document.mailform.on Line 1949  onClick="if (typeof(document.mailform.on
 ENDPREVIEW  ENDPREVIEW
 }  }
   
   sub modify_attachments {
       my ($r,$currnewattach,$currdelold,$symb,$idx,$attachmenturls)=@_;
       my $subject=&clear_out_html($ENV{'form.subject'});
       $subject=~s/\n/\<br \/\>/g;
       $subject=&Apache::lontexconvert::msgtexconverted($subject);
       my $timestamp=$ENV{'form.timestamp'};
       my $numoldver=$ENV{'form.numoldver'};
       my $bodytag=&Apache::loncommon::bodytag('Discussion Post Attachments',
                                             '','');
       my $msg = '';
       my @attachments = ();
       my %currattach = ();
       if ($idx) {
           &extract_attachments($attachmenturls,$idx,$numoldver,\$msg,\@attachments,\%currattach,$currdelold);
       }
       $r->print(<<END);
   <html>
   <head>
   <title>Managing Attachments</title>
   <script>
    function setAction () {
      document.modattachments.action = document.modattachments.origpage.value;
      document.modattachments.submit();
    }
   </script> 
   </head>
   $bodytag
   <form name="modattachments" method="post" enctype="multipart/form-data" action="/adm/feedback?attach=$symb">
    <table border="2">
     <tr>
      <td>
       <b>Subject:</b>$subject</b><br /><br />
   END
       if ($idx) {
           if ($attachmenturls) {
               my @currold = keys %currattach;
               if (@currold > 0) {
                   $r->print("The following attachments were part of the most recent saved version of this posting.<br />Check the checkboxes for any you wish to remove<br />\n");  
                   foreach (@currold) {
                       my $id = $_;
                       $attachments[$id] =~ m#/([^/]+)$#;
                       $r->print('<input type="checkbox" name="deloldattach" value="'.$_.'" />&nbsp;'.$1.'<br />'."\n");
                   }
                   $r->print("<br />");
               }
           }
       }
       if (@{$currnewattach} > 0) {
           $r->print("The following attachments have been uploaded for inclusion with this posting.<br />Check the checkboxes for any you wish to remove<br />\n");
           foreach (@{$currnewattach}) {
               $_ =~ m#/([^/]+)$#;
               $r->print('<input type="checkbox" name="delnewattach" value="'.$_.'" />&nbsp;'.$1.'<br />'."\n");
           }
           $r->print("<br />"); 
       }
       $r->print(<<END);
      Add a new attachment to this post.&nbsp;<input type="file" name="addnewattach" /><input type="button" name="upload" value="Upload" onClick="this.form.submit()" />    
      </td>
     </tr>
    </table>
   <input type="hidden" name="subject" value="$ENV{'form.subject'}" />
   <input type="hidden" name="comment" value="$ENV{'form.comment'}" />
   <input type="hidden" name="timestamp" value="$ENV{'form.timestamp'}" />
   <input type="hidden" name="idx" value="$ENV{'form.idx'}" />
   <input type="hidden" name="numoldver" value="$ENV{'form.numoldver'}" />
   <input type="hidden" name="origpage" value="$ENV{'form.origpage'}" />
   <input type="hidden" name="anondiscuss" value="$ENV{'form.anondiscuss'}" />
   <input type="hidden" name="discuss" value="$ENV{'form.discuss'}" />
   END
       foreach (@{$currnewattach}) {
           $r->print('<input type="hidden" name="currnewattach" value="'.$_.'" />'."\n");
       }
       foreach (@{$currdelold}) {
           $r->print('<input type="hidden" name="deloldattach" value="'.$_.'" />'."\n");
       }
       $r->print(<<END);
    <input type="button" name="rtntoedit" value="Store Changes" onClick="setAction()"/>
   </form>
   </body>
   </html>
   END
       return;
   }
   
   sub process_attachments {
       my ($currnewattach,$currdelold,$keepold) = @_;
       if (exists($ENV{'form.currnewattach'})) {
           if (ref($ENV{'form.currnewattach'}) eq 'ARRAY') {
               @{$currnewattach} = @{$ENV{'form.currnewattach'}};
           } else {
               $$currnewattach[0] = $ENV{'form.currnewattach'};
           }
       }
       if (exists($ENV{'form.deloldattach'})) {
           if (ref($ENV{'form.deloldattach'}) eq 'ARRAY') {
               @{$currdelold} = @{$ENV{'form.deloldattach'}};
           } else {
               $$currdelold[0] = $ENV{'form.deloldattach'};
           }
       }
       if (exists($ENV{'form.delnewattach'})) {
           my @currdelnew = ();
           my @currnew = ();
           if (ref($ENV{'form.delnewattach'}) eq 'ARRAY') {
               @currdelnew = @{$ENV{'form.delnewattach'}};
           } else {
               $currdelnew[0] = $ENV{'form.delnewattach'};
           }
           foreach my $newone (@{$currnewattach}) {
               my $delflag = 0;
               foreach (@currdelnew) {
                   if ($newone eq $_) {
                       $delflag = 1;
                       last;
                   }
               }
               unless ($delflag) {
                   push @currnew, $newone;
               }
           }
           @{$currnewattach} = @currnew;
       }
       if (exists($ENV{'form.keepold'})) {
           if (ref($ENV{'form.keepold'}) eq 'ARRAY') {
               @{$keepold} = @{$ENV{'form.keepold'}};
           } else {
               $$keepold[0] = $ENV{'form.keepold'};
           }
       }
   }
   
   sub generate_attachments_button {
       my ($idx,$attachnum,$ressymb,$now,$currnewattach,$deloldattach,$numoldver,$mode) = @_;
       my $origpage = $ENV{'REQUEST_URI'};
       my $att=$attachnum.' '.&mt("attachments");
       my $response = (<<END);
   <form name="attachment" action="/adm/feedback?attach=$ressymb" method="post">
   Click to add/remove attachments:&nbsp;<input type="button" value="$att"
   onClick="this.form.subject.value=document.mailform.subject.value;this.form.comment.value=document.mailform.comment.value;
   END
       unless ($mode eq 'board') {
           $response .= 'javascript:anonchk();';
       }
       $response .= (<<ENDATTACH);
   this.form.submit();" />
   <input type="hidden" name="origpage" value="$origpage" />
   <input type="hidden" name="idx" value="$idx" />
   <input type="hidden" name="timestamp" value="$now" />
   <input type="hidden" name="subject" />
   <input type="hidden" name="comment" />
   <input type="hidden" name="anondiscuss" value = "0";
   <input type="hidden" name="discuss" value = "0";
   <input type="hidden" name="numoldver" value="$numoldver" />
   ENDATTACH
       if (defined($deloldattach)) {
           if (@{$deloldattach} > 0) {
               foreach (@{$deloldattach}) {
                   $response .= '<input type="hidden" name="deloldattach" value="'.$_.'" />'."\n";
               }
           }
       }
       if (defined($currnewattach)) {
           if (@{$currnewattach} > 0) {
               foreach (@{$currnewattach}) {
                   $response .= '<input type="hidden" name="currnewattach" value="'.$_.'" />'."\n";
               }
           }
       }
       $response .= '</form>';
       return $response;
   }
   
   sub extract_attachments {
       my ($attachmenturls,$idx,$numoldver,$message,$attachments,$currattach,$currdelold) = @_;
       if ($attachmenturls =~ m/::::\d+:[\.yn\d]+::::/) {
           @{$attachments} = split/::::\d+:[\.yn\d]+::::/,$attachmenturls;
           shift @{$attachments};
           my $searchstr = '::::';
           for (my $i=0; $i<@{$attachments}; $i++) {
               if ($attachmenturls =~ m#^\Q$searchstr\E(\d+)(:[\.yn\d]+)::::#) {
                   my $info = $1.$2;
                   my $attachid = $1-1;
                   $searchstr .= $info.'::::'.$$attachments[$i].'::::';
                   if ($info =~ /\.$numoldver([yn])\./) {
                       if (defined($currdelold)) {
                           if (@{$currdelold} > 0) {
                               unless (grep/^$attachid$/,@{$currdelold}) {
                                   my $id = $i;
                                   $$currattach{$id} = $1;
                               }
                           } else {
                               my $id = $i;
                               $$currattach{$id} = $1;
                           }
                       } else {
                           my $id = $i;
                           $$currattach{$id} = $1;
                       }
                   }
               }
           }
           my @attached = (sort { $a <=> $b } keys %{$currattach});
           if (@attached == 1) {
               my $id = $attached[0];
               $$attachments[$attached[0]]=~m|/([^/]+)$|;
               $$message.='<br /><a href="'.$$attachments[$id].'"><tt>'.
               $1.'</tt></a><br />';
               &Apache::lonnet::allowuploaded('/adm/feedback',
                                      $$attachments[$id]);
           } elsif (@attached > 1) {
               $$message.='<ol>';
               foreach (@attached) {
                   my $id = $_;
                   my ($fname)
                     =($$attachments[$id]=~m|/([^/]+)$|);
                   $$message .= '<li><a href="'.$$attachments[$id].
                     '"><tt>'.
                     $fname.'</tt></a></li>';
                   &Apache::lonnet::allowuploaded('/adm/feedback',
                                    $$attachments[$id]);
               }
               $$message .= '</ol><br />';
           }
       } else {
           my ($fname)
              =($attachmenturls=~m|/([^/]+)$|);
           $$message .='<p>'.&mt('Attachment').
              ': <a href="'.$attachmenturls.
              '"><tt>'.
              $fname.'</tt></a></p>';
              $$attachments[0] = $attachmenturls;
              $$currattach{'0'} = 'n';
              &Apache::lonnet::allowuploaded('/adm/feedback',
                                $attachmenturls);
       }
   }
   
   sub construct_attachmenturl {
       my ($currnewattach,$keepold,$symb,$idx)=@_;
       my $oldattachmenturl;
       my $newattachmenturl;
       my $startnum = 1;
       my $currver = 0;
       if (($ENV{'form.editdisc'}) && ($idx)) {
           my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},
                          $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
                          $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
           $oldattachmenturl = $contrib{$idx.':attachmenturl'};
           if ($contrib{$idx.':history'}) {
               if ($contrib{$idx.':history'} =~ /:/) {
                   my @oldversions = split/:/,$contrib{$idx.':history'};
                   $currver = 1 + scalar(@oldversions);
               } else {
                   $currver = 2;
               }
           } else {
               $currver = 1;
           }
           if ($oldattachmenturl) {
               if ($oldattachmenturl =~ m/::::\d+:[\.yn\d]+::::/) {
                   my @attachments = split/::::\d+:[\.yn\d]+::::/,$oldattachmenturl;
                   shift @attachments;
                   $startnum += @attachments;
                   my $searchstr = '::::';
                   $newattachmenturl = '::::';
                   for (my $i=0; $i<@attachments; $i++) {
                       if ($oldattachmenturl =~ m#^\Q$searchstr\E(\d+)(:[\.yn\d]+)::::#) {
                           my $attachid = $1 - 1;
                           $searchstr .= $1.$2.'::::'.$attachments[$i].'::::';
                           $newattachmenturl .= $1.$2;
                           if (grep/^$attachid$/,@{$keepold}) {
                               $newattachmenturl .= '.'.$currver.'n.';
                           }
                           $newattachmenturl .= '::::'.$attachments[$i].'::::';
                       }
                   }
                   $newattachmenturl =~ s/::::$//;
               } else {
                   $newattachmenturl = '::::1:.0n.';
                   unless (grep/^0$/,@{$keepold}) {
                       $newattachmenturl .= '.1n.';
                   }
                   $newattachmenturl .= '::::'.$oldattachmenturl;
                   $startnum ++;
               }
           }
       }
       for (my $i=0; $i<@{$currnewattach}; $i++) {
           my $attachnum = $startnum + $i;
           $newattachmenturl .= '::::'.$attachnum.':.'.$currver.'n.::::'.$$currnewattach[$i];
       }
       return $newattachmenturl; 
   }
     
 sub handler {  sub handler {
   my $r = shift;    my $r = shift;
   if ($r->header_only) {    if ($r->header_only) {
Line 1780  sub handler { Line 2254  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']);           ['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']);
   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;
Line 2074  ENDREDIR Line 2548  ENDREDIR
       $r->content_type('text/html');        $r->content_type('text/html');
       $r->send_http_header;        $r->send_http_header;
       &show_preview($r);        &show_preview($r);
     } elsif ($ENV{'form.attach'}) {
   # -------------------------------------------------------- Work on attachments
         &Apache::loncommon::content_type($r,'text/html');
         $r->send_http_header;
         &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['subject','comment','addnewattach','delnewattach','timestamp','numoldver','idx','anondiscuss','discuss']);
         my @currnewattach = ();
         my @currdelold = ();
         my @keepold = ();
         &process_attachments(\@currnewattach,\@currdelold,\@keepold);
         if (exists($ENV{'form.addnewattach.filename'})) {
             unless (length($ENV{'form.addnewattach'})>131072) {
                 my $subdir = 'feedback/'.$ENV{'form.timestamp'};
                 my $newattachment=&Apache::lonnet::userfileupload('addnewattach',undef,$subdir);
                 push @currnewattach, $newattachment;
             }
         }
         my $attachmenturls = '';
         my $idx = $ENV{'form.idx'};
         my $symb = $ENV{'form.attach'};
         if ($idx) {
             my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},
                            $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
                            $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
             $attachmenturls = $contrib{$idx.':attachmenturl'};
         }
         &modify_attachments($r,\@currnewattach,\@currdelold,$symb,$idx,$attachmenturls);
   } else {    } else {
 # ------------------------------------------------------------- Normal feedback  # ------------------------------------------------------------- Normal feedback
   my $feedurl=$ENV{'form.postdata'};    my $feedurl=$ENV{'form.postdata'};
Line 2091  ENDREDIR Line 2591  ENDREDIR
       $symb=(split(/\:\:\:/,$ENV{'form.editdisc'}))[0];        $symb=(split(/\:\:\:/,$ENV{'form.editdisc'}))[0];
       my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb);        my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb);
       $feedurl=&Apache::lonnet::clutter($url);        $feedurl=&Apache::lonnet::clutter($url);
     } elsif ($ENV{'form.origpage'}) {
         $symb=""; 
   } else {    } else {
       $symb=&Apache::lonnet::symbread($feedurl);        $symb=&Apache::lonnet::symbread($feedurl);
   }    }
Line 2127  ENDREDIR Line 2629  ENDREDIR
     unless ($ENV{'form.sendit'}) {      unless ($ENV{'form.sendit'}) {
       my $options=&screen_header($feedurl);        my $options=&screen_header($feedurl);
       if ($options) {        if ($options) {
  &mail_screen($r,$feedurl,$options);          &mail_screen($r,$feedurl,$options);
       } else {        } else {
  &fail_redirect($r,$feedurl);   &fail_redirect($r,$feedurl);
       }        }
Line 2149  ENDREDIR Line 2651  ENDREDIR
       &Apache::lonnet::delenv('allowed.vgr');        &Apache::lonnet::delenv('allowed.vgr');
 # Get attachments, if any, and not too large  # Get attachments, if any, and not too large
       my $attachmenturl='';        my $attachmenturl='';
       if ($ENV{'form.attachment.filename'}) {        if (($ENV{'form.origpage'}) || ($ENV{'form.editdisc'}) || ($ENV{'form.replydisc'})) {
             my ($symb,$idx);
             if ($ENV{'form.replydisc'}) {
                 ($symb,$idx)=split(/\:\:\:/,$ENV{'form.replydisc'});
             } elsif ($ENV{'form.editdisc'}) {
                 ($symb,$idx)=split(/\:\:\:/,$ENV{'form.editdisc'});
             } elsif ($ENV{'form.origpage'}) {
                 $symb = $ENV{'form.symb'};
             }
             my @currnewattach = ();
             my @deloldattach = ();
             my @keepold = ();
             &process_attachments(\@currnewattach,\@deloldattach,\@keepold);
             $attachmenturl=&construct_attachmenturl(\@currnewattach,\@keepold,$symb,$idx);
         } elsif ($ENV{'form.attachment.filename'}) {
   unless (length($ENV{'form.attachment'})>131072) {    unless (length($ENV{'form.attachment'})>131072) {
       $attachmenturl=&Apache::lonnet::userfileupload('attachment',undef,'feedback');        $attachmenturl=&Apache::lonnet::userfileupload('attachment',undef,'feedback');
   }    }
Removed from v.1.107  
changed lines
  Added in v.1.108

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