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.'" /> '.$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()); |