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

[albertel]

albertel		Sat Nov 13 04:18:53 2004 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  - assignment titles were not correct
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.334 loncom/interface/lonprintout.pm:1.335
--- loncom/interface/lonprintout.pm:1.334	Sat Nov 13 03:16:09 2004
+++ loncom/interface/lonprintout.pm	Sat Nov 13 04:18:52 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.334 2004/11/13 08:16:09 albertel Exp $
+# $Id: lonprintout.pm,v 1.335 2004/11/13 09:18:52 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -551,9 +551,11 @@
 
 
 sub details_for_menu {
-
-    my $name_of_resourse = &Apache::lonnet::gettitle($ENV{'form.postdata'});
-    my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'});
+    my ($helper)=@_;
+    my $postdata=$ENV{'form.postdata'};
+    if (!$postdata) { $postdata=$helper->{VARS}{'postdata'}; }
+    my $name_of_resource = &Apache::lonnet::gettitle($postdata);
+    my $symbolic = &Apache::lonnet::symbread($postdata);
     my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symbolic);
     $map=&Apache::lonnet::clutter($map);
     my $name_of_sequence = &Apache::lonnet::gettitle($map);
@@ -566,8 +568,7 @@
 	$ENV{'request.course.uri'} =~ m|([^/]+)$|;
 	$name_of_map = $1;
     }
-    return ($name_of_resourse,$name_of_sequence,$name_of_map);
-
+    return ($name_of_resource,$name_of_sequence,$name_of_map);
 }
 
 
@@ -1532,7 +1533,7 @@
 
     }
     
-    my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu;
+    my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu($helper);
     if ($sequenceTitle ne '') {$helper->{VARS}->{'assignment'}=$sequenceTitle;}