loncom/homework/bridgetask.pm - diff

Return to bridgetask.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/bridgetask.pm between versions 1.125 and 1.128.2.1

version 1.125, 2006/03/28 21:11:02	version 1.128.2.1, 2006/03/29 14:03:53
Line 263 sub style {	Line 263 sub style {
if ($target eq 'web'	if ($target eq 'web'
\|\| $target eq 'webgrade') {	\|\| $target eq 'webgrade') {
return (<<STYLE);	return (<<STYLE);
<link rel="stylesheet" type="text/css" href="/adm/includes/task.css" />	<link rel="stylesheet" type="text/css" href="/res/adm/includes/task.css" />
STYLE	STYLE
}	}
return;	return;
Line 455 sub start_Task {	Line 455 sub start_Task {
my $files = '<ul>';	my $files = '<ul>';
foreach my $file (@files) {	foreach my $file (@files) {
my $url="/uploaded/$domain/$user/portfolio$file";	my $url="/uploaded/$domain/$user/portfolio$file";
if (! &Apache::lonnet::stat_file($url)) {	$file = '<tt>'.$file.'</tt>';
$file = &mt('<font color="red"> Nonexistant file:</font> <tt>[_1]</tt>',$file);
} else {
$file = '<tt>'.$file.'</tt>';
}
$files .= '<li>'.$file.'</li>';	$files .= '<li>'.$file.'</li>';
}	}
$files.='</ul>';	$files.='</ul>';
Line 514 DONESCREEN	Line 510 DONESCREEN
'</head>'.$body_tag_start.	'</head>'.$body_tag_start.
"\n".'<div class="LC_GRADING_task">'."\n".	"\n".'<div class="LC_GRADING_task">'."\n".
'<script type="text/javascript"	'<script type="text/javascript"
src="/adm/includes/task_grading.js"></script>';	src="/res/adm/includes/task_grading.js"></script>';
#$result.='<br />Review'.&show_queue('reviewqueue');	#$result.='<br />Review'.&show_queue('reviewqueue');
#$result.='<br />Grade'.&show_queue('gradingqueue');	#$result.='<br />Grade'.&show_queue('gradingqueue');
}	}
Line 1874 sub start_IntroParagraph {	Line 1870 sub start_IntroParagraph {
if ($tagstack->[-2] eq 'Dimension') {	if ($tagstack->[-2] eq 'Dimension') {
$dimension{'intro'}=&Apache::lonxml::get_all_text('/introparagraph',$parser,$style);	$dimension{'intro'}=&Apache::lonxml::get_all_text('/introparagraph',$parser,$style);

} elsif ($target eq 'webgrade') {	} elsif ($tagstack->[-2] eq 'Task' && $target eq 'webgrade') {
	&Apache::lonxml::startredirection();
	} else {
	&Apache:;lonxml::error("Invalid use of <IntroParagraph> inside of <".$tagstack->[-2].">");
&Apache::lonxml::get_all_text('/introparagraph',$parser,$style);	&Apache::lonxml::get_all_text('/introparagraph',$parser,$style);
}	}

Line 1883 sub start_IntroParagraph {	Line 1882 sub start_IntroParagraph {
}	}

sub end_IntroParagraph {	sub end_IntroParagraph {
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
	if ($tagstack->[-2] eq 'Task' && $target eq 'webgrade') {
	my $result = &Apache::lonxml::endredirection();
	}
}	}

sub start_Instance {	sub start_Instance {

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

Removed from v.1.125
changed lines
	Added in v.1.128.2.1