loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonfeedback.pm between versions 1.97 and 1.98

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\|\|;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.97
changed lines
	Added in v.1.98