version 1.14, 2003/06/23 19:58:18
|
version 1.16, 2003/07/16 16:35:45
|
Line 334 sub get_html_title {
|
Line 334 sub get_html_title {
|
sub get_title { |
sub get_title { |
my $self = shift; |
my $self = shift; |
my @title = (); |
my @title = (); |
if (($self->{'usymb'} eq '_feedback') || |
if (($self->{'symb'} eq '_feedback') || |
($self->{'usymb'} eq '_evaluation') || |
($self->{'symb'} eq '_evaluation') || |
($self->{'usymb'} eq '_discussion') || |
($self->{'symb'} eq '_discussion') || |
($self->{'usymb'} eq '_tutoring')) { |
($self->{'symb'} eq '_tutoring')) { |
my $assess_title = ucfirst($self->{'usymb'}); |
my $assess_title = ucfirst($self->{'symb'}); |
$assess_title =~ s/^_//; |
$assess_title =~ s/^_//; |
push(@title,$assess_title); |
push(@title,$assess_title); |
} else { |
} else { |
Line 372 sub outsheet_html {
|
Line 372 sub outsheet_html {
|
# Determine table structure |
# Determine table structure |
################################### |
################################### |
my $importcolor = '#FFFFFF'; |
my $importcolor = '#FFFFFF'; |
my $exportcolor = '#FFFF66'; |
my $exportcolor = '#FFFFAA'; |
my $num_uneditable = 1; |
my $num_uneditable = 1; |
my $num_left = 52-$num_uneditable; |
my $num_left = 52-$num_uneditable; |
my $tableheader =<<"END"; |
my $tableheader =<<"END"; |