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

[sakharuk]

sakharuk		Wed Aug  7 13:24:35 2002 EDT

  Modified files:              
    /loncom/homework	structuretags.pm 
  Log:
   Corrected to reproduce problems names for tex target.
  
  
Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.102 loncom/homework/structuretags.pm:1.103
--- loncom/homework/structuretags.pm:1.102	Wed Jul 24 16:34:52 2002
+++ loncom/homework/structuretags.pm	Wed Aug  7 13:24:35 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.102 2002/07/24 20:34:52 sakharuk Exp $
+# $Id: structuretags.pm,v 1.103 2002/08/07 17:24:35 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -285,6 +285,12 @@
 	  "<title>$name</title></head>\n$body_tag_start\n";
       }
     } elsif ($target eq 'tex') {
+	my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval);
+	if ($name eq '') { 
+	    $name=&Apache::lonnet::EXT('resource.title');
+	    if ($name eq 'con_lost') { $name = ''; }
+	}
+	$Apache::lonhomework::name=$name;
 	my $id = $Apache::inputtags::part;
 	my $duedate = &Apache::lonnet::EXT("resource.$id.duedate"); 
 	$duedate = POSIX::strftime("%c",localtime($duedate));