[LON-CAPA-cvs] cvs: loncom /homework bridgetask.pm

[albertel]

albertel		Fri Feb 23 12:14:22 2007 EDT

  Modified files:              
    /loncom/homework	bridgetask.pm 
  Log:
  - removing some dead code
  
  
Index: loncom/homework/bridgetask.pm
diff -u loncom/homework/bridgetask.pm:1.227 loncom/homework/bridgetask.pm:1.228
--- loncom/homework/bridgetask.pm:1.227	Thu Feb 22 20:04:05 2007
+++ loncom/homework/bridgetask.pm	Fri Feb 23 12:14:20 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: bridgetask.pm,v 1.227 2007/02/23 01:04:05 albertel Exp $
+# $Id: bridgetask.pm,v 1.228 2007/02/23 17:14:20 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2839,35 +2839,6 @@
 	    push(@{$dimension{$dim}{'criterias'}},$id);
 	}
     } elsif ($target eq 'edit') {
-	if (0) {
-	    $result = &Apache::edit::tag_start($target,$token);
-	    my $text=&Apache::lonxml::get_all_text("/criteria",$parser);
-	    &Apache::lonnet::logthis("get_all_text criteria \n$text");
-	    my $local_parser = HTML::LCParser->new(\$text);
-	    $local_parser->xml_mode(1);
-	    $local_parser->marked_sections(1);
-	    while (1) {
-		my $criteria_text = 
-		    &Apache::lonxml::get_all_text('gradernote',$local_parser);
-		$result.=
-		    &Apache::edit::editfield($token->[1],$criteria_text,'',80,4);
-		
-		# check for a <GraderNote> next might be end
-		my $token = $local_parser->get_token();
-		# is the end
-		last if (!$token);
-		my $gradernote = &Apache::lonxml::get_all_text('/gradernote',
-							       $local_parser);
-		# purge the end tag
-		my $token = $local_parser->get_token();
-		$gradernote = '<GraderNote>'.$gradernote.'</GraderNote>';
-		@Apache::scripttag::parser_env = @_;
-		$result .= 
-		    &Apache::edit::end_row().&Apache::edit::start_spanning_row().
-		    &Apache::scripttag::xmlparse($gradernote).
-		    &Apache::edit::end_row().&Apache::edit::start_spanning_row();
-	    }
-	}
 	$result .=&Apache::edit::tag_start($target,$token);
 	$result.=  
 	    &Apache::edit::text_arg('Id:','id',$token,10).' '.