--- loncom/homework/bridgetask.pm 2005/05/03 14:52:31 1.17
+++ loncom/homework/bridgetask.pm 2005/05/06 20:26:35 1.18
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: bridgetask.pm,v 1.17 2005/05/03 14:52:31 albertel Exp $
+# $Id: bridgetask.pm,v 1.18 2005/05/06 20:26:35 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -194,6 +194,7 @@ sub start_Task {
$Apache::bridgetask::queue_key=$todo;
&Apache::structuretags::initialize_storage();
&Apache::lonhomework::showhash(%Apache::lonhomework::history);
+ $result.="\n".'
';
} else {
$result.="\n".
'';
@@ -246,7 +247,7 @@ sub end_Task {
}
}
} elsif ($target eq 'webgrade') {
- $result.="\n
";
+ $result.="
\n
";
$result.=' ';
$result.='';
- foreach my $id (@{$dimension{$instance.'.criterias'}}) {
- $result.=''.
- $dimension{$instance.'.criteria.'.$id}.' |
';
+{
+ my $last_link;
+ sub end_Dimension {
+ my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
+ my $result;
+ if ($target eq 'web') {
+ my $instance=&get_instance();
+ $result=$dimension{'intro'}.$dimension{$instance.'.text'};
+ } elsif ($target eq 'webgrade') {
+ my $instance=&get_instance();
+ foreach my $id (@{$dimension{$instance.'.criterias'}}) {
+ my $link='criteria_'.$instance.'_'.$id;
+ $result.=''.
+ ''.
+ ''.
+ ' '.
+ #$dimension{$instance.'.criteria.'.$id}.
+ ' | '.
+ 'Additional Comment for Student '.
+ ''.
+ ' | '.
+ ''.
+ ' '.
+ ' '.
+ ' '.
+ ' '.
+ ' | '.
+ ''.
+ 'Prev '.
+ 'Next '.
+ ' |
';
+ $last_link=$link;
+ }
}
- $result.='';
+ return $result;
}
- return $result;
}
sub start_IntroParagraph {