loncom/homework/bridgetask.pm - diff

Return to bridgetask.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.190, 2006/11/02 23:25:40	version 1.193, 2006/11/06 17:53:06
Line 326 sub style {	Line 326 sub style {
my ($target) = @_;	my ($target) = @_;
if ($target eq 'web'	if ($target eq 'web'
\|\| $target eq 'webgrade') {	\|\| $target eq 'webgrade') {
return (<<STYLE);	my $style = (<<STYLE);
<link rel="stylesheet" type="text/css" href="/res/adm/includes/task.css" />	<link rel="stylesheet" type="text/css" href="/res/adm/includes/task.css" />
STYLE	STYLE
	if ($env{'browser.type'} eq 'explorer'
	&& $env{'browser.os'} eq 'win' ) {
	if ($env{'browser.version'} < 7) {
	$style .= (<<STYLE);
	<link rel="stylesheet" type="text/css" href="/res/adm/includes/task_ie.css" />
	STYLE
	} else {
	$style .= (<<STYLE);
	<link rel="stylesheet" type="text/css" href="/res/adm/includes/task_ie7.css" />
	STYLE
	}
	}
	return $style;
}	}
return;	return;
}	}
Line 2508 sub start_Criteria {	Line 2521 sub start_Criteria {
$result.=	$result.=
&nested_parse(\$dimension{$dim}{'criteria.'.$id},[@_]);	&nested_parse(\$dimension{$dim}{'criteria.'.$id},[@_]);
$result.='</p><p class="LC_grade">'.$status_display.'</p>';	$result.='</p><p class="LC_grade">'.$status_display.'</p>';
if ($comment) {	if ($comment =~ /\w/) {
$result.='<p class="LC_comment">'.	$result.='<p class="LC_comment">'.
&mt('Comment: [_1]',$comment).'</p>';	&mt('Comment: [_1]',$comment).'</p>';
}	}