version 1.97, 2004/07/04 23:56:58
|
version 1.98, 2004/07/05 22:54:33
|
Line 455 sub list_discussion {
|
Line 455 sub list_discussion {
|
my $colspan=$maxdepth+1; |
my $colspan=$maxdepth+1; |
$discussion .= <<END; |
$discussion .= <<END; |
<tr bgcolor="#FFFFFF"> |
<tr bgcolor="#FFFFFF"> |
<td colspan="'.$colspan.'" valign="top"> |
<td colspan="$colspan" valign="top"> |
<table border="0" bgcolor="#FFFFFF" width="100%" cellspacing="2" cellpadding="2"> |
<table border="0" bgcolor="#FFFFFF" width="100%" cellspacing="2" cellpadding="2"> |
<tr> |
<tr> |
<td align="left"> |
<td align="left"> |
Line 642 $r->print(&generate_preview_button().
|
Line 642 $r->print(&generate_preview_button().
|
|
|
sub print_display_options { |
sub print_display_options { |
my ($r,$symb,$previous,$dispchg,$markchg,$feedurl) = @_; |
my ($r,$symb,$previous,$dispchg,$markchg,$feedurl) = @_; |
|
# backward compatibility (bulletin boards used to be 'wrapped') |
|
if ($feedurl=~m|^/adm/wrapper/adm/.*/bulletinboard$|) { |
|
$feedurl=~s|^/adm/wrapper||; |
|
} |
|
|
my $function = &Apache::loncommon::get_users_function(); |
my $function = &Apache::loncommon::get_users_function(); |
my $tabcolor = &Apache::loncommon::designparm($function.'.tabbg', |
my $tabcolor = &Apache::loncommon::designparm($function.'.tabbg', |
$ENV{'user.domain'}); |
$ENV{'user.domain'}); |
Line 786 sub redirect_back {
|
Line 791 sub redirect_back {
|
my ($r,$feedurl,$typestyle,$sendsomething,$sendposts,$status,$previous) = @_; |
my ($r,$feedurl,$typestyle,$sendsomething,$sendposts,$status,$previous) = @_; |
my $prevtag = ''; |
my $prevtag = ''; |
my $qrystr = ''; |
my $qrystr = ''; |
|
# backward compatibility (bulletin boards used to be 'wrapped') |
|
if ($feedurl=~m|^/adm/wrapper/adm/.*/bulletinboard$|) { |
|
$feedurl=~s|^/adm/wrapper||; |
|
} |
|
|
if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' }; |
if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' }; |
if ($previous > 0) { |
if ($previous > 0) { |
$qrystr = 'previous='.$previous; |
$qrystr = 'previous='.$previous; |
Line 1135 sub handler {
|
Line 1145 sub handler {
|
my $previous=$ENV{'form.previous'}; |
my $previous=$ENV{'form.previous'}; |
my ($dispchg,$markchg) = split/_/,$ENV{'form.changes'}; |
my ($dispchg,$markchg) = split/_/,$ENV{'form.changes'}; |
my $feedurl = &Apache::lonnet::clutter($url); |
my $feedurl = &Apache::lonnet::clutter($url); |
|
# backward compatibility (bulletin boards used to be 'wrapped') |
|
if ($feedurl=~m|^/adm/wrapper/adm/.*/bulletinboard$|) { |
|
$feedurl=~s|^/adm/wrapper||; |
|
} |
&print_display_options($r,$symb,$previous,$dispchg,$markchg,$feedurl); |
&print_display_options($r,$symb,$previous,$dispchg,$markchg,$feedurl); |
return OK; |
return OK; |
} elsif (($ENV{'form.markondisp'}) || ($ENV{'form.markonread'}) || ($ENV{'form.allposts'}) || ($ENV{'form.onlyunread'}) ) { |
} elsif (($ENV{'form.markondisp'}) || ($ENV{'form.markonread'}) || ($ENV{'form.allposts'}) || ($ENV{'form.onlyunread'}) ) { |
Line 1305 sub handler {
|
Line 1319 sub handler {
|
if ($feedurl=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
if ($feedurl=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
unless ($symb) { $goahead=0; } |
unless ($symb) { $goahead=0; } |
} |
} |
# backward compatibility (bulltin boards used to be 'wrapped') |
# backward compatibility (bulletin boards used to be 'wrapped') |
if ($feedurl=~m|^/adm/wrapper/adm/.*/bulletinboard$|) { |
if ($feedurl=~m|^/adm/wrapper/adm/.*/bulletinboard$|) { |
$feedurl=~s|^/adm/wrapper||; |
$feedurl=~s|^/adm/wrapper||; |
} |
} |