--- loncom/interface/lonprintout.pm	2006/10/24 10:37:58	1.490
+++ loncom/interface/lonprintout.pm	2006/11/20 11:01:50	1.492
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.490 2006/10/24 10:37:58 foxr Exp $
+# $Id: lonprintout.pm,v 1.492 2006/11/20 11:01:50 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -38,11 +38,10 @@ use Apache::grades;
 use Apache::edit;
 use Apache::File();
 use Apache::lonnavmaps;
-use Apache::lonratedt;
+use LONCAPA::map();
 use POSIX qw(strftime);
 use Apache::lonlocal;
 use Carp;
-use lib '/home/httpd/lib/perl/';
 use LONCAPA;
 
 my %perm;
@@ -1166,12 +1165,12 @@ sub print_construction_sequence {
     if ($helper->{'VARS'}->{'curseed'}) {
 	$rndseed=$helper->{'VARS'}->{'curseed'};
     }
-    my $errtext=&Apache::lonratedt::mapread($currentURL);
+    my $errtext=&LONCAPA::map::mapread($currentURL);
     # 
     #  These make this all support recursing for subsequences.
     #
-    my @order    = @Apache::lonratedt::order;
-    my @resources = @Apache::lonratedt::resources; 
+    my @order    = @LONCAPA::map::order;
+    my @resources = @LONCAPA::map::resources; 
     for (my $member=0;$member<=$#order;$member++) {
 	$resources[$order[$member]]=~/^([^:]*):([^:]*):/;
 	my $urlp=$2;
@@ -1980,9 +1979,9 @@ sub print_resources {
     my $printed = '';
     my ($username,$userdomain,$usersection) = split /:/,$person;
     my $fullname = &get_name($username,$userdomain);
-    my $namepostfix;
+    my $namepostfix = "\\\\";	# Both anon and not anon should get the same vspace.
     if ($person =~ 'anon') {
-	$namepostfix="\\\\Name: ";
+	$namepostfix .="Name: ";
 	$fullname = "CODE - ".$moreenv->{'CODE'};
     }
     #  Fullname may have special latex characters that need \ prefixing: