loncom/interface/lonwhatsnew.pm - diff

Return to lonwhatsnew.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonwhatsnew.pm between versions 1.38.2.1 and 1.38.2.2

version 1.38.2.1, 2005/12/19 23:24:40	version 1.38.2.2, 2005/12/22 22:39:49
Line 109 sub handler {	Line 109 sub handler {
sub display_main_box {	sub display_main_box {
my ($r,$command,$checkallowed) = @_;	my ($r,$command,$checkallowed) = @_;
my $domain=&Apache::loncommon::determinedomain();	my $domain=&Apache::loncommon::determinedomain();
my $tabbg=&Apache::loncommon::designparm('coordinator.tabbg',$domain);	my $function = &Apache::loncommon::get_users_function();
	my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);

$r->print('<table width="100%" border="0" cellpadding="5" cellspacing="0"><tr><td width="100%">');	$r->print('<table width="100%" border="0" cellpadding="5" cellspacing="0"><tr><td width="100%">');

my %threshold_titles = (	my %threshold_titles = (
Line 136 sub display_main_box {	Line 138 sub display_main_box {
(&Apache::lonnet::allowed('opa',$env{'request.course.id'}))) {	(&Apache::lonnet::allowed('opa',$env{'request.course.id'}))) {
&display_interval_config($r,\%interval_titles);	&display_interval_config($r,\%interval_titles);
} else {	} else {
&display_actions_box($r,$command,\%threshold_titles,\%interval_titles,	&display_actions_box($r,$tabbg,$command,\%threshold_titles,
$cdom,$crs,$checkallowed);	\%interval_titles,$cdom,$crs,$checkallowed);
}	}
$r->print(<<END_OF_BLOCK);	$r->print(<<END_OF_BLOCK);
</td>	</td>
Line 199 ENDHEAD	Line 201 ENDHEAD
#-------------------------------	#-------------------------------

sub display_actions_box() {	sub display_actions_box() {
my ($r,$command,$threshold_titles,$interval_titles,$cdom,$crs,	my ($r,$tabbg,$command,$threshold_titles,$interval_titles,
$checkallowed) = @_;	$cdom,$crs,$checkallowed) = @_;

my $rowColor1 = "#ffffff";	my $rowColor1 = "#ffffff";
my $rowColor2 = "#eeeeee";	my $rowColor2 = "#eeeeee";

Line 237 sub display_actions_box() {	Line 240 sub display_actions_box() {
my $needitems = 0;	my $needitems = 0;
my $boxcount = 0;	my $boxcount = 0;

my $domain=&Apache::loncommon::determinedomain();
my $function;
if ($env{'request.role'}=~/^(cc\|in\|ta\|ep)/) {
$function='coordinator';
}
if ($env{'request.role'}=~/^(su\|dc\|ad\|li)/) {
$function='admin';
}

my %threshold = (	my %threshold = (
av_attempts => 2,	av_attempts => 2,
degdiff => 0.5,	degdiff => 0.5,
numstudents => 2,	numstudents => 2,
);	);

my $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain);
my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);

unless ($cid) {	unless ($cid) {
$r->print('<br /><b><center>'.$lt{'yacc'}.'</center></b><br /><br />');	$r->print('<br /><b><center>'.$lt{'yacc'}.'</center></b><br /><br />');
return;	return;
Line 797 sub get_curr_interval {	Line 788 sub get_curr_interval {
my $interval;	my $interval;
my %settings = &Apache::lonnet::dump('nohist_whatsnew',$uname,$udom,$cid,':interval');	my %settings = &Apache::lonnet::dump('nohist_whatsnew',$uname,$udom,$cid,':interval');
my ($tmp) = %settings;	my ($tmp) = %settings;
if ($tmp =~ /^Error/) {
&logthis();	unless ($tmp =~ /^(con_lost\|error\|no_such_host)/i) {
} else {
$interval = $settings{$cid.':interval'};	$interval = $settings{$cid.':interval'};
}	}
return $interval;	return $interval;
Line 940 sub checkversions {	Line 930 sub checkversions {
my ($cdom,$crs,$navmap,$changed,$starttime) = @_;	my ($cdom,$crs,$navmap,$changed,$starttime) = @_;
my %changes=&Apache::lonnet::dump('versionupdate',$cdom,$crs);	my %changes=&Apache::lonnet::dump('versionupdate',$cdom,$crs);
my ($tmp) = keys(%changes);	my ($tmp) = keys(%changes);
if ($tmp =~/^error\:/) {	unless ($tmp =~ /^(con_lost\|error\|no_such_host)/i) {
&Apache::lonnet::logthis('Error retrieving version update information: '.	if (keys(%changes) > 0) {
$tmp.' for '.$cdom.'_'.$crs.' in whatsnew');
} else {
if (keys(%changes) > 0) {
foreach my $key (sort(keys(%changes))) {	foreach my $key (sort(keys(%changes))) {
if ($changes{$key} > $starttime) {	if ($changes{$key} > $starttime) {
my $version;	my $version;
Line 1226 sub get_display_settings {	Line 1213 sub get_display_settings {
my ($uname,$udom,$cid) = @_;	my ($uname,$udom,$cid) = @_;
my %settings = &Apache::lonnet::dump('nohist_whatsnew',$udom,$uname,$cid);	my %settings = &Apache::lonnet::dump('nohist_whatsnew',$udom,$uname,$cid);
my ($tmp) = keys(%settings);	my ($tmp) = keys(%settings);
if ($tmp=~/^error:/) {	if ($tmp=~/^(con_lost\|error\|no_such_host)/i) {
%settings = ();	%settings = ();
unless ($tmp eq 'error: 2 tie(GDBM) Failed while attempting dump') {	unless ($tmp =~ /^error: 2 /) {
&logthis('Error retrieving whatsnew settings: '.$tmp.' for '.	&Apache::lonnet::logthis('Error retrieving whatsnew settings: '.
$uname.':'.$udom.' for course: '.$cid);	$tmp.' for '.$uname.':'.$udom.
}	' for course: '.$cid);

	}
}	}
return %settings;	return %settings;
}	}

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

Removed from v.1.38.2.1
changed lines
	Added in v.1.38.2.2