--- loncom/homework/bridgetask.pm 2006/03/30 21:51:21 1.128.2.5 +++ loncom/homework/bridgetask.pm 2006/03/29 20:33:01 1.131 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: bridgetask.pm,v 1.128.2.5 2006/03/30 21:51:21 albertel Exp $ +# $Id: bridgetask.pm,v 1.131 2006/03/29 20:33:01 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -455,7 +455,11 @@ sub start_Task { my $files = '<ul>'; foreach my $file (@files) { my $url="/uploaded/$domain/$user/portfolio$file"; - $file = '<tt>'.$file.'</tt>'; + if (! &Apache::lonnet::stat_file($url)) { + $file = &mt('<font color="red"> Nonexistant file:</font> <tt>[_1]</tt>',$file); + } else { + $file = '<tt>'.$file.'</tt>'; + } $files .= '<li>'.$file.'</li>'; } $files.='</ul>'; @@ -1760,7 +1764,9 @@ sub get_instance { my $link=&link($instance,$id); my $status=$Apache::lonhomework::history{"resource.$version.0.$dim.$instance.$id.status"}; $result.='<div class="LC_GRADING_criteria" id="'.$link.'">'."\n". - '<div class="LC_GRADING_criteriatext" id="'.$last_link.'">'."\n"; + '<a name="'.$link.'" />'."\n". + '<a name="next_'.$last_link.'" />'."\n". + '<div class="LC_GRADING_criteriatext">'."\n"; @Apache::scripttag::parser_env = @_; $result.=&Apache::scripttag::xmlparse($dimension{$instance.'.criteria.'.$id}); $result.='</div>'."\n". @@ -1870,6 +1876,9 @@ sub start_IntroParagraph { } 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); } }