[LON-CAPA-cvs] cvs: loncom /interface lonprintout.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Sat, 13 Nov 2004 09:18:53 -0000
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;}