loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.330, 2018/07/06 13:16:58	version 1.331, 2018/07/06 13:29:49
Line 1852 sub image_changes {	Line 1852 sub image_changes {
my ($is_custom,$alt_text,$img_import,$showfile,$fullsize,$role,$img,$imgfile,$logincolors) = @_;	my ($is_custom,$alt_text,$img_import,$showfile,$fullsize,$role,$img,$imgfile,$logincolors) = @_;
my $output;	my $output;
if ($img eq 'login') {	if ($img eq 'login') {
# suppress image for Log-in header	$output = '</td><td>'.$logincolors; # suppress image for Log-in header
} elsif (!$is_custom) {	} elsif (!$is_custom) {
if ($img ne 'domlogo') {	if ($img ne 'domlogo') {
$output .= &mt('Default image:').'<br />';	$output = &mt('Default image:').'<br />';
} else {	} else {
$output .= &mt('Default in use:').'<br />';	$output = &mt('Default in use:').'<br />';
}	}
}	}
if ($img eq 'login') { # suppress image for Log-in header	if ($img ne 'login') {
$output .= '<td>'.$logincolors;
} else {
if ($img_import) {	if ($img_import) {
$output .= '<input type="hidden" name="'.$role.'_import_'.$img.'" value="'.$imgfile.'" />';	$output .= '<input type="hidden" name="'.$role.'_import_'.$img.'" value="'.$imgfile.'" />';
}	}