version 1.278, 2009/11/04 17:45:49
|
version 1.282, 2009/12/08 13:33:12
|
Line 356 sub list_discussion {
|
Line 356 sub list_discussion {
|
$togglink = 'toggoff'; |
$togglink = 'toggoff'; |
} |
} |
|
|
$chglink .= '&changes='.$displinkA.'_'.$displinkB.'_'.$marklink.'_'.$togglink; |
$chglink .= '&changes='.$displinkA.'_'.$displinkB.'_'.$marklink.'_'.$togglink; |
|
|
if ($newpostsflag) { |
if ($newpostsflag) { |
$chglink .= '&previous='.$prevread; |
$chglink .= '&previous='.$prevread; |
} |
} |
$chglink.=&group_args($group); |
$chglink.=&group_args($group); |
|
|
Line 416 imscp_v1p1.xsd http://www.imsglobal.org/
|
Line 416 imscp_v1p1.xsd http://www.imsglobal.org/
|
} |
} |
} else { |
} else { |
my $colspan=$maxdepth+1; |
my $colspan=$maxdepth+1; |
$discussion.= qq| |
#JW |
<script> |
$discussion.= &Apache::lonhtmlcommon::scripttag(qq| |
function verifydelete (caller,symb,idx,newflag,previous,groupparm) { |
function verifydelete (caller,symb,idx,newflag,previous,groupparm) { |
var symbparm = symb+':::'+idx |
var symbparm = symb+':::'+idx |
var prevparm = "" |
var prevparm = "" |
if (newflag == 1) { |
if (newflag == 1) { |
prevparm = "&previous="+previous |
prevparm = "&previous="+previous |
} |
} |
if (caller == 'studentdelete') { |
if (caller == 'studentdelete') { |
if (confirm("$lt{'aysu'}\\n$lt{'dpwn'},\\n$lt{'bwco'}")) { |
if (confirm("$lt{'aysu'}\\n$lt{'dpwn'},\\n$lt{'bwco'}")) { |
Line 436 imscp_v1p1.xsd http://www.imsglobal.org/
|
Line 436 imscp_v1p1.xsd http://www.imsglobal.org/
|
} |
} |
} |
} |
} |
} |
</script> |
|); |
|; |
|
$discussion.='<form name="readchoices" method="post" action="/adm/feedback?chgreads='.$ressymb.'" >'. |
$discussion.='<form name="readchoices" method="post" action="/adm/feedback?chgreads='.$ressymb.'" >'. |
"\n".'<table class="LC_discussion">'; |
"\n".'<table class="LC_discussion">'; |
$discussion .= &action_links_bar($colspan,$ressymb,$visible, |
$discussion .= &action_links_bar($colspan,$ressymb,$visible, |
Line 450 imscp_v1p1.xsd http://www.imsglobal.org/
|
Line 449 imscp_v1p1.xsd http://www.imsglobal.org/
|
$discussion.="\n".'<tr><td bgcolor="#CCCCCC" colspan="'.$colspan.'">'. |
$discussion.="\n".'<tr><td bgcolor="#CCCCCC" colspan="'.$colspan.'">'. |
'<a href="/adm/feedback?allposts=1&symb='.$escsymb; |
'<a href="/adm/feedback?allposts=1&symb='.$escsymb; |
if ($newpostsflag) { |
if ($newpostsflag) { |
$discussion .= '&previous='.$prevread; |
$discussion .= '&previous='.$prevread; |
} |
} |
$discussion .= &group_args($group); |
$discussion .= &group_args($group); |
$discussion .= '">'.&mt('Show all posts').'</a> '.&mt('to display').' '. |
$discussion .= '">'.&mt('Show all posts').'</a> '.&mt('to display').' '. |
Line 569 imscp_v1p1.xsd http://www.imsglobal.org/
|
Line 568 imscp_v1p1.xsd http://www.imsglobal.org/
|
<table border="0" cellpadding="0" cellspacing="4"> |
<table border="0" cellpadding="0" cellspacing="4"> |
<tr> |
<tr> |
<td> |
<td> |
<font size="-1"><b>$lt{'cuse'}</b>:</td> |
<font size="-1"><b>$lt{'cuse'}</b>:</font></td> |
<td> </td> |
<td> </td> |
<td><font size="-1"> |
<td><font size="-1"> |
END |
END |
Line 591 END
|
Line 590 END
|
</font></td> |
</font></td> |
<td> </td> |
<td> </td> |
<td align="left"> |
<td align="left"> |
<font size="-1"><b><a href="$chglink">$lt{'chgt'}</a>?</font></b> |
<font size="-1"><b><a href="$chglink">$lt{'chgt'}</a>?</b></font> |
</td> |
</td> |
</tr> |
</tr> |
</table> |
</table> |
Line 646 END
|
Line 645 END
|
$discussion.='<td align="right">'. |
$discussion.='<td align="right">'. |
'<input type="hidden" name="discsymb" value="'.$ressymb.'" />'."\n". |
'<input type="hidden" name="discsymb" value="'.$ressymb.'" />'."\n". |
'<input type="button" name="readoptions" value="'.$storebutton.'"'. |
'<input type="button" name="readoptions" value="'.$storebutton.'"'. |
' onClick="this.form.submit();" />'."\n". |
' onclick="this.form.submit();" />'."\n". |
'</td>'; |
'</td>'; |
} |
} |
$discussion .= (<<END); |
$discussion .= (<<END); |
Line 784 sub action_links_bar {
|
Line 783 sub action_links_bar {
|
if ($visible>2) { |
if ($visible>2) { |
$discussion .= '<a href="/adm/feedback?cmd=threadedon&symb='.$escsymb; |
$discussion .= '<a href="/adm/feedback?cmd=threadedon&symb='.$escsymb; |
if ($newpostsflag) { |
if ($newpostsflag) { |
$discussion .= '&previous='.$prevread; |
$discussion .= '&previous='.$prevread; |
} |
} |
$discussion .= &group_args($group); |
$discussion .= &group_args($group); |
$discussion .='">'.&mt('Threaded View').'</a> '. |
$discussion .='">'.&mt('Threaded View').'</a> '. |
'<a href="/adm/feedback?cmd=threadedoff&symb='.$escsymb; |
'<a href="/adm/feedback?cmd=threadedoff&symb='.$escsymb; |
if ($newpostsflag) { |
if ($newpostsflag) { |
$discussion .= '&previous='.$prevread; |
$discussion .= '&previous='.$prevread; |
} |
} |
$discussion .= &group_args($group); |
$discussion .= &group_args($group); |
$discussion .='">'.&mt('Chronological View').'</a> |
$discussion .='">'.&mt('Chronological View').'</a> |
<a href="/adm/feedback?cmd=sortfilter&symb='.$escsymb; |
<a href="/adm/feedback?cmd=sortfilter&symb='.$escsymb; |
if ($newpostsflag) { |
if ($newpostsflag) { |
$discussion .= '&previous='.$prevread; |
$discussion .= '&previous='.$prevread; |
} |
} |
$discussion .= &group_args($group); |
$discussion .= &group_args($group); |
$discussion .='">'.&mt('Sorting/Filtering options').'</a>'.(' ' x2); |
$discussion .='">'.&mt('Sorting/Filtering options').'</a>'.(' ' x2); |
} |
} |
$discussion .='<a href="/adm/feedback?export='.$escsymb; |
$discussion .='<a href="/adm/feedback?export='.$escsymb; |
if ($newpostsflag) { |
if ($newpostsflag) { |
$discussion .= '&previous='.$prevread; |
$discussion .= '&previous='.$prevread; |
} |
} |
$discussion .= &group_args($group); |
$discussion .= &group_args($group); |
$discussion .= '">'.&mt('Export').'?</a> </td>'; |
$discussion .= '">'.&mt('Export').'?</a> </td>'; |
Line 815 sub action_links_bar {
|
Line 814 sub action_links_bar {
|
&mt('Preferences on what is marked as NEW'). |
&mt('Preferences on what is marked as NEW'). |
'</a><br /><a href="/adm/feedback?markread=1&symb='.$escsymb; |
'</a><br /><a href="/adm/feedback?markread=1&symb='.$escsymb; |
$discussion .= &group_args($group); |
$discussion .= &group_args($group); |
$discussion .= '">'.&mt('Mark NEW posts no longer new').'</a>'; |
$discussion .= '">'.&mt('Mark NEW posts no longer new').'</a></td>'; |
} else { |
} else { |
$discussion .= '<td> </td>'; |
$discussion .= '<td> </td>'; |
} |
} |
Line 848 sub postingform_display {
|
Line 847 sub postingform_display {
|
<br /><a name="newpost"></a> |
<br /><a name="newpost"></a> |
<font size="1">$lt{'note'}</font><br /> |
<font size="1">$lt{'note'}</font><br /> |
<b>$lt{'title'}:</b> <input type="text" name="subject" value="$subject" size="30" /><br /><br /> |
<b>$lt{'title'}:</b> <input type="text" name="subject" value="$subject" size="30" /><br /><br /> |
<textarea name="comment" cols="80" rows="14" wrap="hard">$comment</textarea> |
<textarea name="comment" cols="80" rows="14" >$comment</textarea> |
ENDDISCUSS |
ENDDISCUSS |
if ($env{'form.origpage'}) { |
if ($env{'form.origpage'}) { |
$postingform .= '<input type="hidden" name="origpage" value="'. |
$postingform .= '<input type="hidden" name="origpage" value="'. |
Line 1057 sub build_posting_display {
|
Line 1056 sub build_posting_display {
|
$sender.=' <a href="/adm/feedback?editdisc='. |
$sender.=' <a href="/adm/feedback?editdisc='. |
$escsymb.':::'.$idx; |
$escsymb.':::'.$idx; |
if ($$newpostsflag) { |
if ($$newpostsflag) { |
$sender .= '&previous='.$prevread; |
$sender .= '&previous='.$prevread; |
} |
} |
$sender .= &group_args($group); |
$sender .= &group_args($group); |
$sender .= '" '.$target.'>'.&mt('Edit').'</a>'; |
$sender .= '" '.$target.'>'.&mt('Edit').'</a>'; |
Line 1075 sub build_posting_display {
|
Line 1074 sub build_posting_display {
|
$sender.=' <a href="/adm/feedback?unhide='. |
$sender.=' <a href="/adm/feedback?unhide='. |
$escsymb.':::'.$idx; |
$escsymb.':::'.$idx; |
if ($$newpostsflag) { |
if ($$newpostsflag) { |
$sender .= '&previous='.$prevread; |
$sender .= '&previous='.$prevread; |
} |
} |
$sender .= '">'.&mt('Make Visible').'</a>'; |
$sender .= '">'.&mt('Make Visible').'</a>'; |
} |
} |
Line 1083 sub build_posting_display {
|
Line 1082 sub build_posting_display {
|
$sender.=' <a href="/adm/feedback?hide='. |
$sender.=' <a href="/adm/feedback?hide='. |
$escsymb.':::'.$idx; |
$escsymb.':::'.$idx; |
if ($$newpostsflag) { |
if ($$newpostsflag) { |
$sender .= '&previous='.$prevread; |
$sender .= '&previous='.$prevread; |
} |
} |
$sender .= &group_args($group); |
$sender .= &group_args($group); |
$sender .= '">'.&mt('Hide').'</a>'; |
$sender .= '">'.&mt('Hide').'</a>'; |
Line 1124 sub build_posting_display {
|
Line 1123 sub build_posting_display {
|
$sender.=' <a href="/adm/feedback?replydisc='. |
$sender.=' <a href="/adm/feedback?replydisc='. |
$escsymb.':::'.$idx; |
$escsymb.':::'.$idx; |
if ($$newpostsflag) { |
if ($$newpostsflag) { |
$sender .= '&previous='.$prevread; |
$sender .= '&previous='.$prevread; |
} |
} |
$sender .= &group_args($group); |
$sender .= &group_args($group); |
$sender .= '" '.$target.'>'.&mt('Reply').'</a>'; |
$sender .= '" '.$target.'>'.&mt('Reply').'</a>'; |
Line 1135 sub build_posting_display {
|
Line 1134 sub build_posting_display {
|
$sender.=' <a href="/adm/feedback?replydisc='. |
$sender.=' <a href="/adm/feedback?replydisc='. |
$escsymb.':::'.$idx; |
$escsymb.':::'.$idx; |
if ($$newpostsflag) { |
if ($$newpostsflag) { |
$sender .= '&previous='.$prevread; |
$sender .= '&previous='.$prevread; |
} |
} |
$sender .= '" '.$target.'>'.&mt('Reply').'</a>'; |
$sender .= '" '.$target.'>'.&mt('Reply').'</a>'; |
} |
} |
Line 1245 sub build_posting_display {
|
Line 1244 sub build_posting_display {
|
if ($prevread > 0 && $prevread <= $posttime) { |
if ($prevread > 0 && $prevread <= $posttime) { |
$$newitem{$idx} = 1; |
$$newitem{$idx} = 1; |
$$discussionitems[$idx] .= ' |
$$discussionitems[$idx] .= ' |
<p><table border="0" width="100%"> |
<table border="0" width="100%"> |
<tr><td align="left"><font color="#FF0000"><b>'.&mt('NEW').'</b></font></td>'; |
<tr><td align="left"><font color="#FF0000"><b>'.&mt('NEW').'</b></font></td>'; |
} else { |
} else { |
$$newitem{$idx} = 0; |
$$newitem{$idx} = 0; |
$$discussionitems[$idx] .= ' |
$$discussionitems[$idx] .= ' |
<p><table border="0" width="100%"> |
<table border="0" width="100%"> |
<tr><td align="left"> </td>'; |
<tr><td align="left"> </td>'; |
} |
} |
$$discussionitems[$idx] .= '<td align="left"> '. |
$$discussionitems[$idx] .= '<td align="left"> '. |
'<b>'.$subject.'</b> '. |
'<b>'.$subject.'</b> '. |
$sender.'</b> '.$vgrlink.' ('. |
'<b>'.$sender.'</b> '.$vgrlink.' ('. |
&Apache::lonlocal::locallocaltime($posttime).')</td>'; |
&Apache::lonlocal::locallocaltime($posttime).')</td>'; |
if ($$dischash{$toggkey}) { |
if ($$dischash{$toggkey}) { |
$$discussionitems[$idx].='<td align="right"> '. |
$$discussionitems[$idx].='<td align="right"> '. |
$ctlink.'</td>'; |
$ctlink.'</td>'; |
} |
} |
$$discussionitems[$idx].= '</tr></table><blockquote>'. |
$$discussionitems[$idx].= '</tr></table><blockquote>'. |
$message.'</blockquote></p>'; |
$message.'</blockquote>'; |
if ($contrib{$idx.':history'}) { |
if ($contrib{$idx.':history'}) { |
my @postversions = (); |
my @postversions = (); |
$$discussionitems[$idx] .= &mt('This post has been edited by the author.'); |
$$discussionitems[$idx] .= &mt('This post has been edited by the author.'); |
Line 1484 sub mail_screen {
|
Line 1483 sub mail_screen {
|
} |
} |
|
|
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'plch' => 'Please check at least one of the following feedback types:', |
|
'myqu' => 'My question/comment/feedback:', |
'myqu' => 'My question/comment/feedback:', |
'title' => 'Title', |
'title' => 'Title', |
'reta' => 'Retained attachments', |
'reta' => 'Retained attachments', |
Line 1700 END
|
Line 1698 END
|
END |
END |
} |
} |
$r->print(<<END); |
$r->print(<<END); |
$lt{'plch'} |
|
$options<hr /> |
$options<hr /> |
$quote |
$quote |
<p>$lt{'myqu'}</p> |
<p>$lt{'myqu'}</p> |
Line 1710 $latexHelp
|
Line 1707 $latexHelp
|
<p> |
<p> |
$lt{'title'}: <input type="text" name="subject" size="30" value="$subject" /></p> |
$lt{'title'}: <input type="text" name="subject" size="30" value="$subject" /></p> |
<p> |
<p> |
<textarea name="comment" id="comment" cols="60" rows="10" wrap="hard">$comment |
<textarea name="comment" id="comment" cols="60" rows="10">$comment |
</textarea></p> |
</textarea></p> |
<p> |
<p> |
END |
END |
Line 1747 END
|
Line 1744 END
|
$r->print(<<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> |
END |
END |
Line 1954 END
|
Line 1951 END
|
$r->print(<<END); |
$r->print(<<END); |
<td>$lt{'disa'}</td> |
<td>$lt{'disa'}</td> |
<td>$lt{$discdisp}</td> |
<td>$lt{$discdisp}</td> |
<td><label><input type="checkbox" name="discdisp" onClick="discdispChk('0')" /> $lt{'chgt'} "$dispchangeA"</label> |
<td><label><input type="checkbox" name="discdisp" onclick="discdispChk('0')" /> $lt{'chgt'} "$dispchangeA"</label> |
<br /> |
<br /> |
<label><input type="checkbox" name="discdisp" onClick="discdispChk('1')" /> $lt{'chgt'} "$dispchangeB"</label> |
<label><input type="checkbox" name="discdisp" onclick="discdispChk('1')" /> $lt{'chgt'} "$dispchangeB"</label> |
</td> |
</td> |
END |
END |
$r->print(&Apache::loncommon::end_data_table_row()); |
$r->print(&Apache::loncommon::end_data_table_row()); |
Line 1971 END
|
Line 1968 END
|
$r->print(<<END); |
$r->print(<<END); |
<td>$lt{'dotm'}</td> |
<td>$lt{'dotm'}</td> |
<td>$lt{$disctogg}</td> |
<td>$lt{$disctogg}</td> |
<td><label><input type="checkbox" name="disctogg" onClick="discdispChk('2')" />$lt{'chgt'} "$toggchange"</label></td> |
<td><label><input type="checkbox" name="disctogg" onclick="discdispChk('2')" />$lt{'chgt'} "$toggchange"</label></td> |
END |
END |
my $save = &mt('Save'); |
my $save = &mt('Save'); |
$r->print(&Apache::loncommon::end_data_table_row()); |
$r->print(&Apache::loncommon::end_data_table_row()); |
Line 1985 END
|
Line 1982 END
|
<input type="hidden" name="$dispchgB" value="" /> |
<input type="hidden" name="$dispchgB" value="" /> |
<input type="hidden" name="$markchg" value="" /> |
<input type="hidden" name="$markchg" value="" /> |
<input type="hidden" name="$toggchg" value="" /> |
<input type="hidden" name="$toggchg" value="" /> |
<input type="button" name="sub" value="$save" onClick="javascript:setDisp()" /> |
<input type="button" name="sub" value="$save" onclick="javascript:setDisp()" /> |
END |
END |
if (exists($env{'form.group'})) { |
if (exists($env{'form.group'})) { |
$r->print('<input type="hidden" name="group" value="'.$env{'form.group'}.'" />'); |
$r->print('<input type="hidden" name="group" value="'.$env{'form.group'}.'" />'); |
Line 2138 $start_page
|
Line 2135 $start_page
|
<br /><br /> |
<br /><br /> |
<table border="0"> |
<table border="0"> |
<tr> |
<tr> |
<td><b>$lt{'soor'}</b></td> |
<th>$lt{'soor'}</th> |
<td> </td> |
<th> </th> |
<td><b>$lt{'sprs'}</b></td> |
<th>$lt{'sprs'}</th> |
<td> </td> |
<th> </th> |
<td><b>$lt{'spur'}</b></td> |
<th>$lt{'spur'}</th> |
<td> </td> |
<th> </th> |
<td><b>$lt{'spse'}</b></td> |
<th>$lt{'spse'}</th> |
<td> </td> |
<th> </th> |
<td><b>$lt{'spgr'}</b></td> |
<th>$lt{'spgr'}</th> |
<td> </td> |
<th> </th> |
<td><b>$lt{'psub'}</b></td> |
<th>$lt{'psub'}</th> |
</tr> |
</tr> |
<tr> |
<tr> |
<td align="center" valign="top"> |
<td align="center" valign="top"> |
Line 2203 $start_page
|
Line 2200 $start_page
|
<br /> |
<br /> |
<input type="hidden" name="previous" value="$previous" /> |
<input type="hidden" name="previous" value="$previous" /> |
<input type="hidden" name="applysort" value="$symb" /> |
<input type="hidden" name="applysort" value="$symb" /> |
<input type="button" name="sub" value="$lt{'stor'}" onClick="verifyFilter()" /> |
<input type="button" name="sub" value="$lt{'stor'}" onclick="verifyFilter()" /> |
END |
END |
if (exists($env{'form.group'})) { |
if (exists($env{'form.group'})) { |
$r->print('<input type="hidden" name="group" value="'.$env{'form.group'}.'" />'); |
$r->print('<input type="hidden" name="group" value="'.$env{'form.group'}.'" />'); |
Line 2326 END
|
Line 2323 END
|
<br /> |
<br /> |
<input type="hidden" name="sortposts" value="$sortposts" /> |
<input type="hidden" name="sortposts" value="$sortposts" /> |
<input type="hidden" name="userpick" value="$symb" /> |
<input type="hidden" name="userpick" value="$symb" /> |
<input type="button" name="store" value="Display posts" onClick="javascript:document.pickpostersform.submit()" /> |
<input type="button" name="store" value="Display posts" onclick="javascript:document.pickpostersform.submit()" /> |
</form> |
</form> |
$end_page |
$end_page |
END |
END |
Line 2429 sub redirect_back {
|
Line 2426 sub redirect_back {
|
if ($previous > 0) { |
if ($previous > 0) { |
$qrystr = 'previous='.$previous; |
$qrystr = 'previous='.$previous; |
if ($feedurl =~ /\?register=1/) { |
if ($feedurl =~ /\?register=1/) { |
$feedurl .= '&'.$qrystr; |
$feedurl .= '&'.$qrystr; |
} else { |
} else { |
$feedurl .= '?'.$qrystr; |
$feedurl .= '?'.$qrystr; |
} |
} |
Line 2438 sub redirect_back {
|
Line 2435 sub redirect_back {
|
if (defined($sort)) { |
if (defined($sort)) { |
my $sortqry = 'sortposts='.$sort; |
my $sortqry = 'sortposts='.$sort; |
if (($feedurl =~ /\?register=1/) || ($feedurl =~ /\?previous=/)) { |
if (($feedurl =~ /\?register=1/) || ($feedurl =~ /\?previous=/)) { |
$feedurl .= '&'.$sortqry; |
$feedurl .= '&'.$sortqry; |
} else { |
} else { |
$feedurl .= '?'.$sortqry; |
$feedurl .= '?'.$sortqry; |
} |
} |
$sorttag = '<input type="hidden" name="sortposts" value="'.$sort.'" />'; |
$sorttag = '<input type="hidden" name="sortposts" value="'.$sort.'" />'; |
if (defined($numpicks)) { |
if (defined($numpicks)) { |
my $userpickqry = 'totposters='.$numpicks; |
my $userpickqry = 'totposters='.$numpicks; |
$feedurl .= '&'.$userpickqry; |
$feedurl .= '&'.$userpickqry; |
$userpicktag = '<input type="hidden" name="totposters" value="'.$numpicks.'" />'; |
$userpicktag = '<input type="hidden" name="totposters" value="'.$numpicks.'" />'; |
} else { |
} else { |
if (ref($sectionpick) eq 'ARRAY') { |
if (ref($sectionpick) eq 'ARRAY') { |
$feedurl .= '§ionpick='; |
$feedurl .= '&sectionpick='; |
$sectag .= '<input type="hidden" name="sectionpick" value="'; |
$sectag .= '<input type="hidden" name="sectionpick" value="'; |
foreach my $sec (@{$sectionpick}) { |
foreach my $sec (@{$sectionpick}) { |
$feedurl .= $sec.','; |
$feedurl .= $sec.','; |
Line 2459 sub redirect_back {
|
Line 2456 sub redirect_back {
|
$sectag =~ s/,$//; |
$sectag =~ s/,$//; |
$sectag .= '" />'; |
$sectag .= '" />'; |
} else { |
} else { |
$feedurl .= '§ionpick='.$sectionpick; |
$feedurl .= '&sectionpick='.$sectionpick; |
$sectag = '<input type="hidden" name="sectionpick" value="'.$sectionpick.'" />'; |
$sectag = '<input type="hidden" name="sectionpick" value="'.$sectionpick.'" />'; |
} |
} |
if (ref($grouppick) eq 'ARRAY') { |
if (ref($grouppick) eq 'ARRAY') { |
$feedurl .= '&grouppick='; |
$feedurl .= '&grouppick='; |
$sectag .= '<input type="hidden" name="grouppick" value="'; |
$sectag .= '<input type="hidden" name="grouppick" value="'; |
foreach my $grp (@{$grouppick}) { |
foreach my $grp (@{$grouppick}) { |
$feedurl .= $grp.','; |
$feedurl .= $grp.','; |
Line 2473 sub redirect_back {
|
Line 2470 sub redirect_back {
|
$grptag =~ s/,$//; |
$grptag =~ s/,$//; |
$grptag .= '" />'; |
$grptag .= '" />'; |
} else { |
} else { |
$feedurl .= '&grouppick='.$grouppick; |
$feedurl .= '&grouppick='.$grouppick; |
$grptag = '<input type="hidden" name="grouppick" value="'.$grouppick.'" />'; |
$grptag = '<input type="hidden" name="grouppick" value="'.$grouppick.'" />'; |
} |
} |
if (ref($rolefilter) eq 'ARRAY') { |
if (ref($rolefilter) eq 'ARRAY') { |
$feedurl .= '&rolefilter='; |
$feedurl .= '&rolefilter='; |
$roletag .= '<input type="hidden" name="rolefilter" value="'; |
$roletag .= '<input type="hidden" name="rolefilter" value="'; |
foreach my $role (@{$rolefilter}) { |
foreach my $role (@{$rolefilter}) { |
$feedurl .= $role.','; |
$feedurl .= $role.','; |
Line 2487 sub redirect_back {
|
Line 2484 sub redirect_back {
|
$roletag =~ s/,$//; |
$roletag =~ s/,$//; |
$roletag .= '" />'; |
$roletag .= '" />'; |
} else { |
} else { |
$feedurl .= '&rolefilter='.$rolefilter; |
$feedurl .= '&rolefilter='.$rolefilter; |
$roletag = '<input type="hidden" name="rolefilter" value="'.$rolefilter.'" />'; |
$roletag = '<input type="hidden" name="rolefilter" value="'.$rolefilter.'" />'; |
} |
} |
$feedurl .= '&statusfilter='.$statusfilter; |
$feedurl .= '&statusfilter='.$statusfilter; |
$statustag ='<input type="hidden" name="statusfilter" value="'.$statusfilter.'" />'; |
$statustag ='<input type="hidden" name="statusfilter" value="'.$statusfilter.'" />'; |
} |
} |
} |
} |
Line 2645 sub screen_header {
|
Line 2642 sub screen_header {
|
} |
} |
if ($msgoptions) { |
if ($msgoptions) { |
$msgoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/com.png').'" />' |
$msgoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/com.png').'" />' |
.' '.&mt('Send Feedback').'</h2>' |
.' '.&mt('Send Feedback').'</h2><p>'.&Apache::lonhtmlcommon::coursepreflink(&mt('Feedback Settings'),'feedback').'</p>' |
.$msgoptions; |
.$msgoptions; |
} |
} |
if ($discussoptions) { |
if ($discussoptions) { |
$discussoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').'" />' |
$discussoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').'" />' |
.' '.&mt('Discussion Contributions').'</h2>' |
.' '.&mt('Discussion Contributions').'</h2><p>'.&Apache::lonhtmlcommon::coursepreflink(&mt('Discussion Settings'),'discussion').'</p>' |
.$discussoptions; |
.$discussoptions; |
} |
} |
return $msgoptions.$discussoptions; |
return $msgoptions.$discussoptions; |
Line 2951 sub show_preview {
|
Line 2948 sub show_preview {
|
); |
); |
} |
} |
|
|
|
sub contains_block_html { |
|
my ($message)=@_; |
|
return ($message =~ m/ |
|
<(br|h1|h2|h3|h4|h5|h6|p|ol|ul|table|pre|address|blockquote|center|div) |
|
[\s]* |
|
([\w]+\=['"][\w]+['"])* |
|
[\s]* |
|
( |
|
[\s]*[\/]>| |
|
>.*<\/\1[\s]*> |
|
)/x ); |
|
} |
|
|
sub newline_to_br { |
sub newline_to_br { |
my ($message)=@_; |
my ($message)=@_; |
my $newmessage; |
my $newmessage; |
Line 2984 sub generate_preview_button {
|
Line 2993 sub generate_preview_button {
|
<input type="hidden" name="subject" /> |
<input type="hidden" name="subject" /> |
<input type="hidden" name="comment" /> |
<input type="hidden" name="comment" /> |
<input type="button" value="$pre" |
<input type="button" value="$pre" |
onClick="if (typeof(document.$formname.onsubmit)=='function') {document.$formname.onsubmit();};this.form.comment.value=document.$formname.$fieldname.value;this.form.subject.value=document.$formname.subject.value;this.form.submit();" /> |
onclick="if (typeof(document.$formname.onsubmit)=='function') {document.$formname.onsubmit();};this.form.comment.value=document.$formname.$fieldname.value;this.form.subject.value=document.$formname.subject.value;this.form.submit();" /> |
</form> |
</form> |
ENDPREVIEW |
ENDPREVIEW |
} |
} |
Line 3043 $toolarge
|
Line 3052 $toolarge
|
<table class="LC_data_table"> |
<table class="LC_data_table"> |
<tr> |
<tr> |
<td colspan="2"> |
<td colspan="2"> |
<b>Subject:</b> $subject</b><br /><br /> |
<b>Subject:</b> <b>$subject</b><br /><br /> |
END |
END |
if ($idx) { |
if ($idx) { |
if ($attachmenturls) { |
if ($attachmenturls) { |
Line 3071 END
|
Line 3080 END
|
</td></tr> |
</td></tr> |
<tr> |
<tr> |
<td> |
<td> |
$lt{'adda'}</td><td><input type="file" name="addnewattach" /><input type="button" name="upload" value="Upload" onClick="this.form.submit()" /> |
$lt{'adda'}</td><td><input type="file" name="addnewattach" /><input type="button" name="upload" value="Upload" onclick="this.form.submit()" /> |
</td> |
</td> |
</tr> |
</tr> |
<tr> |
<tr> |
Line 3094 END
|
Line 3103 END
|
$r->print('<input type="hidden" name="deloldattach" value="'.$item.'" />'."\n"); |
$r->print('<input type="hidden" name="deloldattach" value="'.$item.'" />'."\n"); |
} |
} |
$r->print(<<END); |
$r->print(<<END); |
<input type="button" name="rtntoedit" value="$lt{'stch'}" onClick="setAction()" /> |
<input type="button" name="rtntoedit" value="$lt{'stch'}" onclick="setAction()" /> |
</form> |
</form> |
$end_page |
$end_page |
END |
END |
Line 3141 sub generate_attachments_button {
|
Line 3150 sub generate_attachments_button {
|
<br /> |
<br /> |
<form name="attachment" action="/adm/feedback?attach=$ressymb" method="post"> |
<form name="attachment" action="/adm/feedback?attach=$ressymb" method="post"> |
$lt{'clic'}: <input type="button" value="$att" |
$lt{'clic'}: <input type="button" value="$att" |
onClick="if (typeof(document.mailform.onsubmit)=='function') {document.mailform.onsubmit();};this.form.comment.value=escape(document.mailform.comment.value);this.form.subject.value=escape(document.mailform.subject.value); |
onclick="if (typeof(document.mailform.onsubmit)=='function') {document.mailform.onsubmit();};this.form.comment.value=escape(document.mailform.comment.value);this.form.subject.value=escape(document.mailform.subject.value); |
END |
END |
if (!$blockblog) { |
if (!$blockblog) { |
$response .= 'setblogvalue();'; |
$response .= 'setblogvalue();'; |