[LON-CAPA-cvs] cvs: loncom /interface lonfeedback.pm

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 15 Nov 2004 21:51:19 -0000


albertel		Mon Nov 15 16:51:19 2004 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
  Log:
  - restoring indiviual post read/unread toggle form
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.133 loncom/interface/lonfeedback.pm:1.134
--- loncom/interface/lonfeedback.pm:1.133	Mon Nov 15 16:35:37 2004
+++ loncom/interface/lonfeedback.pm	Mon Nov 15 16:51:19 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.133 2004/11/15 21:35:37 albertel Exp $
+# $Id: lonfeedback.pm,v 1.134 2004/11/15 21:51:19 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -355,8 +355,7 @@
    }
 </script>
             |;
-	    #FIXME need a <form back here for indiviaual red toggling
-	    $discussion.='<form><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.'">'.
 		'<table border="0" width="100%" bgcolor="#DDDDBB"><tr>';
 	    if ($visible>2) {
@@ -562,8 +561,7 @@
              </td>
             </tr>
            </table>
-           <br /><br />
-	   </form>
+           <br /><br /></form>
 END
         } 
         if ($outputtarget eq 'export') {
@@ -3081,6 +3079,12 @@
       }
       &modify_attachments($r,\@currnewattach,\@currdelold,$symb,$idx,
 			  $attachmenturls);
+  } elsif ($ENV{'form.chgreads'}) {
+      &Apache::loncommon::content_type($r,'text/html');
+      $r->send_http_header;
+      my ($map,$ind,$url)=&Apache::lonnet::decode_symb($ENV{'form.chgreads'});
+      &redirect_back($r,&Apache::lonnet::clutter($url),
+		     &mt('Changed read status').'<br />','0','0');
   } elsif ($ENV{'form.export'}) {
       &Apache::loncommon::content_type($r,'text/html');
       $r->send_http_header;
@@ -3096,7 +3100,6 @@
       my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion');
       $r->print($bodytag.$discussion);                                     
       return OK;
-      #FIXME deleted CHGREADS needs to be readded
   } else {
 # ------------------------------------------------------------- Normal feedback
       my $feedurl=$ENV{'form.postdata'};