version 1.167, 2005/06/06 20:40:01
|
version 1.172, 2005/11/09 11:41:02
|
Line 45 use Cwd;
|
Line 45 use Cwd;
|
|
|
sub discussion_open { |
sub discussion_open { |
my ($status,$symb)=@_; |
my ($status,$symb)=@_; |
|
if ($env{'request.role.adv'}) { return 1; } |
if (defined($status) && |
if (defined($status) && |
!($status eq 'CAN_ANSWER' || $status eq 'CANNOT_ANSWER' |
!($status eq 'CAN_ANSWER' || $status eq 'CANNOT_ANSWER' |
|| $status eq 'OPEN')) { |
|| $status eq 'OPEN')) { |
Line 97 sub list_discussion {
|
Line 98 sub list_discussion {
|
$ressymb=&wrap_symb($ressymb); |
$ressymb=&wrap_symb($ressymb); |
my $encsymb=&Apache::lonenc::check_encrypt($ressymb); |
my $encsymb=&Apache::lonenc::check_encrypt($ressymb); |
my $viewgrades=(&Apache::lonnet::allowed('vgr',$crs) |
my $viewgrades=(&Apache::lonnet::allowed('vgr',$crs) |
&& ($ressymb=~/\.(problem|exam|quiz|assess|survey|form)$/)); |
&& ($ressymb=~/\.(problem|exam|quiz|assess|survey|form|task)$/)); |
|
|
my %usernamesort = (); |
my %usernamesort = (); |
my %namesort =(); |
my %namesort =(); |
Line 113 sub list_discussion {
|
Line 114 sub list_discussion {
|
my $toggkey = $ressymb.'_readtoggle'; |
my $toggkey = $ressymb.'_readtoggle'; |
my $readkey = $ressymb.'_read'; |
my $readkey = $ressymb.'_read'; |
$ressymb=$encsymb; |
$ressymb=$encsymb; |
my %dischash = &Apache::lonnet::get('nohist_'.$env{'request.course.id'}.'_discuss',[$lastkey,$showkey,$markkey,$visitkey,$ondispkey,$userpickkey,$toggkey,$readkey],$env{'user.domain'},$env{'user.name'}); |
my %dischash = &Apache::lonnet::get('nohist_'.$cid.'_discuss',[$lastkey,$showkey,$markkey,$visitkey,$ondispkey,$userpickkey,$toggkey,$readkey],$env{'user.domain'},$env{'user.name'}); |
my %discinfo = (); |
my %discinfo = (); |
my $showonlyunread = 0; |
my $showonlyunread = 0; |
my $showunmark = 0; |
my $showunmark = 0; |
Line 154 sub list_discussion {
|
Line 155 sub list_discussion {
|
my %roleshash = (); |
my %roleshash = (); |
my %roleinfo = (); |
my %roleinfo = (); |
if ($env{'form.rolefilter'}) { |
if ($env{'form.rolefilter'}) { |
%roleshash = &Apache::lonnet::dump('nohist_userroles',$env{'course.'.$env{'request.course.id'}.'.domain'},$env{'course.'.$env{'request.course.id'}.'.num'}); |
%roleshash = &Apache::lonnet::dump('nohist_userroles', |
|
$env{'course.'.$cid.'.domain'}, |
|
$env{'course.'.$cid.'.num'}); |
foreach (keys %roleshash) { |
foreach (keys %roleshash) { |
my ($role,$uname,$udom,$sec) = split/:/,$_; |
my ($role,$uname,$udom,$sec) = split/:/,$_; |
if ($role =~ /^cr/) { |
if ($role =~ /^cr/) { |
Line 171 sub list_discussion {
|
Line 174 sub list_discussion {
|
} |
} |
} |
} |
my ($classlist) = &Apache::loncoursedata::get_classlist( |
my ($classlist) = &Apache::loncoursedata::get_classlist( |
$env{'request.course.id'}, |
$env{'course.'.$cid.'.domain'}, |
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
$env{'course.'.$cid.'.num'}); |
$env{'course.'.$env{'request.course.id'}.'.num'}); |
|
my $sec_index = &Apache::loncoursedata::CL_SECTION(); |
my $sec_index = &Apache::loncoursedata::CL_SECTION(); |
my $status_index = &Apache::loncoursedata::CL_STATUS(); |
my $status_index = &Apache::loncoursedata::CL_STATUS(); |
while (my ($student,$data) = each %$classlist) { |
while (my ($student,$data) = each %$classlist) { |
Line 245 sub list_discussion {
|
Line 247 sub list_discussion {
|
my $now = time; |
my $now = time; |
$discinfo{$visitkey} = $visit; |
$discinfo{$visitkey} = $visit; |
|
|
&Apache::lonnet::put('nohist_'.$env{'request.course.id'}.'_discuss',\%discinfo,$env{'user.domain'},$env{'user.name'}); |
&Apache::lonnet::put('nohist_'.$cid.'_discuss',\%discinfo,$env{'user.domain'},$env{'user.name'}); |
&build_posting_display(\%usernamesort,\%subjectsort,\%namesort,\%notshown,\%newitem,\%dischash,\%shown,\%alldiscussion,\%imsitems,\%imsfiles,\%roleinfo,\@discussionitems,\@replies,\@depth,\@posters,\$maxdepth,\$visible,\$newpostsflag,\$current,$status,$viewgrades,$seeid,$prevread,$sortposts,$encsymb,$target,$readkey,$showunmark,$showonlyunread,$totposters,\@rolefilter,\@sectionpick,$statusfilter,$toggkey,$outputtarget); |
&build_posting_display(\%usernamesort,\%subjectsort,\%namesort,\%notshown,\%newitem,\%dischash,\%shown,\%alldiscussion,\%imsitems,\%imsfiles,\%roleinfo,\@discussionitems,\@replies,\@depth,\@posters,\$maxdepth,\$visible,\$newpostsflag,\$current,$status,$viewgrades,$seeid,$prevread,$sortposts,$encsymb,$target,$readkey,$showunmark,$showonlyunread,$totposters,\@rolefilter,\@sectionpick,$statusfilter,$toggkey,$outputtarget); |
|
|
my $discussion=''; |
my $discussion=''; |
Line 1164 sub get_post_contents {
|
Line 1166 sub get_post_contents {
|
# $$screenname=&Apache::loncommon::screenname( |
# $$screenname=&Apache::loncommon::screenname( |
# $$contrib{$idx.':sendername'}, |
# $$contrib{$idx.':sendername'}, |
# $$contrib{$idx.':senderdomain'}); |
# $$contrib{$idx.':senderdomain'}); |
# $$plainname=&Apache::loncommon::nickname( |
$$plainname=&Apache::loncommon::nickname( |
# $$contrib{$idx.':sendername'}, |
$$contrib{$idx.':sendername'}, |
# $$contrib{$idx.':senderdomain'}); |
$$contrib{$idx.':senderdomain'}); |
($$screenname,$$plainname)=($$contrib{$idx.':screenname'}, |
$$screenname=$$contrib{$idx.':screenname'}; |
$$contrib{$idx.':plainname'}); |
|
my $sender=&Apache::loncommon::aboutmewrapper( |
my $sender=&Apache::loncommon::aboutmewrapper( |
$$plainname, |
$$plainname, |
$$contrib{$idx.':sendername'}, |
$$contrib{$idx.':sendername'}, |
Line 2639 sub newline_to_br {
|
Line 2641 sub newline_to_br {
|
} |
} |
|
|
sub generate_preview_button { |
sub generate_preview_button { |
|
my ($formname,$fieldname)=@_; |
|
unless ($formname) { $formname='mailform'; } |
|
unless ($fieldname) { $fieldname='comment'; } |
my $pre=&mt("Show Preview and Check Spelling"); |
my $pre=&mt("Show Preview and Check Spelling"); |
return(<<ENDPREVIEW); |
return(<<ENDPREVIEW); |
<form name="preview" action="/adm/feedback?preview=1" method="post" target="preview"> |
<form name="preview" action="/adm/feedback?preview=1" method="post" target="preview"> |
<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.mailform.onsubmit)=='function') {document.mailform.onsubmit();};this.form.comment.value=document.mailform.comment.value;this.form.subject.value=document.mailform.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 3257 ENDREDIR
|
Line 3262 ENDREDIR
|
my $mode='board'; |
my $mode='board'; |
my $status='OPEN'; |
my $status='OPEN'; |
my $previous=$env{'form.previous'}; |
my $previous=$env{'form.previous'}; |
if ($feedurl =~ /\.(problem|exam|quiz|assess|survey|form|library)$/) { |
if ($feedurl =~ /\.(problem|exam|quiz|assess|survey|form|library|task)$/) { |
$mode='problem'; |
$mode='problem'; |
$status=$Apache::inputtags::status[-1]; |
$status=$Apache::inputtags::status[-1]; |
} |
} |
Line 3296 ENDREDIR
|
Line 3301 ENDREDIR
|
} |
} |
&Apache::lonenc::check_decrypt(\$symb); |
&Apache::lonenc::check_decrypt(\$symb); |
my $goahead=1; |
my $goahead=1; |
if ($feedurl=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
if ($feedurl=~/\.(problem|exam|quiz|assess|survey|form|task)$/) { |
unless ($symb) { $goahead=0; } |
unless ($symb) { $goahead=0; } |
} |
} |
# backward compatibility (bulletin boards used to be 'wrapped') |
# backward compatibility (bulletin boards used to be 'wrapped') |