--- loncom/homework/bridgetask.pm 2006/03/28 18:57:49 1.121
+++ loncom/homework/bridgetask.pm 2006/06/05 17:15:37 1.128.2.10
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: bridgetask.pm,v 1.121 2006/03/28 18:57:49 albertel Exp $
+# $Id: bridgetask.pm,v 1.128.2.10 2006/06/05 17:15:37 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -176,10 +176,10 @@ sub add_grading_button {
if (scalar(keys(%sections)) < 3) {
$size=scalar(keys(%sections))+2;
}
- my $sec_select = '
';
}
return $result;
}
@@ -258,64 +259,14 @@ sub preserve_grade_info {
}
sub style {
- return (<
+ my ($target) = @_;
+ if ($target eq 'web'
+ || $target eq 'webgrade') {
+ return (<
STYLE
-
+ }
+ return;
}
sub show_task {
@@ -398,12 +349,15 @@ sub webgrade_standard_info {
my %lt=&Apache::lonlocal::texthash('done' => 'Next Item',
'stop' => 'Quit Grading',
+ 'fail' => 'Fail Rest',
);
my $result=<
+
$file_list
INFO
@@ -428,7 +382,15 @@ sub start_Task {
my ($result,$head_tag_start,$body_tag_start,$form_tag_start)=
&Apache::structuretags::page_start($target,$token,$tagstack,$parstack,$parser,$safeeval);
+ $head_tag_start .= &style($target);
$body_tag_start .= ''."\n";
+
+ if ($target eq 'web' || $target eq 'webgrade') {
+ $head_tag_start.='
'.
+ &Apache::structuretags::get_resource_name($parstack,$safeeval).
+ '';
+ }
+
if ($target eq 'web' && $env{'request.state'} ne 'construct') {
if ($Apache::lonhomework::modifygrades) {
$body_tag_start.='
";
#$result.=' ';
#$result.=' ';
#$result.=' ';
- $result.=''."\n\n".
+ $result.=''."\n\n\n".
&Apache::loncommon::endbodytag().'