loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.267, 2004/01/12 21:53:27	version 1.269, 2004/01/15 20:06:19
Line 515 sub page_cleanup {	Line 515 sub page_cleanup {

sub details_for_menu {	sub details_for_menu {

my $name_of_resourse = $hash{'title_'.$hash{'ids_'.$ENV{'form.postdata'}}};	my $name_of_resourse = &Apache::lonnet::gettitle($ENV{'form.postdata'});
my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'});	my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'});
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symbolic);	my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symbolic);
$map=&Apache::lonnet::clutter($map);	$map=&Apache::lonnet::clutter($map);
my $name_of_sequence;	my $name_of_sequence = &Apache::lonnet::gettitle($map);
$name_of_sequence = $hash{'title_'.$hash{'ids_'.$map}};
if ($name_of_sequence =~ /^\s*$/) {	if ($name_of_sequence =~ /^\s*$/) {
$map =~ m\|([^/]+)$\|;	$map =~ m\|([^/]+)$\|;
$name_of_sequence = $1;	$name_of_sequence = $1;
}	}
my $name_of_map = $hash{'title_'.$hash{'ids_'.&Apache::lonnet::clutter($ENV{'request.course.uri'})}};	my $name_of_map = &Apache::lonnet::gettitle($ENV{'request.course.uri'});
if ($name_of_map =~ /^\s*$/) {	if ($name_of_map =~ /^\s*$/) {
$ENV{'request.course.uri'} =~ m\|([^/]+)$\|;	$ENV{'request.course.uri'} =~ m\|([^/]+)$\|;
$name_of_map = $1;	$name_of_map = $1;