loncom/interface/spreadsheet/studentcalc.pm - diff

Return to studentcalc.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

version 1.18, 2003/09/05 01:57:54	version 1.20, 2003/09/12 19:00:54
Line 129 sub get_html_title {	Line 129 sub get_html_title {
my $title = '<h1>'.$name;	my $title = '<h1>'.$name;
if ($ENV{'user.name'} ne $self->{'name'} &&	if ($ENV{'user.name'} ne $self->{'name'} &&
$ENV{'user.domain'} ne $self->{'domain'}) {	$ENV{'user.domain'} ne $self->{'domain'}) {
$title .= &Apache::loncommon::aboutmewrapper	$title .= ' '.&Apache::loncommon::aboutmewrapper
($self->{'name'}.'@'.$self->{'domain'},	($self->{'name'}.'@'.$self->{'domain'},
$self->{'name'},$self->{'domain'});	$self->{'name'},$self->{'domain'});
}	}
Line 589 Writes the export data for this student	Line 589 Writes the export data for this student
#############################################	#############################################
sub save_export_data {	sub save_export_data {
my $self = shift;	my $self = shift;
	&Apache::assesscalc::save_cached_export_rows($self->{'name'},
	$self->{'domain'});
return if ($self->temporary());	return if ($self->temporary());
my $student = $self->{'name'}.':'.$self->{'domain'};	my $student = $self->{'name'}.':'.$self->{'domain'};
return if (! exists($Exportrows{$student}));	return if (! exists($Exportrows{$student}));