version 1.150, 2005/02/17 03:42:29
|
version 1.152, 2005/02/17 04:39:58
|
Line 974 sub build_posting_display {
|
Line 974 sub build_posting_display {
|
$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'},$ressymb); |
$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'},$ressymb); |
} |
} |
if ($$dischash{$readkey}=~/\.$idx\./) { |
if ($$dischash{$readkey}=~/\.$idx\./) { |
$ctlink = '<b>'.&mt('Mark unread').'?</b> <input type="checkbox" name="postunread_'.$idx.'" />'; |
$ctlink = '<label><b>'.&mt('Mark unread').'?</b> <input type="checkbox" name="postunread_'.$idx.'" /></label>'; |
} else { |
} else { |
$ctlink = '<b>'.&mt('Mark read').'?</b> <input type="checkbox" name="postread_'.$idx.'" />'; |
$ctlink = '<label><b>'.&mt('Mark read').'?</b> <input type="checkbox" name="postread_'.$idx.'" /></label>'; |
} |
} |
} |
} |
#figure out at what position this needs to print |
#figure out at what position this needs to print |
Line 1436 END
|
Line 1436 END
|
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'); |
|
my $html=&Apache::lonxml::xmlbegin(); |
|
my $encoding=&Apache::lonxml::fontsettings(); |
$r->print(<<END); |
$r->print(<<END); |
<html> |
$html |
<head> |
<head> |
|
$encoding |
<title>The LearningOnline Network with CAPA</title> |
<title>The LearningOnline Network with CAPA</title> |
<meta http-equiv="pragma" content="no-cache"></meta> |
<meta http-equiv="pragma" content="no-cache"></meta> |
$htmlheader |
$htmlheader |
Line 1661 sub print_display_options {
|
Line 1664 sub print_display_options {
|
$currtogg = $lt{'toggon'}; |
$currtogg = $lt{'toggon'}; |
$disctogg = 'toggon'; |
$disctogg = 'toggon'; |
} |
} |
|
my $html=&Apache::lonxml::xmlbegin(); |
|
my $encoding=&Apache::lonxml::fontsettings(); |
$r->print(<<END); |
$r->print(<<END); |
<html> |
$html |
<head> |
<head> |
|
$encoding |
<title>$lt{'dido'}</title> |
<title>$lt{'dido'}</title> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta http-equiv="pragma" content="no-cache" /> |
<script> |
<script> |
Line 1753 $lt{'sdpf'}<br/> $lt{'prca'} <ol><li>$l
|
Line 1759 $lt{'sdpf'}<br/> $lt{'prca'} <ol><li>$l
|
<tr bgcolor="#dddddd"> |
<tr bgcolor="#dddddd"> |
<td>$lt{'disa'}</td> |
<td>$lt{'disa'}</td> |
<td>$lt{$discdisp}</td> |
<td>$lt{$discdisp}</td> |
<td><input type="checkbox" name="discdisp" onClick="discdispChk('0')" /> $lt{'chgt'} "$dispchangeA" |
<td><label><input type="checkbox" name="discdisp" onClick="discdispChk('0')" /> $lt{'chgt'} "$dispchangeA"</label> |
<br /> |
<br /> |
<input type="checkbox" name="discdisp" onClick="discdispChk('1')" /> $lt{'chgt'} "$dispchangeB" |
<label><input type="checkbox" name="discdisp" onClick="discdispChk('1')" /> $lt{'chgt'} "$dispchangeB"</label> |
</td> |
</td> |
</tr><tr bgcolor="#eeeeee"> |
</tr><tr bgcolor="#eeeeee"> |
<td>$lt{'npmr'}</td> |
<td>$lt{'npmr'}</td> |
<td>$lt{$discmark}</td> |
<td>$lt{$discmark}</td> |
<td><input type="checkbox" name="discmark" />$lt{'chgt'} "$markchange"</td> |
<td><label><input type="checkbox" name="discmark" />$lt{'chgt'} "$markchange"</label></td> |
</tr><tr bgcolor="#dddddd"> |
</tr><tr bgcolor="#dddddd"> |
<td>$lt{'dotm'}</td> |
<td>$lt{'dotm'}</td> |
<td>$lt{$disctogg}</td> |
<td>$lt{$disctogg}</td> |
<td><input type="checkbox" name="disctogg" onClick="discdispChk('2')" />$lt{'chgt'} "$toggchange"</td> |
<td><label><input type="checkbox" name="disctogg" onClick="discdispChk('2')" />$lt{'chgt'} "$toggchange"</label></td> |
</tr> |
</tr> |
</table> |
</table> |
</td> |
</td> |
Line 1843 sub print_sortfilter_options {
|
Line 1849 sub print_sortfilter_options {
|
my %role_types = (); |
my %role_types = (); |
my %status_types = (); |
my %status_types = (); |
&sort_filter_names(\%sort_types,\%role_types,\%status_types); |
&sort_filter_names(\%sort_types,\%role_types,\%status_types); |
|
my $html=&Apache::lonxml::xmlbegin(); |
|
my $encoding=&Apache::lonxml::fontsettings(); |
$r->print(<<END); |
$r->print(<<END); |
<html> |
$html |
<head> |
<head> |
|
$encoding |
<title>$lt{'diso'}</title> |
<title>$lt{'diso'}</title> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta http-equiv="pragma" content="no-cache" /> |
<script type="text/javascript"> |
<script type="text/javascript"> |
Line 1929 $bodytag
|
Line 1937 $bodytag
|
</select> |
</select> |
</td> |
</td> |
<td> </td> |
<td> </td> |
<td><input type="checkbox" name="posterlist" value="$symb" />$lt{'shal'}</td> |
<td><label><input type="checkbox" name="posterlist" value="$symb" />$lt{'shal'}</label></td> |
</tr> |
</tr> |
</table> |
</table> |
<br /> |
<br /> |
Line 1996 sub print_showposters {
|
Line 2004 sub print_showposters {
|
} |
} |
} |
} |
} |
} |
|
my $html=&Apache::lonxml::xmlbegin(); |
|
my $encoding=&Apache::lonxml::fontsettings(); |
$r->print(<<END); |
$r->print(<<END); |
<html> |
$html |
<head> |
<head> |
|
$encoding |
<title>$lt{'diso'}</title> |
<title>$lt{'diso'}</title> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta http-equiv="pragma" content="no-cache" /> |
</head> |
</head> |
Line 2024 END
|
Line 2035 END
|
next; |
next; |
} else { |
} else { |
$count ++; |
$count ++; |
$r->print('<tr bgcolor="#ffffe6"><td align="right">'.$count.'</td><td align="center"><input name="stuinfo" type="checkbox" value="'.$_.'" /></td><td>'.$last.', '.$first.' ('.$uname.','.$udom.')</td><td>'.$postcounts{$_}.'</td></tr>'); |
$r->print('<tr bgcolor="#ffffe6"><td align="right">'.$count.'</td><td align="center"><label><input name="stuinfo" type="checkbox" value="'.$_.'" /></td><td>'.$last.', '.$first.' ('.$uname.','.$udom.')</label></td><td>'.$postcounts{$_}.'</td></tr>'); |
} |
} |
} |
} |
} |
} |
Line 2109 sub fail_redirect {
|
Line 2120 sub fail_redirect {
|
my ($r,$feedurl) = @_; |
my ($r,$feedurl) = @_; |
if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' }; |
if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' }; |
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
|
my $html=&Apache::lonxml::xmlbegin(); |
|
my $encoding=&Apache::lonxml::fontsettings(); |
$r->print (<<ENDFAILREDIR); |
$r->print (<<ENDFAILREDIR); |
<html> |
$html |
<head><title>Feedback not sent</title> |
<head> |
|
$encoding |
|
<title>Feedback not sent</title> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" /> |
<meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" /> |
</head> |
</head> |
Line 2195 sub redirect_back {
|
Line 2210 sub redirect_back {
|
} |
} |
$feedurl=&Apache::lonenc::check_encrypt($feedurl); |
$feedurl=&Apache::lonenc::check_encrypt($feedurl); |
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
|
my $html=&Apache::lonxml::xmlbegin(); |
|
my $encoding=&Apache::lonxml::fontsettings(); |
$r->print (<<ENDREDIR); |
$r->print (<<ENDREDIR); |
<html> |
$html |
<head> |
<head> |
|
$encoding |
<title>Feedback sent</title> |
<title>Feedback sent</title> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" /> |
<meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" /> |
Line 2225 sub no_redirect_back {
|
Line 2243 sub no_redirect_back {
|
my ($r,$feedurl) = @_; |
my ($r,$feedurl) = @_; |
my $nofeed=&mt('Sorry, no feedback possible on this resource ...'); |
my $nofeed=&mt('Sorry, no feedback possible on this resource ...'); |
my $continue=&mt('Continue'); |
my $continue=&mt('Continue'); |
|
my $html=&Apache::lonxml::xmlbegin(); |
|
my $encoding=&Apache::lonxml::fontsettings(); |
$r->print (<<ENDNOREDIR); |
$r->print (<<ENDNOREDIR); |
<html> |
$html |
<head><title>Feedback not sent</title> |
<head> |
|
$encoding |
|
<title>Feedback not sent</title> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta http-equiv="pragma" content="no-cache" /> |
ENDNOREDIR |
ENDNOREDIR |
|
|
Line 2255 sub screen_header {
|
Line 2277 sub screen_header {
|
unless (($ENV{'form.replydisc'}) || ($ENV{'form.editdisc'})) { |
unless (($ENV{'form.replydisc'}) || ($ENV{'form.editdisc'})) { |
if (($feedurl=~/^\/res\//) && ($feedurl!~/^\/res\/adm/)) { |
if (($feedurl=~/^\/res\//) && ($feedurl!~/^\/res\/adm/)) { |
$msgoptions= |
$msgoptions= |
'<p><input type="checkbox" name="author" /> '. |
'<p><label><input type="checkbox" name="author" /> '. |
&mt('Feedback to resource author').'</p>'; |
&mt('Feedback to resource author').'</label></p>'; |
} |
} |
if (&feedback_available(1)) { |
if (&feedback_available(1)) { |
$msgoptions.= |
$msgoptions.= |
'<br /><input type="checkbox" name="question" /> '. |
'<p><label><input type="checkbox" name="question" /> '. |
&mt('Question about resource content'); |
&mt('Question about resource content').'</label></p>'; |
} |
} |
if (&feedback_available(0,1)) { |
if (&feedback_available(0,1)) { |
$msgoptions.= |
$msgoptions.= |
'<br /><input type="checkbox" name="course" /> '. |
'<p><label><input type="checkbox" name="course" /> '. |
&mt('Question/Comment/Feedback about course content'); |
&mt('Question/Comment/Feedback about course content'). |
|
'</label></p>'; |
} |
} |
if (&feedback_available(0,0,1)) { |
if (&feedback_available(0,0,1)) { |
$msgoptions.= |
$msgoptions.= |
'<br /><input type="checkbox" name="policy" /> '. |
'<p><label><input type="checkbox" name="policy" /> '. |
&mt('Question/Comment/Feedback about course policy'); |
&mt('Question/Comment/Feedback about course policy'). |
|
'</label></p>'; |
} |
} |
} |
} |
if ($ENV{'request.course.id'}) { |
if ($ENV{'request.course.id'}) { |
Line 2279 sub screen_header {
|
Line 2303 sub screen_header {
|
&Apache::lonnet::allowed('pch', |
&Apache::lonnet::allowed('pch', |
$ENV{'request.course.id'}. |
$ENV{'request.course.id'}. |
($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) { |
($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) { |
$discussoptions='<input type="checkbox" name="discuss" onClick="this.form.anondiscuss.checked=false;" '. |
$discussoptions='<label><input type="checkbox" name="discuss" onClick="this.form.anondiscuss.checked=false;" '. |
($ENV{'form.replydisc'}?' checked="1"':'').' /> '. |
($ENV{'form.replydisc'}?' checked="1"':'').' /> '. |
&mt('Contribution to course discussion of resource'); |
&mt('Contribution to course discussion of resource'); |
$discussoptions.='<br /><input type="checkbox" name="anondiscuss" onClick="this.form.discuss.checked=false;" /> '. |
$discussoptions.='</label><br /><label><input type="checkbox" name="anondiscuss" onClick="this.form.discuss.checked=false;" /> '. |
&mt('Anonymous contribution to course discussion of resource'). |
&mt('Anonymous contribution to course discussion of resource'). |
' <i>('.&mt('name only visible to course faculty').')</i>'; |
' <i>('.&mt('name only visible to course faculty').')</i></label>'; |
} |
} |
} |
} |
if ($msgoptions) { $msgoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/feedback.gif').'" />'.&mt('Sending Messages').'</h2>'.$msgoptions; } |
if ($msgoptions) { $msgoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/feedback.gif').'" />'.&mt('Sending Messages').'</h2>'.$msgoptions; } |
Line 2604 sub modify_attachments {
|
Line 2628 sub modify_attachments {
|
&extract_attachments($attachmenturls,$idx,$numoldver,\$msg,\%attachments,\%currattach,$currdelold); |
&extract_attachments($attachmenturls,$idx,$numoldver,\$msg,\%attachments,\%currattach,$currdelold); |
} |
} |
&Apache::lonenc::check_encrypt(\$symb); |
&Apache::lonenc::check_encrypt(\$symb); |
|
my $html=&Apache::lonxml::xmlbegin(); |
|
my $encoding=&Apache::lonxml::fontsettings(); |
$r->print(<<END); |
$r->print(<<END); |
<html> |
$html |
<head> |
<head> |
|
$encoding |
<title>Managing Attachments</title> |
<title>Managing Attachments</title> |
<script> |
<script> |
function setAction () { |
function setAction () { |
Line 2630 END
|
Line 2657 END
|
foreach my $id (@currold) { |
foreach my $id (@currold) { |
my $attachurl = &HTML::Entities::decode($attachments{$id}{'filename'}); |
my $attachurl = &HTML::Entities::decode($attachments{$id}{'filename'}); |
$attachurl =~ m#/([^/]+)$#; |
$attachurl =~ m#/([^/]+)$#; |
$r->print('<input type="checkbox" name="deloldattach" value="'.$id.'" /> '.$1.'<br />'."\n"); |
$r->print('<label><input type="checkbox" name="deloldattach" value="'.$id.'" /> '.$1.'</label><br />'."\n"); |
} |
} |
$r->print("<br />"); |
$r->print("<br />"); |
} |
} |
Line 2640 END
|
Line 2667 END
|
$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"); |
$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}) { |
foreach (@{$currnewattach}) { |
$_ =~ m#/([^/]+)$#; |
$_ =~ m#/([^/]+)$#; |
$r->print('<input type="checkbox" name="delnewattach" value="'.$_.'" /> '.$1.'<br />'."\n"); |
$r->print('<label><input type="checkbox" name="delnewattach" value="'.$_.'" /> '.$1.'</label><br />'."\n"); |
} |
} |
$r->print("<br />"); |
$r->print("<br />"); |
} |
} |
Line 2955 sub handler {
|
Line 2982 sub handler {
|
if ($ENV{'form.allversions'}) { |
if ($ENV{'form.allversions'}) { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
|
my $html=&Apache::lonxml::xmlbegin(); |
|
my $encoding=&Apache::lonxml::fontsettings(); |
my $bodytag=&Apache::loncommon::bodytag('Discussion Post Versions'); |
my $bodytag=&Apache::loncommon::bodytag('Discussion Post Versions'); |
$r->print(<<END); |
$r->print(<<END); |
<html> |
$html |
<head> |
<head> |
|
$encoding |
<title>Post Versions</title> |
<title>Post Versions</title> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta http-equiv="pragma" content="no-cache" /> |
</head> |
</head> |
Line 3058 END
|
Line 3088 END
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
|
my $html=&Apache::lonxml::xmlbegin(); |
|
my $encoding=&Apache::lonxml::fontsettings(); |
$r->print (<<ENDREDIR); |
$r->print (<<ENDREDIR); |
<html> |
$html |
<head> |
<head> |
|
$encoding |
<title>New posts marked as read</title> |
<title>New posts marked as read</title> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" /> |
<meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" /> |