--- loncom/homework/bridgetask.pm 2006/03/28 21:11:02 1.125
+++ loncom/homework/bridgetask.pm 2006/03/29 23:06:22 1.132
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: bridgetask.pm,v 1.125 2006/03/28 21:11:02 albertel Exp $
+# $Id: bridgetask.pm,v 1.132 2006/03/29 23:06:22 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -263,7 +263,7 @@ sub style {
if ($target eq 'web'
|| $target eq 'webgrade') {
return (<
+
STYLE
}
return;
@@ -514,7 +514,7 @@ DONESCREEN
''.$body_tag_start.
"\n".'
'."\n".
'';
+ src="/res/adm/includes/task_grading.js">';
#$result.='
Review'.&show_queue('reviewqueue');
#$result.='
Grade'.&show_queue('gradingqueue');
}
@@ -974,7 +974,7 @@ DONEBUTTON
&Apache::structuretags::finalize_storage();
}
} elsif ($target eq 'webgrade') {
- $result.="
\n
";
+ $result.="";
#$result.=' ';
#$result.=' inside of <".$tagstack->[-2].">");
&Apache::lonxml::get_all_text('/introparagraph',$parser,$style);
}
@@ -1883,6 +1886,10 @@ sub start_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 {