version 1.362, 2013/01/03 20:41:45
|
version 1.370.2.8, 2024/07/03 22:14:18
|
Line 44 use HTML::LCParser();
|
Line 44 use HTML::LCParser();
|
#use HTML::Tidy::libXML; |
#use HTML::Tidy::libXML; |
use Apache::lonspeller(); |
use Apache::lonspeller(); |
use Apache::longroup; |
use Apache::longroup; |
use Cwd; |
use Archive::Zip qw( :ERROR_CODES ); |
use LONCAPA; |
use LONCAPA qw(:DEFAULT :match); |
|
|
sub discussion_open { |
sub discussion_open { |
my ($status,$symb)=@_; |
my ($status,$symb)=@_; |
Line 336 sub list_discussion {
|
Line 336 sub list_discussion {
|
'aner' => 'An error occurred opening the manifest file.', |
'aner' => 'An error occurred opening the manifest file.', |
'difo' => 'Discussion for', |
'difo' => 'Discussion for', |
'aerr' => 'An error occurred opening the export file for posting', |
'aerr' => 'An error occurred opening the export file for posting', |
|
'discussions' => 'DISCUSSIONS' |
|
); |
|
my %js_lt = &Apache::lonlocal::texthash( |
'aysu' => 'Are you sure you want to delete this post?', |
'aysu' => 'Are you sure you want to delete this post?', |
'dpwn' => 'Deleted posts will no longer be visible to you and other students', |
'dpwn' => 'Deleted posts will no longer be visible to you and other students', |
'bwco' => 'but will continue to be visible to your instructor', |
'bwco' => 'but will continue to be visible to your instructor', |
'depo' => 'Deleted posts will no longer be visible to you or anyone else.', |
'depo' => 'Deleted posts will no longer be visible to you or anyone else.', |
'discussions' => 'DISCUSSIONS' |
|
); |
); |
|
&js_escape(\%js_lt); |
|
|
my $currdisp = $lt{'allposts'}; |
my $currdisp = $lt{'allposts'}; |
my $currmark = $lt{'onmark'}; |
my $currmark = $lt{'onmark'}; |
Line 447 imscp_v1p1.xsd http://www.imsglobal.org/
|
Line 450 imscp_v1p1.xsd http://www.imsglobal.org/
|
prevparm = "&previous="+previous |
prevparm = "&previous="+previous |
} |
} |
if (caller == 'studentdelete') { |
if (caller == 'studentdelete') { |
if (confirm("$lt{'aysu'}\\n$lt{'dpwn'},\\n$lt{'bwco'}")) { |
if (confirm("$js_lt{'aysu'}\\n$js_lt{'dpwn'},\\n$js_lt{'bwco'}")) { |
document.location.href = "/adm/feedback?hide="+symbparm+prevparm+groupparm |
document.location.href = "/adm/feedback?hide="+symbparm+prevparm+groupparm |
} |
} |
} else { |
} else { |
if (caller == 'seeiddelete') { |
if (caller == 'seeiddelete') { |
if (confirm("$lt{'aysu'}\\n$lt{'depo'}")) { |
if (confirm("$js_lt{'aysu'}\\n$js_lt{'depo'}")) { |
document.location.href = "/adm/feedback?deldisc="+symbparm+prevparm+groupparm |
document.location.href = "/adm/feedback?deldisc="+symbparm+prevparm+groupparm |
} |
} |
} |
} |
Line 468 imscp_v1p1.xsd http://www.imsglobal.org/
|
Line 471 imscp_v1p1.xsd http://www.imsglobal.org/
|
my $numhidden = keys(%notshown); |
my $numhidden = keys(%notshown); |
if ($numhidden > 0) { |
if ($numhidden > 0) { |
my $colspan = $maxdepth+1; |
my $colspan = $maxdepth+1; |
$discussion.="\n".'<tr><td bgcolor="#CCCCCC" colspan="'.$colspan.'">'. |
$discussion.="\n".'<tr><td bgcolor="#CCCCCC" colspan="'.$colspan.'">'; |
'<a href="/adm/feedback?allposts=1&symb='.$escsymb; |
my $href = '/adm/feedback?allposts=1&symb='.$escsymb; |
if ($newpostsflag) { |
if ($newpostsflag) { |
$discussion .= '&previous='.$prevread; |
$href .= '&previous='.$prevread; |
} |
} |
$discussion .= &group_args($group); |
$href .= &group_args($group); |
$discussion .= '">'.&mt('Show all posts').'</a> '.&mt('to display').' '. |
|
$numhidden.' '; |
|
if ($showunmark) { |
if ($showunmark) { |
$discussion .= &mt('posts previously marked read'); |
$discussion .= &mt('[_1]Show all posts[_2] to display [quant,_3,post] previously marked read', |
|
'<a href="'.$href.'">','</a>',$numhidden); |
} else { |
} else { |
$discussion .= &mt('previously viewed posts'); |
$discussion .= &mt('[_1]Show all posts[_2] to display [quant,_3,post] previously viewed', |
|
'<a href="'.$href.'">','</a>',$numhidden); |
} |
} |
$discussion .= '<br/></td></tr>'; |
$discussion .= '<br/></td></tr>'; |
} |
} |
Line 562 imscp_v1p1.xsd http://www.imsglobal.org/
|
Line 565 imscp_v1p1.xsd http://www.imsglobal.org/
|
my $postingfile; |
my $postingfile; |
my $postingfilename = $tempexport.'/'.$postfilename; |
my $postingfilename = $tempexport.'/'.$postfilename; |
if ($postingfile = Apache::File->new('>'.$postingfilename)) { |
if ($postingfile = Apache::File->new('>'.$postingfilename)) { |
print $postingfile '<html><head><title>Discussion Post</title></head><body>'. |
print $postingfile '<html><head><title>'.&mt('Discussion Post').'</title></head><body>'. |
$imsitems{$alldiscussion{$post}}{'title'}.' '. |
$imsitems{$alldiscussion{$post}}{'title'}.' '. |
$imsitems{$alldiscussion{$post}}{'sender'}. |
$imsitems{$alldiscussion{$post}}{'sender'}. |
$imsitems{$alldiscussion{$post}}{'timestamp'}.'<br /><br />'. |
$imsitems{$alldiscussion{$post}}{'timestamp'}.'<br /><br />'. |
Line 693 END
|
Line 696 END
|
|
|
#Create zip file in prtspool |
#Create zip file in prtspool |
|
|
my $imszipfile = '/prtspool/'. |
if (($env{'user.name'} =~ /^$match_username$/) |
$env{'user.name'}.'_'.$env{'user.domain'}.'_'. |
&& ($env{'user.domain'} =~ /^$match_domain$/)) { |
time.'_'.rand(1000000000).'.zip'; |
my $now = time(); |
my $cwd = &getcwd(); |
my $imszipfile = '/prtspool/'. |
my $imszip = '/home/httpd/'.$imszipfile; |
join('_',$env{'user.name'},$env{'user.domain'},$now). |
chdir $tempexport; |
'_'.rand(1000000000).'.zip'; |
open(OUTPUT, "zip -r $imszip * 2> /dev/null |"); |
my $zip = Archive::Zip->new(); |
close(OUTPUT); |
$zip->addTree($tempexport); |
chdir $cwd; |
my $imszip = '/home/httpd/'.$imszipfile; |
$discussion .= &mt('Download the zip file from [_1]Discussion Posting Archive','<a href="'.$imszipfile.'">').'</a><br />'; |
if ($zip->writeToFileNamed($imszip) == AZ_OK) { |
if ($copyresult) { |
$discussion .= &mt('Download the zip file from [_1]Discussion Posting Archive[_2]', |
$discussion .= &mt('The following errors occurred during export').' - <br />'.$copyresult; |
'<a href="'.$imszipfile.'">','</a>').'<br />'; |
|
} else { |
|
$discussion .= &mt('Failed to create zip file').'<br />'; |
|
} |
|
if ($copyresult) { |
|
$discussion .= '<span class="LC_error">'. |
|
&mt('The following errors occurred during export:'). |
|
'</span><br />'.$copyresult; |
|
} |
|
} else { |
|
$discussion .= '<p class="LC_error">'. |
|
&mt('Unfortunately you will not be able to retrieve an archive of the discussion posts at this time, because there was a problem creating the zip file.').'</p>'; |
} |
} |
} |
} |
} else { |
} else { |
$discussion .= '<br />'.&mt('Unfortunately you will not be able to retrieve an archive of the discussion posts at this time, because there was a problem creating a manifest file.').'<br />'; |
$discussion .= '<p class="LC_error">'. |
|
&mt('Unfortunately you will not be able to retrieve an archive of the discussion posts at this time, because there was a problem creating a manifest file.').'</p>'; |
} |
} |
return $discussion; |
return $discussion; |
} |
} |
Line 840 sub send_feedback_link {
|
Line 855 sub send_feedback_link {
|
&discussion_link($ressymb, |
&discussion_link($ressymb, |
'<img alt="" class="LC_noBorder" src="'. |
'<img alt="" class="LC_noBorder" src="'. |
&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif'). |
&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif'). |
'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Post Discussion').'</span>', |
'" /><span class="LC_menubuttons_inline_text">'.&mt('Post Discussion').'</span>', |
'replydisc'). |
'replydisc'). |
'</span>'; |
'</span>'; |
} |
} |
Line 851 sub send_message_link {
|
Line 866 sub send_message_link {
|
&discussion_link($ressymb, |
&discussion_link($ressymb, |
'<img alt="" class="LC_noBorder" src="'. |
'<img alt="" class="LC_noBorder" src="'. |
&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png'). |
&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png'). |
'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Send Feedback').'</span>', |
'" /><span class="LC_menubuttons_inline_text">'.&mt('Send Feedback').'</span>', |
'sendmessageonly'). |
'sendmessageonly'). |
'</span>'; |
'</span>'; |
return $output; |
return $output; |
Line 926 sub postingform_display {
|
Line 941 sub postingform_display {
|
$currnewattach,$currdelold,$group,$crstype) = @_; |
$currnewattach,$currdelold,$group,$crstype) = @_; |
my $newattachmsg; |
my $newattachmsg; |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'note' => 'Note: in anonymous discussion, your name is visible only to course faculty', |
'note' => 'Note: in anonymous discussion, your name is visible only to course faculty', |
'title' => 'Title', |
'title' => 'Title', |
'podi' => 'Post Discussion', |
'podi' => 'Post Discussion', |
'poan' => 'Post Anonymous Discussion', |
'poan' => 'Post Anonymous Discussion', |
Line 1249 sub build_posting_display {
|
Line 1264 sub build_posting_display {
|
@{$$usernamesort{$contrib{$idx.':senderdomain'}}{$contrib{$idx.':sendername'}}} = ("$idx"); |
@{$$usernamesort{$contrib{$idx.':senderdomain'}}{$contrib{$idx.':sendername'}}} = ("$idx"); |
} |
} |
# Set up for sorting by last name, then first name |
# Set up for sorting by last name, then first name |
my %names = &Apache::lonnet::get('environment', |
my %names = &Apache::loncommon::getnames($contrib{$idx.':sendername'}, |
['firstname','lastname'],$contrib{$idx.':senderdomain'}, |
$contrib{$idx.':senderdomain'}); |
,$contrib{$idx.':sendername'}); |
|
my $lastname = $names{'lastname'}; |
my $lastname = $names{'lastname'}; |
my $firstname = $names{'firstname'}; |
my $firstname = $names{'firstname'}; |
if ($lastname eq '') { |
if ($lastname eq '') { |
Line 1278 sub build_posting_display {
|
Line 1292 sub build_posting_display {
|
if (&editing_allowed($escsymb.':::'.$idx,$group)) { |
if (&editing_allowed($escsymb.':::'.$idx,$group)) { |
if (($env{'user.domain'} eq $contrib{$idx.':senderdomain'}) && ($env{'user.name'} eq $contrib{$idx.':sendername'})) { |
if (($env{'user.domain'} eq $contrib{$idx.':senderdomain'}) && ($env{'user.name'} eq $contrib{$idx.':sendername'})) { |
$sender.=' '. |
$sender.=' '. |
&discussion_link($symb,&mt('Edit'),'editdisc',$idx,$$newpostsflag,$prevread,&group_args($group)); |
&discussion_link($ressymb,&mt('Edit'),'editdisc',$idx,$$newpostsflag,$prevread,&group_args($group)); |
unless ($seehidden) { |
unless ($seehidden) { |
my $grpargs = &group_args($group); |
my $grpargs = &group_args($group); |
$sender.=" <a href=\"javascript:verifydelete('studentdelete','$escsymb','$idx','$$newpostsflag','$prevread','$grpargs')"; |
$sender.=" <a href=\"javascript:verifydelete('studentdelete','$escsymb','$idx','$$newpostsflag','$prevread','$grpargs')"; |
Line 1290 sub build_posting_display {
|
Line 1304 sub build_posting_display {
|
if ($hiddens{$idx}) { |
if ($hiddens{$idx}) { |
unless ($studenthidden) { |
unless ($studenthidden) { |
$sender.=' '. |
$sender.=' '. |
&discussion_link($symb,&mt('Make Visible'),'unhide',$idx,$$newpostsflag,$prevread,&group_args($group)); |
&discussion_link($ressymb,&mt('Make Visible'),'unhide',$idx,$$newpostsflag,$prevread,&group_args($group)); |
} |
} |
} else { |
} else { |
$sender.=' '. |
$sender.=' '. |
&discussion_link($symb,&mt('Hide'),'hide',$idx,$$newpostsflag,$prevread,&group_args($group)); |
&discussion_link($ressymb,&mt('Hide'),'hide',$idx,$$newpostsflag,$prevread,&group_args($group)); |
} |
} |
my $grpargs = &group_args($group); |
my $grpargs = &group_args($group); |
$sender.= |
$sender.= |
Line 1333 sub build_posting_display {
|
Line 1347 sub build_posting_display {
|
if (($group ne '') && |
if (($group ne '') && |
(&check_group_priv($group,'pgd') eq 'ok')) { |
(&check_group_priv($group,'pgd') eq 'ok')) { |
$sender.=' '. |
$sender.=' '. |
&discussion_link($symb,&mt('Reply'),'replydisc',$idx,$$newpostsflag,$prevread,&group_args($group)); |
&discussion_link($ressymb,&mt('Reply'),'replydisc',$idx,$$newpostsflag,$prevread,&group_args($group)); |
} elsif (&Apache::lonnet::allowed('pch', |
} elsif (&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'}:''))) { |
$sender.=' '. |
$sender.=' '. |
&discussion_link($symb,&mt('Reply'),'replydisc',$idx,$$newpostsflag,$prevread); |
&discussion_link($ressymb,&mt('Reply'),'replydisc',$idx,$$newpostsflag,$prevread); |
} |
} |
} |
} |
if ($viewgrades) { |
if ($viewgrades) { |
Line 1496 sub build_posting_display {
|
Line 1510 sub build_posting_display {
|
} else { |
} else { |
$novote = &mt('No voting for hidden posts.'); |
$novote = &mt('No voting for hidden posts.'); |
} |
} |
|
&html_escape(\$novote); |
$$discussionitems[$idx].= |
$$discussionitems[$idx].= |
'<a href="javascript:alert('."'$novote'".');" style="text-decoration: none;">'. |
'<a href="javascript:alert('."'$novote'".');" style="text-decoration: none;">'. |
'<img border="0" src="/res/adm/pages/thumbsup_novote.png" alt="'.$novote.'" /> '. |
'<img border="0" src="/res/adm/pages/thumbsup_novote.png" alt="'.$novote.'" /> '. |
Line 1505 sub build_posting_display {
|
Line 1520 sub build_posting_display {
|
if ($userlikes{$idx}) { |
if ($userlikes{$idx}) { |
$$discussionitems[$idx].='<img border="0" src="/res/adm/pages/thumbsup_gray.png" alt="'.&mt('You like this posting').'" />'; |
$$discussionitems[$idx].='<img border="0" src="/res/adm/pages/thumbsup_gray.png" alt="'.&mt('You like this posting').'" />'; |
} else { |
} else { |
$$discussionitems[$idx].=' '.&discussion_link($symb,'<img border="0" src="/res/adm/pages/thumbsup.png" alt="'.&mt('Like').'" />','like',$idx,$$newpostsflag,$prevread,&group_args($group),&mt("Like this posting")); |
$$discussionitems[$idx].=' '.&discussion_link($ressymb,'<img border="0" src="/res/adm/pages/thumbsup.png" alt="'.&mt('Like').'" />','like',$idx,$$newpostsflag,$prevread,&group_args($group),&mt("Like this posting")); |
} |
} |
if ($userunlikes{$idx}) { |
if ($userunlikes{$idx}) { |
$$discussionitems[$idx].='<img border="0" src="/res/adm/pages/thumbsdown_gray.png" alt="'.&mt('You unlike this posting').'" />'; |
$$discussionitems[$idx].='<img border="0" src="/res/adm/pages/thumbsdown_gray.png" alt="'.&mt('You unlike this posting').'" />'; |
} else { |
} else { |
$$discussionitems[$idx].=' '.&discussion_link($symb,'<img border="0" src="/res/adm/pages/thumbsdown.png" alt="'.&mt('Unlike').'" />','unlike',$idx,$$newpostsflag,$prevread,&group_args($group),&mt("Unlike this posting")); |
$$discussionitems[$idx].=' '.&discussion_link($ressymb,'<img border="0" src="/res/adm/pages/thumbsdown.png" alt="'.&mt('Unlike').'" />','unlike',$idx,$$newpostsflag,$prevread,&group_args($group),&mt("Unlike this posting")); |
} |
} |
} |
} |
} |
} |
Line 1528 sub build_posting_display {
|
Line 1543 sub build_posting_display {
|
$$discussionitems[$idx] .= ' '.&mt('This post has been edited by the author.'); |
$$discussionitems[$idx] .= ' '.&mt('This post has been edited by the author.'); |
if ($seehidden) { |
if ($seehidden) { |
$$discussionitems[$idx] .= ' '. |
$$discussionitems[$idx] .= ' '. |
&discussion_link($symb,&mt('Display all versions'),'allversions',$idx,$$newpostsflag,$prevread,&group_args($group)); |
&discussion_link($ressymb,&mt('Display all versions'),'allversions',$idx,$$newpostsflag,$prevread,&group_args($group)); |
} |
} |
$$discussionitems[$idx].='<br/>'.&mt('Earlier version(s) were posted on: '); |
$$discussionitems[$idx].='<br/>'.&mt('Earlier version(s) were posted on: '); |
if ($contrib{$idx.':history'} =~ m/:/) { |
if ($contrib{$idx.':history'} =~ m/:/) { |
Line 1630 sub get_post_contents {
|
Line 1645 sub get_post_contents {
|
$$contrib{$idx.':sendername'}, |
$$contrib{$idx.':sendername'}, |
$$contrib{$idx.':senderdomain'}); |
$$contrib{$idx.':senderdomain'}); |
$$screenname=$$contrib{$idx.':screenname'}; |
$$screenname=$$contrib{$idx.':screenname'}; |
$$showaboutme = &Apache::lonnet::usertools_access($$contrib{$idx.':sendername'}, |
$$showaboutme = &Apache::loncommon::aboutme_on($$contrib{$idx.':sendername'}, |
$$contrib{$idx.':senderdomain'}, |
$$contrib{$idx.':senderdomain'}); |
'aboutme'); |
|
my $sender = $$plainname; |
my $sender = $$plainname; |
if ($$showaboutme) { |
if ($$showaboutme) { |
$sender = &Apache::loncommon::aboutmewrapper( |
$sender = &Apache::loncommon::aboutmewrapper( |
Line 1760 sub mail_screen {
|
Line 1774 sub mail_screen {
|
|
|
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'myqu' => 'Question/comment/feedback:', |
'myqu' => 'Question/comment/feedback:', |
'title' => 'Title', |
|
'reta' => 'Retained attachments', |
'reta' => 'Retained attachments', |
'atta' => 'Attachment', |
'atta' => 'Attachment', |
); |
); |
if($env{'form.editdisc'} || $env{'form.replydisc'}){ |
if ($env{'form.editdisc'} || $env{'form.replydisc'}){ |
%lt = &Apache::lonlocal::texthash( |
$lt{'myqu'} = &mt('Post Discussion'); |
'myqu' => 'Post Discussion', |
|
); |
|
} |
} |
my $restitle = &get_resource_title($caller_symb,$feedurl); |
my $restitle = &get_resource_title($caller_symb,$feedurl); |
my $quote=''; |
my $quote=''; |
Line 1896 END
|
Line 1907 END
|
my $latexHelp=&Apache::loncommon::helpLatexCheatsheet(undef,undef,1,($env{'form.modal'}?'popup':0)); |
my $latexHelp=&Apache::loncommon::helpLatexCheatsheet(undef,undef,1,($env{'form.modal'}?'popup':0)); |
my $send=&mt('Send'); |
my $send=&mt('Send'); |
my $alert = &mt('Please select a feedback type.'); |
my $alert = &mt('Please select a feedback type.'); |
|
&js_escape(\$alert); |
my $js= <<END; |
my $js= <<END; |
<script type="text/javascript"> |
<script type="text/javascript"> |
//<!-- |
//<!-- |
Line 1933 END
|
Line 1945 END
|
$anonscript |
$anonscript |
//--> |
//--> |
</script> |
</script> |
|
<script type="text/javascript" src="/res/adm/includes/file_upload.js"></script> |
END |
END |
|
|
my ($textareaheader,$textareaclass); |
my ($textareaheader,$textareaclass); |
Line 1952 END
|
Line 1965 END
|
|
|
my %onload = ('onload' => 'window.focus();setposttype();'); |
my %onload = ('onload' => 'window.focus();setposttype();'); |
my %parms=('add_entries' => \%onload); |
my %parms=('add_entries' => \%onload); |
if ($env{'form.modal'} ne 'yes') { $parms{'bread_crumbs'} = $brcrum } |
if ($env{'form.modal'} ne 'yes') { $parms{'bread_crumbs'} = $brcrum; } |
my $start_page= |
my $start_page= |
&Apache::loncommon::start_page('Resource Feedback and Discussion',$js,\%parms); |
&Apache::loncommon::start_page('Resource Feedback and Discussion',$js,\%parms); |
|
|
Line 2040 END
|
Line 2053 END
|
} else { |
} else { |
$r->print(<<END); |
$r->print(<<END); |
<p> |
<p> |
$lt{'atta'} $attachmaxtext: <input type="file" name="attachment" /> |
$lt{'atta'} $attachmaxtext: <input type="file" name="attachment" class="LC_flUpload" /> |
|
<input type="hidden" id="LC_free_space" value="131072" /> |
</p> |
</p> |
END |
END |
} |
} |
Line 2129 sub print_display_options {
|
Line 2143 sub print_display_options {
|
'yhni' => 'You have not indicated that you wish to change any of the discussion settings', |
'yhni' => 'You have not indicated that you wish to change any of the discussion settings', |
'ywbr' => 'You will be returned to the previous page if you click OK.' |
'ywbr' => 'You will be returned to the previous page if you click OK.' |
); |
); |
|
my %js_lt = &Apache::lonlocal::texthash( |
|
'yhni' => 'You have not indicated that you wish to change any of the discussion settings', |
|
'ywbr' => 'You will be returned to the previous page if you click OK.' |
|
); |
|
&js_escape(\%js_lt); |
|
|
my $dispchangeA = $lt{'unread'}; |
my $dispchangeA = $lt{'unread'}; |
my $dispchangeB = $lt{'unmark'}; |
my $dispchangeB = $lt{'unmark'}; |
Line 2222 function setDisp() {
|
Line 2241 function setDisp() {
|
if (chktotal > 0) { |
if (chktotal > 0) { |
document.modifydisp.submit() |
document.modifydisp.submit() |
} else { |
} else { |
if(confirm("$lt{'yhni'}. \\n$lt{'ywbr'}")) { |
if(confirm("$js_lt{'yhni'}. \\n$js_lt{'ywbr'}")) { |
if (prev > 0) { |
if (prev > 0) { |
location.href = "$feedurl?previous=$previous" |
location.href = "$feedurl?previous=$previous" |
} else { |
} else { |
Line 2582 sub print_showposters {
|
Line 2601 sub print_showposters {
|
my $table_start =&Apache::loncommon::start_data_table(); |
my $table_start =&Apache::loncommon::start_data_table(); |
$r->print(<<END); |
$r->print(<<END); |
$start_page |
$start_page |
<form name="pickpostersform" method="post"> |
<form name="pickpostersform" method="post" action=""> |
<br /> |
<br /> |
$table_start |
$table_start |
<tr> |
<tr> |
Line 2682 sub get_post_attachments {
|
Line 2701 sub get_post_attachments {
|
$$attachments{'0'}{'filename'} = $attachmenturls; |
$$attachments{'0'}{'filename'} = $attachmenturls; |
$$attachments{'0'}{'0'} = 'n'; |
$$attachments{'0'}{'0'} = 'n'; |
} |
} |
|
|
return; |
return; |
} |
} |
|
|
sub fail_redirect { |
sub fail_redirect { |
my ($r,$feedurl) = @_; |
my ($r,$feedurl,$delay) = @_; |
if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' }; |
if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' }; |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'sorr' => 'Sorry, no recipients ...', |
'sorr' => 'Sorry, no recipients ...', |
); |
); |
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
$r->print(&Apache::loncommon::start_page('Feedback not sent',undef, |
my %parms=('only_body' => 1); |
{'redirect' => [2,$feedurl], |
if ($delay !~ /^\d+(|\.\d+)$/) { |
'only_body' => 1,})); |
$delay = 2; |
|
} |
|
if ($env{'form.modal'}) { |
|
my $onload = 'document.forms.reldt.submit()'; |
|
if ($delay) { |
|
my $js_delay = int(1000 * $delay); |
|
$onload = "setTimeout(function(){ |
|
document.forms.reldt.submit(); |
|
},$js_delay);"; |
|
} |
|
$parms{'add_entries'}={'onload' => $onload}; |
|
} else { |
|
$parms{'redirect'}=[$delay,$feedurl]; |
|
} |
|
$r->print(&Apache::loncommon::start_page('Feedback not sent',undef,\%parms)); |
|
my $windowname = 'loncapaclient'; |
$r->print(<<ENDFAILREDIR); |
$r->print(<<ENDFAILREDIR); |
<img align="right" src="$logo" /> |
<img align="right" src="$logo" /> |
<p class="LC_warning">$lt{'sorr'}</p> |
<p class="LC_warning">$lt{'sorr'}</p> |
|
<form name="reldt" action="$feedurl" target="$windowname"> |
|
</form> |
ENDFAILREDIR |
ENDFAILREDIR |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
} |
} |
|
|
sub redirect_back { |
sub redirect_back { |
my ($r,$feedurl,$typestyle,$sendsomething,$sendposts,$blog,$status,$previous,$sort,$rolefilter,$statusfilter,$sectionpick,$grouppick,$numpicks,$group,$toolarge) = @_; |
my ($r,$feedurl,$typestyle,$sendsomething,$sendposts,$blog,$status,$previous,$sort, |
|
$rolefilter,$statusfilter,$sectionpick,$grouppick,$numpicks,$group,$toolarge,$delay) = @_; |
my $sorttag = ''; |
my $sorttag = ''; |
my $roletag = ''; |
my $roletag = ''; |
my $statustag = ''; |
my $statustag = ''; |
Line 2803 sub redirect_back {
|
Line 2839 sub redirect_back {
|
&Apache::lonenc::check_encrypt(\$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 %parms=('only_body' => 1); |
my %parms=('only_body' => 1); |
|
if ($delay !~ /^\d+(|\.\d+)$/) { |
|
$delay = 0; |
|
} |
if ($env{'form.modal'}) { |
if ($env{'form.modal'}) { |
$parms{'add_entries'}={'onLoad' => 'document.forms.reldt.submit()'}; |
my $onload = 'document.forms.reldt.submit()'; |
|
if ($delay) { |
|
my $js_delay = int(1000 * $delay); |
|
$onload = "setTimeout(function(){ |
|
document.forms.reldt.submit(); |
|
},$js_delay);"; |
|
} |
|
$parms{'add_entries'}={'onload' => $onload}; |
} else { |
} else { |
$parms{'redirect'}=[0,$feedurl]; |
$parms{'redirect'}=[$delay,$feedurl]; |
} |
} |
my $start_page= |
my $start_page= |
&Apache::loncommon::start_page('Feedback sent',undef,\%parms); |
&Apache::loncommon::start_page('Feedback sent',undef,\%parms); |
Line 2834 ENDREDIR
|
Line 2880 ENDREDIR
|
} |
} |
|
|
sub no_redirect_back { |
sub no_redirect_back { |
my ($r,$feedurl) = @_; |
my ($r,$feedurl,$delay) = @_; |
my $nofeed=&mt('Sorry, no feedback possible on this resource ...'); |
my $nofeed=&mt('Sorry, no feedback possible on this resource ...'); |
|
my $form_for_modal; |
my %onload; |
my %parms=('only_body' => 1, |
|
'bgcolor' => '#FFFFFF',); |
my %body_options = ('only_body' => 1, |
if ($delay !~ /^\d+(|\.\d+)$/) { |
'bgcolor' => '#FFFFFF', |
$delay = 0; |
'add_entries' => \%onload,); |
} |
|
if ($env{'form.modal'}) { |
if ($feedurl !~ m{^/adm/feedback}) { |
if (($feedurl !~ m{^/adm/feedback}) && ($feedurl ne '')) { |
$body_options{'redirect'} = [2,$feedurl]; |
my $onload = 'document.forms.reldt.submit()'; |
|
if ($delay) { |
|
my $js_delay = int(1000 * $delay); |
|
$onload = "setTimeout(function(){ |
|
document.forms.reldt.submit(); |
|
},$js_delay);"; |
|
} |
|
$parms{'add_entries'}={'onload' => $onload}; |
|
my $windowname = 'loncapaclient'; |
|
$form_for_modal = <<ENDFORM; |
|
<form name="reldt" action="$feedurl" target="$windowname"> |
|
</form> |
|
ENDFORM |
|
} |
|
} else { |
|
if (($feedurl !~ m{^/adm/feedback}) && ($feedurl ne '')) { |
|
$parms{'redirect'}=[$delay,$feedurl]; |
|
} |
} |
} |
my $start_page= |
my $start_page= |
&Apache::loncommon::start_page('Feedback not sent',undef, |
&Apache::loncommon::start_page('Feedback not sent',undef, |
\%body_options); |
\%parms); |
|
|
my $end_page = &Apache::loncommon::end_page(); |
my $end_page = &Apache::loncommon::end_page(); |
|
|
&Apache::lonenc::check_encrypt(\$feedurl); |
|
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
$r->print (<<ENDNOREDIRTWO); |
$r->print (<<ENDNOREDIRTWO); |
$start_page |
$start_page |
<img align="right" src="$logo" /> |
<img align="right" src="$logo" /> |
<b>$nofeed</b> |
<b>$nofeed</b> |
<br /> |
<br /> |
|
$form_for_modal |
$end_page |
$end_page |
ENDNOREDIRTWO |
ENDNOREDIRTWO |
} |
} |
|
|
sub screen_header { |
sub screen_header { |
my ($feedurl,$symb,$group) = @_; |
my ($feedurl,$symb,$group) = @_; |
my $crscontent = &mt('Question/Comment/Feedback about course content'); |
my %default = &Apache::lonlocal::texthash ( |
my $crspolicy = &mt('Question/Comment/Feedback about course policy'); |
question => 'Question about resource content', |
|
comment => 'Question/Comment/Feedback about course content', |
|
policy => 'Question/Comment/Feedback about course policy', |
|
); |
my $contribdisc = &mt('Contribution to course discussion of resource'); |
my $contribdisc = &mt('Contribution to course discussion of resource'); |
my $anoncontrib = &mt('Anonymous contribution to course discussion of resource'); |
my $anoncontrib = &mt('Anonymous contribution to course discussion of resource'); |
my $namevis = &mt('name only visible to course faculty'); |
my $namevis = &mt('name only visible to course faculty'); |
Line 2874 sub screen_header {
|
Line 2940 sub screen_header {
|
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
$crstype = &Apache::loncommon::course_type(); |
$crstype = &Apache::loncommon::course_type(); |
if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
$crscontent = &mt('Question/Comment/Feedback about community content'); |
$default{'comment'} = &mt('Question/Comment/Feedback about community content'); |
$crspolicy = &mt('Question/Comment/Feedback about community policy'); |
$default{'policy'} = &mt('Question/Comment/Feedback about community policy'); |
$contribdisc = &mt('Contribution to community discussion of resource'); |
$contribdisc = &mt('Contribution to community discussion of resource'); |
$anoncontrib = &mt('Anonymous contribution to community discussion of resource'); |
$anoncontrib = &mt('Anonymous contribution to community discussion of resource'); |
$namevis = &mt('name only visible to community facilitators'); |
$namevis = &mt('name only visible to community facilitators'); |
Line 2883 sub screen_header {
|
Line 2949 sub screen_header {
|
} |
} |
my $msgoptions=''; |
my $msgoptions=''; |
my $discussoptions=''; |
my $discussoptions=''; |
|
my $checkradio = ''; |
|
my $blockblog; |
|
my (%fdbkoptions,%discoptions); |
unless (($env{'form.replydisc'}) || ($env{'form.editdisc'})) { |
unless (($env{'form.replydisc'}) || ($env{'form.editdisc'})) { |
if (($feedurl=~/^\/res\//) && ($feedurl!~/^\/res\/adm/) && ($env{'user.adv'})) { |
if (($feedurl=~/^\/res\//) && ($feedurl!~/^\/res\/adm/) && ($env{'user.adv'})) { |
$msgoptions= |
$fdbkoptions{'author'} = 1; |
'<label><input type="radio" name="discuss" value="author" /> '. |
} |
&mt('Feedback to resource author').'</label><br />'; |
if (&feedback_available(1)) { |
} |
$fdbkoptions{'question'} = 1; |
my %optionhash=(); |
} |
foreach my $type ('question','comment','policy') { |
if (&feedback_available(0,1)) { |
$optionhash{$type}=$env{'course.'.$env{'request.course.id'}.'.'.$type.'.email.text'}; |
$fdbkoptions{'course'} = 1; |
} |
} |
if (&feedback_available(1)) { |
if (&feedback_available(0,0,1)) { |
$msgoptions.= |
$fdbkoptions{'policy'} = 1; |
'<label><input type="radio" name="discuss" value="question" /> '. |
} |
($optionhash{'question'}?$optionhash{'question'}:&mt('Question about resource content')).'</label><br />'; |
|
} |
|
if (&feedback_available(0,1)) { |
|
$msgoptions.= |
|
'<label><input type="radio" name="discuss" value="course" /> '. |
|
($optionhash{'comment'}?$optionhash{'comment'}:$crscontent). |
|
'</label><br />'; |
|
} |
|
if (&feedback_available(0,0,1)) { |
|
$msgoptions.= |
|
'<label><input type="radio" name="discuss" value="policy" /> '. |
|
($optionhash{'policy'}?$optionhash{'policy'}:$crspolicy). |
|
'</label><br />'; |
|
} |
|
} |
} |
if (($env{'request.course.id'}) && (!$env{'form.sendmessageonly'})) { |
if (($env{'request.course.id'}) && (!$env{'form.sendmessageonly'})) { |
my ($blocked,$blocktext) = &Apache::loncommon::blocking_status('boards'); |
my ($blocked,$blocktext) = &Apache::loncommon::blocking_status('boards'); |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $realsymb = &get_realsymb($symb); |
my $realsymb = &get_realsymb($symb); |
if (!$blocked && &discussion_open(undef,$realsymb) && |
if (!$blocked && &discussion_open(undef,$realsymb) && |
(&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'}:'')) || |
(($group ne '') && ($symb =~ m{^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$}) && (&check_group_priv($group,'pgd') eq 'ok')))) { |
(($group ne '') && ($symb =~ m{^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$}) && (&check_group_priv($group,'pgd') eq 'ok')))) { |
$discussoptions='<label><input type="radio" name="discuss" value="nonanon" checked="checked" /> '. |
$discoptions{'nonanon'} = 1; |
$contribdisc. |
$discoptions{'anon'} = 1; |
'</label><br /><label><input type="radio" name="discuss" value="anon" /> '. |
$blockblog = &Apache::loncommon::blocking_status('blogs'); |
$anoncontrib. |
} |
' <i>('.$namevis.')</i></label> '. |
} |
'<a href="/adm/preferences?action=changescreenname">'.&mt('Change Screenname').'</a>'; |
my $total = scalar(keys(%fdbkoptions)) + scalar(keys(%discoptions)); |
my $blockblog = &Apache::loncommon::blocking_status('blogs'); |
return if (!$total); |
if (!$blockblog) { |
if ($total == 1) { |
$discussoptions.= &add_blog_checkbox($crstype); |
$checkradio = ' checked="checked"'; |
|
} |
|
if (keys(%fdbkoptions)) { |
|
if ($fdbkoptions{'author'}) { |
|
$msgoptions = |
|
'<label><input type="radio" name="discuss" value="author"'.$checkradio.' /> '. |
|
&mt('Feedback to resource author').'</label><br />'; |
|
} |
|
foreach my $item ('question','comment','policy') { |
|
my $type = $item; |
|
if ($item eq 'comment') { |
|
$type = 'course'; |
|
} |
|
my $optionhash=$env{'course.'.$env{'request.course.id'}.'.'.$item.'.email.text'}; |
|
if ($fdbkoptions{$type}) { |
|
$msgoptions .= |
|
'<label><input type="radio" name="discuss" value="'.$type.'"'.$checkradio.' />'. |
|
($optionhash?$optionhash:$default{$item}).'</label><br />'; |
} |
} |
} |
} |
} |
} |
|
if (keys(%discoptions)) { |
|
if ($discoptions{'nonanon'}) { |
|
$discussoptions='<label><input type="radio" name="discuss" value="nonanon" checked="checked" /> '. |
|
$contribdisc. |
|
'</label>'; |
|
} |
|
if ($discoptions{'anon'}) { |
|
$discussoptions .= '<br /><label><input type="radio" name="discuss" value="anon"'.$checkradio.' /> '. |
|
$anoncontrib. |
|
' <i>('.$namevis.')</i></label> '. |
|
'<a href="/adm/preferences?action=changescreenname">'.&mt('Change Screenname').'</a>'; |
|
} |
|
if (!$blockblog) { |
|
$discussoptions.= &add_blog_checkbox($crstype); |
|
} |
|
} |
if ($msgoptions) { |
if ($msgoptions) { |
$msgoptions='<tr><th><img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png').'" />' |
$msgoptions='<tr><th><img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png').'" />' |
.'<br />'.&mt('Send Feedback').'<br />'.&Apache::lonhtmlcommon::coursepreflink(&mt('Feedback Settings'),'feedback').'</th>'. |
.'<br />'.&mt('Send Feedback').'<br />'.&Apache::lonhtmlcommon::coursepreflink(&mt('Feedback Settings'),'feedback').'</th>'. |
Line 3018 sub feedback_available {
|
Line 3106 sub feedback_available {
|
} |
} |
|
|
sub send_msg { |
sub send_msg { |
my ($title,$feedurl,$email,$citations,$attachmenturl,$symb,%to)=@_; |
my ($title,$feedurl,$email,$citations,$attachmenturl,$symb,$clientip,%to)=@_; |
my $status=''; |
my $status=''; |
my $sendsomething=0; |
my $sendsomething=0; |
|
my $delay; |
|
my $senthide; |
|
my %setters; |
|
my ($startblock,$endblock,$triggerblock,$by_ip,$blockdom) = |
|
&Apache::loncommon::blockcheck(\%setters,'com',$clientip); |
|
if ($by_ip) { |
|
$senthide = 1; |
|
} |
my $restitle = &get_resource_title($symb,$feedurl); |
my $restitle = &get_resource_title($symb,$feedurl); |
if ($title=~/^Error/) { $title=&mt('Feedback').': '.$title; } |
if ($title=~/^Error/) { $title=&mt('Feedback').': '.$title; } |
unless ($title=~/\w/) { $title=&mt('Feedback'); } |
unless ($title=~/\w/) { $title=&mt('Feedback'); } |
Line 3034 sub send_msg {
|
Line 3130 sub send_msg {
|
} else { |
} else { |
unless (&Apache::lonmsg::user_normal_msg($user,$domain, |
unless (&Apache::lonmsg::user_normal_msg($user,$domain, |
$title.' ['.$restitle.']',$email,$citations,$feedurl, |
$title.' ['.$restitle.']',$email,$citations,$feedurl, |
$attachmenturl,undef,undef,$symb,$restitle)=~/ok/) { |
$attachmenturl,undef,undef,$symb,$restitle,undef, |
|
undef,undef,undef,$senthide)=~/ok/) { |
$status.='<br />'.&mt('Error sending message to').' '.$key.'<br />'; |
$status.='<br />'.&mt('Error sending message to').' '.$key.'<br />'; |
} else { |
} else { |
$sendsomething++; |
$sendsomething++; |
Line 3042 sub send_msg {
|
Line 3139 sub send_msg {
|
} |
} |
} |
} |
} |
} |
|
if ($sendsomething && $senthide) { |
|
if ($by_ip) { |
|
my $showdom = &Apache::lonnet::domain($blockdom); |
|
if ($showdom eq '') { |
|
$showdom = $blockdom; |
|
} |
|
$delay = 4; |
|
$status.='<br />'.&mt("Message content of feedback you send to instructor(s) from your current IP address: [_1] will be unavailable in your 'Sent' folder.",$clientip). |
|
'<ul><li>'. |
|
&mt('This does not affect delivery of feedback to your instructor(s).'). |
|
'</li><li>'. |
|
&mt('Note: some types of communication functionality are blocked for certain IP address(es).'). |
|
'</li><li>'. |
|
&mt('This restriction was set by an administrator in the [_1] LON-CAPA domain.', |
|
$showdom). |
|
'</li></ul><br />'; |
|
} |
|
} |
|
|
# Records of number of feedback messages are kept under the "symb" called "_feedback" |
# Records of number of feedback messages are kept under the "symb" called "_feedback" |
# There are two entries within the framework of a course: |
# There are two entries within the framework of a course: |
Line 3059 sub send_msg {
|
Line 3174 sub send_msg {
|
} |
} |
} |
} |
} |
} |
return ($status,$sendsomething); |
return ($status,$sendsomething,$delay); |
} |
} |
|
|
# Routine to get the complete feedback records |
# Routine to get the complete feedback records |
Line 3149 sub adddiscuss {
|
Line 3264 sub adddiscuss {
|
if (($symb) && ($email)) { |
if (($symb) && ($email)) { |
my $now = time; |
my $now = time; |
if ($env{'form.editdisc'}) { |
if ($env{'form.editdisc'}) { |
$contrib{'ip'}=$ENV{'REMOTE_ADDR'}; |
$contrib{'ip'}=&Apache::lonnet::get_requestor_ip(); |
$contrib{'host'}=$Apache::lonnet::perlvar{'lonHostID'}; |
$contrib{'host'}=$Apache::lonnet::perlvar{'lonHostID'}; |
$contrib{'timestamp'} = $now; |
$contrib{'timestamp'} = $now; |
$contrib{'history'} = ''; |
$contrib{'history'} = ''; |
Line 3483 sub modify_attachments {
|
Line 3598 sub modify_attachments {
|
document.modattachments.action = document.modattachments.origpage.value; |
document.modattachments.action = document.modattachments.origpage.value; |
document.modattachments.submit(); |
document.modattachments.submit(); |
} |
} |
</script> |
</script> |
|
<script type="text/javascript" src="/res/adm/includes/file_upload.js"></script> |
END |
END |
|
|
# Breadcrumbs |
# Breadcrumbs |
my $brcrum = [{'href' => '', |
my $brcrum = [{'href' => '', |
'text' => 'Discussion Post Attachments'}]; |
'text' => 'Discussion Post Attachments'}]; |
my %parms=('only_body' => 1); |
my %parms=('only_body' => 1); |
if ($env{'form.modal'} ne 'yes') { 'bread_crumbs' => $brcrum } |
if ($env{'form.modal'} ne 'yes') { $parms{'bread_crumbs'} = $brcrum; } |
|
|
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page('Discussion Post Attachments',$js,\%parms); |
&Apache::loncommon::start_page('Discussion Post Attachments',$js,\%parms); |
Line 3525 END
|
Line 3641 END
|
$r->print('<b>'.$subject.'</b>'); |
$r->print('<b>'.$subject.'</b>'); |
$r->print(&Apache::lonhtmlcommon::row_closure()); |
$r->print(&Apache::lonhtmlcommon::row_closure()); |
$r->print(&Apache::lonhtmlcommon::row_title($lt{'adda'})); |
$r->print(&Apache::lonhtmlcommon::row_title($lt{'adda'})); |
$r->print('<input type="file" name="addnewattach" /><input type="button" name="upload" value="Upload" onclick="this.form.submit()" /> '.$attachmaxtext); |
$r->print('<input type="file" name="addnewattach" class="LC_flUpload" />' |
|
.'<input type="hidden" id="LC_free_space" value="131072" />' |
|
.'<input type="button" name="upload" value="Upload" ' |
|
.'onclick="this.form.submit()" /> '.$attachmaxtext); |
if(($idx)||(ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)){ |
if(($idx)||(ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)){ |
$r->print(&Apache::lonhtmlcommon::row_closure()); |
$r->print(&Apache::lonhtmlcommon::row_closure()); |
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Attachments'))); |
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Attachments'))); |
Line 3866 sub handler {
|
Line 3985 sub handler {
|
my $symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0]; |
my $symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0]; |
my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb); |
my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb); |
my $feedurl=&Apache::lonnet::clutter($url); |
my $feedurl=&Apache::lonnet::clutter($url); |
&redirect_back($r,$feedurl,&mt('Editing not permitted').'<br />', '0','0','','',$env{'form.previous'},undef,undef,undef, |
&redirect_back($r,$feedurl,&mt('Editing not permitted').'<br />', |
undef,undef,undef,$group); |
'0','0','','',$env{'form.previous'},undef,undef,undef, |
|
undef,undef,undef,$group); |
return OK; |
return OK; |
} |
} |
} |
} |
Line 3908 sub handler {
|
Line 4028 sub handler {
|
'text' => 'Discussion Post Versions'}]; |
'text' => 'Discussion Post Versions'}]; |
|
|
my %parms=(); |
my %parms=(); |
if ($env{'form.modal'} ne 'yes') { 'bread_crumbs' => $brcrum } |
if ($env{'form.modal'} ne 'yes') { $parms{'bread_crumbs'} = $brcrum; } |
|
|
$r->print(&Apache::loncommon::start_page('Discussion Post Versions',undef,\%parms)); |
$r->print(&Apache::loncommon::start_page('Discussion Post Versions',undef,\%parms)); |
|
|
Line 3990 sub handler {
|
Line 4110 sub handler {
|
$discinfo{$lastkey} = $env{'form.navtime'}; |
$discinfo{$lastkey} = $env{'form.navtime'}; |
} |
} |
my $textline = '<b>'. |
my $textline = '<b>'. |
&mt('Marked "New" posts as read in a total of [_1] resources/bulletin boards.', |
&mt('Marked "New" posts as read in a total of [_1] resources/discussion boards.', |
$numitems). |
$numitems). |
'</b>'; |
'</b>'; |
if ($numitems > 0) { |
if ($numitems > 0) { |
Line 4074 ENDREDIR
|
Line 4194 ENDREDIR
|
unless (($seehidden) || (&editing_allowed($env{'form.hide'},$group))) { |
unless (($seehidden) || (&editing_allowed($env{'form.hide'},$group))) { |
&redirect_back($r,$feedurl,&mt('Hiding not permitted').'<br />', |
&redirect_back($r,$feedurl,&mt('Hiding not permitted').'<br />', |
'0','0','','',$env{'form.previous'},'','','','', |
'0','0','','',$env{'form.previous'},'','','','', |
undef,undef,$group,); |
undef,undef,$group); |
return OK; |
return OK; |
} |
} |
|
|
Line 4423 ENDREDIR
|
Line 4543 ENDREDIR
|
$cdom,$cnum); |
$cdom,$cnum); |
$contrib{'deleted'} =~ s/^\.//; |
$contrib{'deleted'} =~ s/^\.//; |
$contrib{'deleted'} =~ s/\.$//; |
$contrib{'deleted'} =~ s/\.$//; |
|
my $confirm_msg; |
if ($contrib{'deleted'} ne '') { |
if ($contrib{'deleted'} ne '') { |
if (&Apache::lonnet::store({'deleted' => ''},$symb,$env{'request.course.id'}, |
if (&Apache::lonnet::store({'deleted' => ''},$symb,$env{'request.course.id'}, |
$cdom,$cnum) eq 'ok') { |
$cdom,$cnum) eq 'ok') { |
Line 4450 ENDREDIR
|
Line 4571 ENDREDIR
|
$uname,$udom,$env{'request.course.id'}, |
$uname,$udom,$env{'request.course.id'}, |
'undelete'); |
'undelete'); |
} |
} |
$r->print(&Apache::lonhtmlcommon::confirm_success(&mt("Undeleted all entries"))); |
$confirm_msg = &Apache::lonhtmlcommon::confirm_success(&mt("Undeleted all entries")); |
} else { |
} else { |
$r->print(&Apache::lonhtmlcommon::confirm_success(&mt("Failed to undelete entries"),1)); |
$confirm_msg = &Apache::lonhtmlcommon::confirm_success(&mt("Failed to undelete entries"),1); |
} |
} |
} else { |
} else { |
$r->print(&Apache::lonhtmlcommon::confirm_success(&mt("No entries to undelete"),1)); |
$confirm_msg = &Apache::lonhtmlcommon::confirm_success(&mt("No entries to undelete"),1); |
} |
} |
$r->print("<br /><a href='$feedurl'>".&mt("Return and reload")."</a>"); |
$r->print( |
|
'<br />' |
|
.&Apache::loncommon::confirmwrapper($confirm_msg) |
|
.&Apache::lonhtmlcommon::actionbox( |
|
["<a href='$feedurl'>".&mt("Return and reload")."</a>"]) |
|
); |
} |
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
Line 4500 ENDREDIR
|
Line 4626 ENDREDIR
|
$r->internal_redirect('/adm/ambiguous'); |
$r->internal_redirect('/adm/ambiguous'); |
return OK; |
return OK; |
} |
} |
|
if ($feedurl eq '') { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
&no_redirect_back($r); |
|
return OK; |
|
} |
# Go ahead with feedback, no ambiguous reference |
# Go ahead with feedback, no ambiguous reference |
unless ( |
unless ( |
( |
( |
Line 4514 ENDREDIR
|
Line 4646 ENDREDIR
|
$r->send_http_header; |
$r->send_http_header; |
# Unable to give feedback |
# Unable to give feedback |
&Apache::lonenc::check_encrypt(\$feedurl); |
&Apache::lonenc::check_encrypt(\$feedurl); |
&no_redirect_back($r,$feedurl); |
&no_redirect_back($r,$feedurl,2); |
return OK; |
return OK; |
} |
} |
# --------------------------------------------------- Print login screen header |
# --------------------------------------------------- Print login screen header |
Line 4534 ENDREDIR
|
Line 4666 ENDREDIR
|
if ($options) { |
if ($options) { |
&mail_screen($r,$feedurl,$options,$symb,$attachmax{'text'}); |
&mail_screen($r,$feedurl,$options,$symb,$attachmax{'text'}); |
} else { |
} else { |
&fail_redirect($r,$feedurl); |
&fail_redirect($r,$feedurl,2); |
} |
} |
return OK; |
return OK; |
} |
} |
Line 4553 ENDREDIR
|
Line 4685 ENDREDIR
|
my $usersymb = &Apache::lonenc::check_encrypt($symb); |
my $usersymb = &Apache::lonenc::check_encrypt($symb); |
my $useranswer= |
my $useranswer= |
&Apache::loncommon::get_student_answers( |
&Apache::loncommon::get_student_answers( |
$usersymb,$env{'user.name'},$env{'user.domain'}, |
$symb,$env{'user.name'},$env{'user.domain'}, |
$env{'request.course.id'}); |
$env{'request.course.id'}); |
&Apache::lonnet::delenv('allowed.vgr'); |
&Apache::lonnet::delenv('allowed.vgr'); |
# Get attachments, if any, and not too large |
# Get attachments, if any, and not too large |
Line 4600 ENDREDIR
|
Line 4732 ENDREDIR
|
my ($typestyle,%to) = &Apache::lonmsg::decide_receiver($feedurl); |
my ($typestyle,%to) = &Apache::lonmsg::decide_receiver($feedurl); |
|
|
# Actually send mail |
# Actually send mail |
my ($status,$numsent)=&send_msg(&clear_out_html($env{'form.subject'}), |
my $clientip = &Apache::lonnet::get_requestor_ip($r); |
$feedurl,$email,$citations, |
my ($status,$numsent,$delay)=&send_msg(&clear_out_html($env{'form.subject'}), |
$attachmenturl,$usersymb,%to); |
$feedurl,$email,$citations, |
|
$attachmenturl,$usersymb,$clientip,%to); |
|
|
# Discussion? Store that. |
# Discussion? Store that. |
my $numpost=0; |
my $numpost=0; |
Line 4633 ENDREDIR
|
Line 4766 ENDREDIR
|
} |
} |
|
|
# Receipt screen and redirect back to where came from |
# Receipt screen and redirect back to where came from |
&redirect_back($r,$feedurl,$typestyle,$numsent,$numpost,$blog,$status,$env{'form.previous'},undef,undef,undef,undef,undef,undef,$group,$toolarge); |
&redirect_back($r,$feedurl,$typestyle,$numsent,$numpost,$blog,$status,$env{'form.previous'}, |
|
undef,undef,undef,undef,undef,undef,$group,$toolarge,$delay); |
} |
} |
return OK; |
return OK; |
} |
} |