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

Diff for /loncom/interface/lonfeedback.pm between versions 1.341 and 1.343

version 1.341, 2012/03/15 13:27:25 version 1.343, 2012/03/15 21:33:27
Line 1931  $latexHelp Line 1931  $latexHelp
 <p>  <p>
 END  END
   
 $r->print(&Apache::lonhtmlcommon::start_pick_box());      $r->print(&Apache::lonhtmlcommon::start_pick_box());
 $r->print(&Apache::lonhtmlcommon::row_title(&mt('Subject')));      $r->print(&Apache::lonhtmlcommon::row_title(&mt('Subject')));
 $r->print('<input type="text" name="subject" size="30" value="'."$subject".'" /></p>');      $r->print('<input type="text" name="subject" size="30" value="'.
 $r->print(&Apache::lonhtmlcommon::row_closure());                $subject.'" /></p>');
 $r->print(&Apache::lonhtmlcommon::row_title(&mt('Message')));      $r->print(&Apache::lonhtmlcommon::row_closure());
 $r->print('<textarea name="comment" id="comment" cols="60" rows="10" $textareaclass>'."$comment".      $r->print(&Apache::lonhtmlcommon::row_title(&mt('Message')));
 '</textarea>');      $r->print('<textarea name="comment" id="comment" cols="60" rows="10" '.
 $r->print(&Apache::lonhtmlcommon::row_closure(1));                $textareaclass.'>'.$comment.
 $r->print(&Apache::lonhtmlcommon::end_pick_box());                '</textarea>');
       $r->print(&Apache::lonhtmlcommon::row_closure(1));
       $r->print(&Apache::lonhtmlcommon::end_pick_box());
   
     if ( ($env{'form.editdisc'}) || ($env{'form.replydisc'}) ) {      if ( ($env{'form.editdisc'}) || ($env{'form.replydisc'}) ) {
         if ($env{'form.origpage'}) {          if ($env{'form.origpage'}) {
Line 3482  END Line 3484  END
                 }                  }
             }              }
         }          }
           if ((ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)) {
               $r->print($lt{'chth'}.'<br />'."\n");
               foreach my $attach (@{$currnewattach}) {
                   $attach =~ m#/([^/]+)$#;
                   $r->print('<label><input type="checkbox" name="delnewattach" value="'.$attach.'" />&nbsp;'.$1.'</label><br />'."\n");
               }
           }
     }      }
     $r->print(&Apache::lonhtmlcommon::row_closure(1));      $r->print(&Apache::lonhtmlcommon::row_closure(1));
     $r->print(&Apache::lonhtmlcommon::end_pick_box());      $r->print(&Apache::lonhtmlcommon::end_pick_box());
Removed from v.1.341  
changed lines
  Added in v.1.343

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