version 1.349, 2012/03/17 04:02:28
|
version 1.355, 2012/05/28 19:03:03
|
Line 513 imscp_v1p1.xsd http://www.imsglobal.org/
|
Line 513 imscp_v1p1.xsd http://www.imsglobal.org/
|
my $currdepth = 0; |
my $currdepth = 0; |
my $firstidx = $alldiscussion{$showposts[0]}; |
my $firstidx = $alldiscussion{$showposts[0]}; |
foreach my $post (@showposts) { |
foreach my $post (@showposts) { |
unless (($sortposts eq 'thread') || (($sortposts eq '') && ($env{'environment.threadeddiscussion'})) || ($outputtarget eq 'export')) { |
unless (($sortposts eq 'thread') || |
|
(($sortposts eq '') && (!$env{'environment.unthreadeddiscussion'})) || |
|
($outputtarget eq 'export')) { |
$alldiscussion{$post} = $post; |
$alldiscussion{$post} = $post; |
} |
} |
unless ( ($notshown{$alldiscussion{$post}} eq '1') || ($shown{$alldiscussion{$post}} == 0) ) { |
unless ( ($notshown{$alldiscussion{$post}} eq '1') || ($shown{$alldiscussion{$post}} == 0) ) { |
Line 819 sub can_see_hidden {
|
Line 821 sub can_see_hidden {
|
|
|
sub discussion_link { |
sub discussion_link { |
my ($ressymb,$linktext,$cmd,$item,$flag,$prev,$adds,$title)=@_; |
my ($ressymb,$linktext,$cmd,$item,$flag,$prev,$adds,$title)=@_; |
my $link='/adm/feedback?inhibitmenu=yes&modal=yes&'.$cmd.'='.&escape($ressymb).':::'.$item; |
my $link='/adm/feedback?inhibitmenu=yes&modal=yes&'.$cmd.'='.&escape($ressymb).':::'.$item; |
if ($flag) { $link .= '&previous='.$prev; } |
if ($flag) { $link .= '&previous='.$prev; } |
if ($adds) { $link .= $adds; } |
if ($adds) { $link .= $adds; } |
my $width=600; |
my $width=600; |
Line 1117 sub build_posting_display {
|
Line 1119 sub build_posting_display {
|
my $origindex='0.'; |
my $origindex='0.'; |
my $numoldver=0; |
my $numoldver=0; |
if ($contrib{$idx.':replyto'}) { |
if ($contrib{$idx.':replyto'}) { |
if ( (($env{'environment.threadeddiscussion'}) && ($sortposts eq '')) || ($sortposts eq 'thread') || ($outputtarget eq 'export')) { |
if ( ((!$env{'environment.unthreadeddiscussion'}) && ($sortposts eq '')) || |
|
($sortposts eq 'thread') || ($outputtarget eq 'export')) { |
# this is a follow-up message |
# this is a follow-up message |
$original[$idx]=$original[$contrib{$idx.':replyto'}]; |
$original[$idx]=$original[$contrib{$idx.':replyto'}]; |
$$depth[$idx]=$$depth[$contrib{$idx.':replyto'}]+1; |
$$depth[$idx]=$$depth[$contrib{$idx.':replyto'}]+1; |
Line 1330 sub build_posting_display {
|
Line 1333 sub build_posting_display {
|
} |
} |
if ($outputtarget eq 'export' || $message) { |
if ($outputtarget eq 'export' || $message) { |
my $thisindex=$idx; |
my $thisindex=$idx; |
if ( (($env{'environment.threadeddiscussion'}) && ($sortposts eq '')) || ($sortposts eq 'thread') || ($outputtarget eq 'export')) { |
if ( ((!$env{'environment.unthreadeddiscussion'}) && ($sortposts eq '')) || |
|
($sortposts eq 'thread') || ($outputtarget eq 'export')) { |
$thisindex=$origindex.substr('00'.$$replies[$$depth[$idx]],-2,2); |
$thisindex=$origindex.substr('00'.$$replies[$$depth[$idx]],-2,2); |
} |
} |
$$alldiscussion{$thisindex}=$idx; |
$$alldiscussion{$thisindex}=$idx; |
Line 1453 sub build_posting_display {
|
Line 1457 sub build_posting_display {
|
$message. |
$message. |
'</div></blockquote>'; |
'</div></blockquote>'; |
if ($canvote) { |
if ($canvote) { |
|
my $ownpost; |
|
if (($uname eq $env{'user.name'}) && |
|
($udom eq $env{'user.domain'})) { |
|
$ownpost = 1; |
|
} |
# Put in the like and unlike buttons |
# Put in the like and unlike buttons |
if (($uname eq $env{'user.name'}) && ($udom eq $env{'user.domain'})) { |
if ($ownpost || (($hiddens{$idx}) && ($seehidden))) { |
my $novote = &mt('No voting for your own posts'); |
my $novote; |
|
if ($ownpost) { |
|
$novote = &mt('No voting for your own posts.'); |
|
} else { |
|
$novote = &mt('No voting for hidden posts.'); |
|
} |
$$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.'" /> '. |
'<img border="0" src="/res/adm/pages/thumbsdown_novote.png" alt="'.$novote.'" /></a>'; |
'<img border="0" src="/res/adm/pages/thumbsdown_novote.png" alt="'.$novote.'" /></a>'; |
|
|
} else { |
} else { |
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').'" />'; |
Line 1792 END
|
Line 1807 END
|
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
$env{'course.'.$env{'request.course.id'}.'.num'}); |
$env{'course.'.$env{'request.course.id'}.'.num'}); |
unless (($contrib{'hidden'}=~/\.$idx\./) || ($contrib{'deleted'}=~/\.$idx\./)) { |
unless (($contrib{'hidden'}=~/\.$idx\./) || ($contrib{'deleted'}=~/\.$idx\./)) { |
|
my $numoldver = 0; |
if ($contrib{$idx.':history'}) { |
if ($contrib{$idx.':history'}) { |
if ($contrib{$idx.':history'} =~ /:/) { |
if ($contrib{$idx.':history'} =~ /:/) { |
my @oldversions = split(/:/,$contrib{$idx.':history'}); |
my @oldversions = split(/:/,$contrib{$idx.':history'}); |
Line 1800 END
|
Line 1816 END
|
$numoldver = 1; |
$numoldver = 1; |
} |
} |
} |
} |
if ($env{'form.replydisc'}) { |
if ($idx > 0) { |
if ($contrib{$idx.':history'}) { |
my (%msgversions,%subversions,$htmldecode); |
if ($contrib{$idx.':history'} =~ /:/) { |
$htmldecode = 0; |
my @oldversions = split(/:/,$contrib{$idx.':history'}); |
if ($env{'form.replydisc'}) { |
$numoldver = @oldversions; |
$htmldecode = 1; |
} else { |
|
$numoldver = 1; |
|
} |
|
} |
} |
if ($idx > 0) { |
&get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver); |
my %msgversions = (); |
&get_post_versions(\%subversions,$contrib{$idx.':subject'},$htmldecode, |
&get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver); |
$numoldver); |
|
$subject = $subversions{$numoldver}; |
|
if ($env{'form.replydisc'}) { |
$quote = $msgversions{$numoldver}; |
$quote = $msgversions{$numoldver}; |
} |
$subject = &HTML::Entities::encode(&mt('Re: ').$subject,'<>&"'); |
if ($idx > 0) { |
} else { |
my %subversions = (); |
|
&get_post_versions(\%subversions,$contrib{$idx.':subject'},1,$numoldver); |
|
$subject = &mt('Re: ').$subversions{$numoldver}; |
|
} |
|
$subject = &HTML::Entities::encode($subject,'<>&"'); |
|
} else { |
|
$attachmenturls = $contrib{$idx.':attachmenturl'}; |
|
if ($idx > 0) { |
|
my %msgversions = (); |
|
&get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver); |
|
$comment = $msgversions{$numoldver}; |
$comment = $msgversions{$numoldver}; |
my %subversions = (); |
|
&get_post_versions(\%subversions,$contrib{$idx.':subject'},0,$numoldver); |
|
$subject = $subversions{$numoldver}; |
|
} |
} |
|
} |
|
if ($env{'form.editdisc'}) { |
|
$attachmenturls = $contrib{$idx.':attachmenturl'}; |
if (defined($contrib{$idx.':replyto'})) { |
if (defined($contrib{$idx.':replyto'})) { |
$parentmsg = $contrib{$idx.':replyto'}; |
$parentmsg = $contrib{$idx.':replyto'}; |
} |
} |
Line 1930 END
|
Line 1935 END
|
unless (&contains_block_html($quote)) { |
unless (&contains_block_html($quote)) { |
&newline_to_br(\$quote); |
&newline_to_br(\$quote); |
} |
} |
$quote='<blockquote>'.&Apache::lontexconvert::msgtexconverted($quote).'</blockquote>'; |
$quote=&Apache::lonhtmlcommon::start_pick_box(). |
|
&Apache::lonhtmlcommon::row_title(&mt('Quote')). |
|
&Apache::lontexconvert::msgtexconverted($quote). |
|
&Apache::lonhtmlcommon::row_closure(1). |
|
&Apache::lonhtmlcommon::end_pick_box(); |
} |
} |
my $header=''; |
my $header=''; |
unless ($env{'form.modal'}) { |
unless ($env{'form.modal'}) { |
Line 1958 END
|
Line 1967 END
|
} |
} |
$r->print(<<END); |
$r->print(<<END); |
$options |
$options |
|
<br> |
|
END |
|
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
|
$r->print(<<END); |
$quote |
$quote |
<p> |
<p> |
$textareaheader |
$textareaheader |
</p> |
</p> |
<br> |
|
<p> |
<p> |
$latexHelp |
$latexHelp |
</p> |
</p> |
<p> |
<p> |
END |
END |
|
|
$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="'. |
$r->print('<input type="text" name="subject" size="30" value="'. |
$subject.'" /></p>'); |
$subject.'" /></p>'); |
Line 2013 END
|
Line 2025 END
|
$r->print('<input type="hidden" name="ref" value="'.$env{'form.ref'}.'" />'); |
$r->print('<input type="hidden" name="ref" value="'.$env{'form.ref'}.'" />'); |
} |
} |
$r->print(<<END); |
$r->print(<<END); |
<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> |
|
</form> |
</form> |
END |
END |
if ($env{'form.editdisc'} || $env{'form.replydisc'}) { |
if ($env{'form.editdisc'} || $env{'form.replydisc'}) { |
Line 2031 END
|
Line 2041 END
|
$attachnum += @currnewattach; |
$attachnum += @currnewattach; |
} |
} |
my $blockblog = &Apache::loncommon::blocking_status('blogs'); |
my $blockblog = &Apache::loncommon::blocking_status('blogs'); |
$r->print(&generate_attachments_button($postidx,$attachnum,$ressymb,$now,\@currnewattach,\@currdelold,$numoldver,'',$blockblog)); |
|
if ($attachnum > 0) { |
if ($attachnum > 0) { |
if (@currnewattach > 0) { |
if (@currnewattach > 0) { |
$newattachmsg .= '<br /><b>'.&mt('New attachments').'</b><br />'; |
$newattachmsg .= '<br /><b>'.&mt('New attachments').'</b><br />'; |
Line 2051 END
|
Line 2060 END
|
$r->print("<br /><b>$lt{'reta'}</b>:$attachmsg<br />\n"); |
$r->print("<br /><b>$lt{'reta'}</b>:$attachmsg<br />\n"); |
} |
} |
if ($newattachmsg) { |
if ($newattachmsg) { |
$r->print("$newattachmsg<br />"); |
$r->print("$newattachmsg"); |
} |
} |
} |
} |
|
$r->print(&generate_attachments_button($postidx,$attachnum,$ressymb,$now,\@currnewattach,\@currdelold,$numoldver,'',$blockblog)); |
} |
} |
$r->print(&generate_preview_button(). |
$r->print(&generate_preview_button(). |
&Apache::loncommon::end_page()); |
&Apache::loncommon::end_page()); |
Line 3481 END
|
Line 3491 END
|
$start_page |
$start_page |
$toolarge |
$toolarge |
<form name="modattachments" method="post" enctype="multipart/form-data" action="/adm/feedback?attach=$symb"> |
<form name="modattachments" method="post" enctype="multipart/form-data" action="/adm/feedback?attach=$symb"> |
<br /> |
|
<h1>$lt{'clic'}</h1> |
<h1>$lt{'clic'}</h1> |
END |
END |
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
Line 4123 ENDREDIR
|
Line 4133 ENDREDIR
|
if (&discussion_vote_available($status,$realsymb)) { |
if (&discussion_vote_available($status,$realsymb)) { |
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'}, |
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'}, |
$cdom,$cnum); |
$cdom,$cnum); |
|
my $ownpost; |
if (($contrib{$idx.':sendername'} eq $env{'user.name'}) && |
if (($contrib{$idx.':sendername'} eq $env{'user.name'}) && |
($contrib{$idx.':senderdomain'} eq $env{'user.domain'})) { |
($contrib{$idx.':senderdomain'} eq $env{'user.domain'})) { |
$result = &mt("Vote not registered. No voting for your own posts."); |
$ownpost = 1; |
|
} |
|
if ($ownpost || $contrib{$idx.':hidden'} || $contrib{$idx.':deleted'}) { |
|
$result = &mt('Vote not registered.').' '; |
|
} |
|
if ($ownpost) { |
|
$result .= &mt('No voting for your own posts.'); |
|
} elsif ($contrib{$idx.':hidden'}) { |
|
$result .= &mt('No voting for hidden posts.'); |
|
} elsif ($contrib{$idx.':deleted'}) { |
|
$result .= &mt('No voting for deleted posts.'); |
} else { |
} else { |
|
|
# |
# |
# Likes and unlikes are in db-file "disclikes" of the course |
# Likes and unlikes are in db-file "disclikes" of the course |
# The prefix is the $symb to identify the resource discussion, |
# The prefix is the $symb to identify the resource discussion, |
Line 4248 ENDREDIR
|
Line 4268 ENDREDIR
|
return OK; |
return OK; |
} elsif ($env{'form.cmd'}=~/^(threadedoff|threadedon)$/) { |
} elsif ($env{'form.cmd'}=~/^(threadedoff|threadedon)$/) { |
my ($symb,$feedurl)=&get_feedurl_and_clean_symb($env{'form.symb'}); |
my ($symb,$feedurl)=&get_feedurl_and_clean_symb($env{'form.symb'}); |
if ($env{'form.cmd'} eq 'threadedon') { |
if ($env{'form.cmd'} eq 'threadedoff') { |
|
&Apache::lonnet::put('environment',{'unthreadeddiscussion' => 'on'}); |
|
&Apache::lonnet::appenv({'environment.unthreadeddiscussion' => 'on'}); |
|
&Apache::lonnet::del('environment',['threadeddiscussion']); |
|
&Apache::lonnet::delenv('environment.threadeddiscussion'); |
|
} else { |
&Apache::lonnet::put('environment',{'threadeddiscussion' => 'on'}); |
&Apache::lonnet::put('environment',{'threadeddiscussion' => 'on'}); |
&Apache::lonnet::appenv({'environment.threadeddiscussion' => 'on'}); |
&Apache::lonnet::appenv({'environment.threadeddiscussion' => 'on'}); |
} else { |
&Apache::lonnet::del('environment',['unthreadeddiscussion']); |
&Apache::lonnet::del('environment',['threadeddiscussion']); |
&Apache::lonnet::delenv('environment.unthreadeddiscussion'); |
&Apache::lonnet::delenv('environment.threadeddiscussion'); |
|
} |
} |
&redirect_back($r,$feedurl,&mt('Changed discussion view mode').'<br />', |
&redirect_back($r,$feedurl,&mt('Changed discussion view mode').'<br />', |
'0','0','','',$env{'form.previous'},undef,undef,undef, |
'0','0','','',$env{'form.previous'},undef,undef,undef, |
Line 4765 None
|
Line 4789 None
|
|
|
=item list_discussion() |
=item list_discussion() |
|
|
=item can_see_discussion() |
=item can_see_hidden() |
|
|
|
=item discussion_link() |
|
|
=item send_feedback_link() |
=item send_feedback_link() |
|
|