version 1.210, 2006/07/18 17:31:50
|
version 1.215, 2006/08/14 21:44:14
|
Line 186 sub list_discussion {
|
Line 186 sub list_discussion {
|
push @{$roleinfo{$student}}, 'st:'.$section.':'.$status; |
push @{$roleinfo{$student}}, 'st:'.$section.':'.$status; |
} |
} |
($classgroups,$studentgroups) = |
($classgroups,$studentgroups) = |
&Apache::loncoursedata::get_group_memberships($classlist,$keylist, |
&Apache::loncoursedata::get_group_memberships($classlist,$keylist, |
$cdom,$cnum); |
$cdom,$cnum); |
} |
} |
|
|
# Get discussion display default settings for user |
# Get discussion display default settings for user |
Line 271 sub list_discussion {
|
Line 271 sub list_discussion {
|
my $imsresources; |
my $imsresources; |
my $copyresult; |
my $copyresult; |
|
|
my $grp_arg; |
|
if ($group ne '') { |
|
$grp_arg = &grp_args($group); |
|
} |
|
|
|
my $function = &Apache::loncommon::get_users_function(); |
my $function = &Apache::loncommon::get_users_function(); |
my $color = &Apache::loncommon::designparm($function.'.tabbg', |
my $color = &Apache::loncommon::designparm($function.'.tabbg', |
$env{'user.domain'}); |
$env{'user.domain'}); |
Line 340 sub list_discussion {
|
Line 335 sub list_discussion {
|
if ($newpostsflag) { |
if ($newpostsflag) { |
$chglink .= '&previous='.$prevread; |
$chglink .= '&previous='.$prevread; |
} |
} |
if ($group ne '') { |
$chglink.=&group_args($group); |
$chglink.='&'.$grp_arg; |
|
} |
|
|
|
if ($visible) { |
if ($visible) { |
# Print the discusssion |
# Print the discusssion |
Line 421 imscp_v1p1.xsd http://www.imsglobal.org/
|
Line 414 imscp_v1p1.xsd http://www.imsglobal.org/
|
if ($newpostsflag) { |
if ($newpostsflag) { |
$discussion .= '&previous='.$prevread; |
$discussion .= '&previous='.$prevread; |
} |
} |
if ($group ne '') { |
$discussion .= &group_args($group); |
$discussion .= '&'.$grp_arg; |
|
} |
|
$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; |
} |
} |
if ($group ne '') { |
$discussion .= &group_args($group); |
$discussion .= '&'.$grp_arg; |
|
} |
|
$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; |
} |
} |
if ($group ne '') { |
$discussion .= &group_args($group); |
$discussion .= '&'.$grp_arg; |
|
} |
|
$discussion .='">'.&mt('Sorting/Filtering options').'</a>  '; |
$discussion .='">'.&mt('Sorting/Filtering options').'</a>  '; |
} else { |
} else { |
$discussion .= '<td align="left">'; |
$discussion .= '<td align="left">'; |
Line 448 imscp_v1p1.xsd http://www.imsglobal.org/
|
Line 435 imscp_v1p1.xsd http://www.imsglobal.org/
|
if ($newpostsflag) { |
if ($newpostsflag) { |
$discussion .= '&previous='.$prevread; |
$discussion .= '&previous='.$prevread; |
} |
} |
if ($group ne '') { |
$discussion .= &group_args($group); |
$discussion .= '&'.$grp_arg; |
|
} |
|
$discussion .= '">'.&mt('Export').'?</a> </td>'; |
$discussion .= '">'.&mt('Export').'?</a> </td>'; |
if ($newpostsflag) { |
if ($newpostsflag) { |
if (!$markondisp) { |
if (!$markondisp) { |
$discussion .='<td align="right"><a href="/adm/preferences?action=changediscussions'; |
$discussion .='<td align="right"><a href="/adm/preferences?action=changediscussions'; |
if ($group ne '') { |
$discussion .= &group_args($group); |
$discussion .= '&'.$grp_arg; |
|
} |
|
$discussion .= '">'. |
$discussion .= '">'. |
&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; |
if ($group ne '') { |
$discussion .= &group_args($group); |
$discussion .= '&'.$grp_arg; |
|
} |
|
$discussion .= '">'.&mt('Mark NEW posts no longer new').'</a>'; |
$discussion .= '">'.&mt('Mark NEW posts no longer new').'</a>'; |
} else { |
} else { |
$discussion .= '<td> </td>'; |
$discussion .= '<td> </td>'; |
Line 481 imscp_v1p1.xsd http://www.imsglobal.org/
|
Line 462 imscp_v1p1.xsd http://www.imsglobal.org/
|
if ($newpostsflag) { |
if ($newpostsflag) { |
$discussion .= '&previous='.$prevread; |
$discussion .= '&previous='.$prevread; |
} |
} |
if ($group ne '') { |
$discussion .= &group_args($group); |
$discussion .= '&'.$grp_arg; |
|
} |
|
$discussion .= '">'.&mt('Show all posts').'</a> '.&mt('to display').' '. |
$discussion .= '">'.&mt('Show all posts').'</a> '.&mt('to display').' '. |
$numhidden.' '; |
$numhidden.' '; |
if ($showunmark) { |
if ($showunmark) { |
Line 734 END
|
Line 713 END
|
if ($discussiononly) { |
if ($discussiononly) { |
my $now = time; |
my $now = time; |
my $attachnum = 0; |
my $attachnum = 0; |
my $currnewattach; |
my $currnewattach = []; |
my $currdelold; |
my $currdelold = []; |
my $comment = ''; |
my $comment = ''; |
my $subject = ''; |
my $subject = ''; |
if ($env{'form.origpage'}) { |
if ($env{'form.origpage'}) { |
Line 999 sub build_posting_display {
|
Line 978 sub build_posting_display {
|
if ($$newpostsflag) { |
if ($$newpostsflag) { |
$sender .= '&previous='.$prevread; |
$sender .= '&previous='.$prevread; |
} |
} |
if ($group ne '') { |
$sender .= &group_args($group); |
$sender.='&'.&grp_args($group); |
|
} |
|
$sender .= '" '.$target.'>'.&mt('Edit').'</a>'; |
$sender .= '" '.$target.'>'.&mt('Edit').'</a>'; |
|
|
unless ($seeid) { |
unless ($seeid) { |
Line 1026 sub build_posting_display {
|
Line 1003 sub build_posting_display {
|
if ($$newpostsflag) { |
if ($$newpostsflag) { |
$sender .= '&previous='.$prevread; |
$sender .= '&previous='.$prevread; |
} |
} |
if ($group ne '') { |
$sender .= &group_args($group); |
$sender.='&'.&grp_args($group); |
|
} |
|
$sender .= '">'.&mt('Hide').'</a>'; |
$sender .= '">'.&mt('Hide').'</a>'; |
} |
} |
$sender.=' <a href="/adm/feedback?deldisc='. |
$sender.=' <a href="/adm/feedback?deldisc='. |
Line 1036 sub build_posting_display {
|
Line 1011 sub build_posting_display {
|
if ($$newpostsflag) { |
if ($$newpostsflag) { |
$sender .= '&previous='.$prevread; |
$sender .= '&previous='.$prevread; |
} |
} |
if ($group ne '') { |
$sender .= &group_args($group); |
$sender .= '&'.&grp_args($group); |
|
} |
|
$sender .= '">'.&mt('Delete').'</a>'; |
$sender .= '">'.&mt('Delete').'</a>'; |
} |
} |
} else { |
} else { |
Line 1074 sub build_posting_display {
|
Line 1047 sub build_posting_display {
|
if ($$newpostsflag) { |
if ($$newpostsflag) { |
$sender .= '&previous='.$prevread; |
$sender .= '&previous='.$prevread; |
} |
} |
$sender .= '&'.&grp_args($group); |
$sender .= &group_args($group); |
$sender .= '" '.$target.'>'.&mt('Reply').'</a>'; |
$sender .= '" '.$target.'>'.&mt('Reply').'</a>'; |
} elsif (&Apache::lonnet::allowed('pch', |
} elsif (&Apache::lonnet::allowed('pch', |
$env{'request.course.id'}. |
$env{'request.course.id'}. |
Line 1216 sub build_posting_display {
|
Line 1189 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 ($seeid) { |
if ($seeid) { |
$$discussionitems[$idx] .= ' <a href="/adm/feedback?allversions='.$escsymb.':::'.$idx; |
$$discussionitems[$idx] .= ' <a href="/adm/feedback?allversions='.$escsymb.':::'.$idx; |
if ($group ne '') { |
$$discussionitems[$idx] .= &group_args($group); |
$$discussionitems[$idx] .= '&'.&grp_args($group); |
|
} |
|
$$discussionitems[$idx] .= '">'.&mt('Display all versions').'</a>'; |
$$discussionitems[$idx] .= '">'.&mt('Display all versions').'</a>'; |
} |
} |
$$discussionitems[$idx].='<br/>'.&mt('Earlier version(s) were posted on: '); |
$$discussionitems[$idx].='<br/>'.&mt('Earlier version(s) were posted on: '); |
Line 1712 END
|
Line 1683 END
|
} |
} |
} |
} |
if ($attachmsg) { |
if ($attachmsg) { |
$r->print("<b>Retained attachments</b>:$attachmsg<br />\n"); |
$r->print("<br /><b>Retained attachments</b>:$attachmsg<br />\n"); |
} |
} |
if ($newattachmsg) { |
if ($newattachmsg) { |
$r->print("$newattachmsg<br />"); |
$r->print("$newattachmsg<br />"); |
Line 1959 sub print_sortfilter_options {
|
Line 1930 sub print_sortfilter_options {
|
unshift(@sections,'all'); # Put 'all' at the front of the list |
unshift(@sections,'all'); # Put 'all' at the front of the list |
|
|
} |
} |
foreach (@sections) { |
foreach my $sec (@sections) { |
$section_sel .= " <option value=\"$_\" />$_\n"; |
$section_sel .= " <option value=\"$sec\">$sec</option>\n"; |
} |
} |
|
|
if (&check_group_priv() eq 'ok') { |
if (&check_group_priv() eq 'ok') { |
Line 1985 sub print_sortfilter_options {
|
Line 1956 sub print_sortfilter_options {
|
$numgroupvis = 1; |
$numgroupvis = 1; |
} |
} |
} |
} |
foreach (@groups) { |
foreach my $group (@groups) { |
$group_sel .= " <option value=\"$_\" />$_\n"; |
$group_sel .= " <option value=\"$group\">$group</option>\n"; |
} |
} |
|
|
my $function = &Apache::loncommon::get_users_function(); |
my $function = &Apache::loncommon::get_users_function(); |
Line 2076 $start_page
|
Line 2047 $start_page
|
<tr> |
<tr> |
<td align="center" valign="top"> |
<td align="center" valign="top"> |
<select name="sortposts"> |
<select name="sortposts"> |
<option value="ascdate" selected="selected" />$sort_types{'ascdate'} |
<option value="ascdate" selected="selected">$sort_types{'ascdate'}</option> |
<option value="descdate" />$sort_types{'descdate'} |
<option value="descdate">$sort_types{'descdate'}</option> |
<option value="thread" />$sort_types{'thread'} |
<option value="thread">$sort_types{'thread'}</option> |
<option value="subject" />$sort_types{'subject'} |
<option value="subject">$sort_types{'subject'}</option> |
<option value="username" />$sort_types{'username'} |
<option value="username">$sort_types{'username'}</option> |
<option value="lastfirst" />$sort_types{'lastfirst'} |
<option value="lastfirst">$sort_types{'lastfirst'}</option> |
</select> |
</select> |
</td> |
</td> |
<td> </td> |
<td> </td> |
<td align="center" valign="top"> |
<td align="center" valign="top"> |
<select name="statusfilter"> |
<select name="statusfilter"> |
<option value="all" selected="selected" />$status_types{'all'} |
<option value="all" selected="selected">$status_types{'all'}</option> |
<option value="Active" />$status_types{'Active'} |
<option value="Active">$status_types{'Active'}</option> |
<option value="Expired" />$status_types{'Expired'} |
<option value="Expired">$status_types{'Expired'}</option> |
|
<option value="Future">$status_types{'Future'}</option> |
</select> |
</select> |
</td> |
</td> |
<td> </td> |
<td> </td> |
<td align="center" valign="top"> |
<td align="center" valign="top"> |
<select name="rolefilter" multiple="true" size="5"> |
<select name="rolefilter" multiple="true" size="5"> |
<option value="all" />$role_types{'all'} |
<option value="all">$role_types{'all'}</option> |
<option value="st" />$role_types{'st'} |
<option value="st">$role_types{'st'}</option> |
<option value="cc" />$role_types{'cc'} |
<option value="cc">$role_types{'cc'}</option> |
<option value="in" />$role_types{'in'} |
<option value="in">$role_types{'in'}</option> |
<option value="ta" />$role_types{'ta'} |
<option value="ta">$role_types{'ta'}</option> |
<option value="ep" />$role_types{'ep'} |
<option value="ep">$role_types{'ep'}</option> |
<option value="cr" />$role_types{'cr'} |
<option value="cr">$role_types{'cr'}</option> |
</select> |
</select> |
</td> |
</td> |
<td> </td> |
<td> </td> |
Line 2949 END
|
Line 2921 END
|
} |
} |
} |
} |
} |
} |
if (@{$currnewattach} > 0) { |
if ((ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)) { |
$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#/([^/]+)$#; |
Line 3197 sub sort_filter_names {
|
Line 3169 sub sort_filter_names {
|
); |
); |
%{$status_types} = ( |
%{$status_types} = ( |
all => 'Roles of any status', |
all => 'Roles of any status', |
Active => 'Only active roles', |
Active => 'Only active roles', |
Expired => 'Only inactive roles' |
Expired => 'Only past roles', |
|
Future => 'Only future roles', |
); |
); |
} |
} |
|
|
Line 3794 sub check_group_priv {
|
Line 3767 sub check_group_priv {
|
return ''; |
return ''; |
} |
} |
|
|
sub grp_args { |
sub group_args { |
my ($group) = @_; |
my ($group) = @_; |
my $extra_args = 'group='.$group; |
if ($group eq '') { return ''; } |
|
my $extra_args = '&group='.$group; |
if (exists($env{'form.ref'})) { |
if (exists($env{'form.ref'})) { |
$extra_args .= '&ref='.$env{'form.ref'}; |
$extra_args .= '&ref='.$env{'form.ref'}; |
} |
} |
return $extra_args; |
return $extra_args; |
} |
} |