Return to structuretags.pm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.230, 2004/01/30 16:21:26 | version 1.231, 2004/02/02 17:28:53 |
---|---|
Line 37 use Apache::lonnet; | Line 37 use Apache::lonnet; |
use Apache::File(); | use Apache::File(); |
use Apache::lonmenu; | use Apache::lonmenu; |
use Apache::lonlocal; | use Apache::lonlocal; |
use Apache::lonxml; | |
BEGIN { | BEGIN { |
&Apache::lonxml::register('Apache::structuretags',('block','languageblock','instructorcomment','while','randomlist','problem','library','web','tex','part','preduedate','postanswerdate','solved','notsolved','startouttext','endouttext', | &Apache::lonxml::register('Apache::structuretags',('block','languageblock','instructorcomment','while','randomlist','problem','library','web','tex','part','preduedate','postanswerdate','solved','notsolved','startouttext','endouttext', |
Line 475 sub start_problem { | Line 476 sub start_problem { |
my @due_file_content = <$temp_file>; | my @due_file_content = <$temp_file>; |
my $due_file_content = $due_file_content[$#due_file_content]; | my $due_file_content = $due_file_content[$#due_file_content]; |
chomp $due_file_content; | chomp $due_file_content; |
my $name_of_resourse= &get_resource_name($parstack,$safeeval); | my $name_of_resourse= &Apache::lonxml::latex_special_symbols(&get_resource_name($parstack,$safeeval)); |
if ($due_file_content ne $duedate) { | if ($due_file_content ne $duedate) { |
$temp_file = Apache::File->new('>'.$filename); | $temp_file = Apache::File->new('>'.$filename); |
print $temp_file "$duedate\n"; | print $temp_file "$duedate\n"; |