[LON-CAPA-cvs] cvs: loncom /interface lonprintout.pm

[sakharuk]

sakharuk		Wed Jun 25 14:34:14 2003 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Changes to print assignment title instead of name of the map which contains the paricular problem.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.197 loncom/interface/lonprintout.pm:1.198
--- loncom/interface/lonprintout.pm:1.197	Tue Jun 24 16:54:06 2003
+++ loncom/interface/lonprintout.pm	Wed Jun 25 14:34:14 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.197 2003/06/24 20:54:06 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.198 2003/06/25 18:34:14 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -602,8 +602,8 @@
 		$selectionmade = 4;
 	    }
 	    $form{'symb'}=$master_seq[$i];
-	    $master_seq[$i]=~/\/([^\/]+)\.sequence_/;
-	    my $assignment=' '.$1.' ';
+	    $master_seq[$i]=~/(.*)___\d*___/;
+	    my $assignment=&Apache::lonnet::gettitle($1); #tittle of the assignment which contains this problem
 	    #&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]");
 	    my $texversion=&Apache::lonnet::ssi($urlp,%form);
 	    if ($urlp=~/\.page$/) {
@@ -625,7 +625,7 @@
 		$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
 	    }
 #	    $result .= $texversion;
-	    if (($selectionmade == 4) and ($assignment ne $prevassignment) and ($i>1)) {
+	    if (($selectionmade == 4) and ($assignment ne $prevassignment) and ($i>=1)) {
 		my $name = &get_name();
 		if ($name =~ /^\s*$/) {
 		    $name=&Apache::lonxml::latex_special_symbols($ENV{'user.name'},undef,