version 1.210, 2006/07/18 17:31:50
|
version 1.212, 2006/07/18 17:44:43
|
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 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 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> |
</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 3794 sub check_group_priv {
|
Line 3765 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; |
} |
} |