loncom/interface/lonwizard.pm - diff

Return to lonwizard.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.19, 2003/03/21 18:36:40	version 1.20, 2003/03/23 07:22:58
Line 1143 sub render {	Line 1143 sub render {
$level = 9; # general course, see lonparmset.pm perldoc	$level = 9; # general course, see lonparmset.pm perldoc
$affectedResourceId = "0.0";	$affectedResourceId = "0.0";
} elsif ($wizvars->{GRANULARITY} eq 'map') {	} elsif ($wizvars->{GRANULARITY} eq 'map') {
my $navmap = Apache::lonnavmaps::navmap->new(	my $navmap = Apache::lonnavmaps::navmap->new(Apache->request,
$ENV{"request.course.fn"}.".db",	$ENV{"request.course.fn"}.".db",
$ENV{"request.course.fn"}."_parms.db", 0, 0);	$ENV{"request.course.fn"}."_parms.db", 0, 0);
my $res = $navmap->getById($wizvars->{RESOURCE_ID});	my $res = $navmap->getById($wizvars->{RESOURCE_ID});
Line 1153 sub render {	Line 1153 sub render {
$level = 8;	$level = 8;
$affectedResourceId = $wizvars->{RESOURCE_ID};	$affectedResourceId = $wizvars->{RESOURCE_ID};
} else {	} else {
my $navmap = Apache::lonnavmaps::navmap->new(	my $navmap = Apache::lonnavmaps::navmap->new(Apache->request,
$ENV{"request.course.fn"}.".db",	$ENV{"request.course.fn"}.".db",
$ENV{"request.course.fn"}."_parms.db", 0, 0);	$ENV{"request.course.fn"}."_parms.db", 0, 0);
my $res = $navmap->getById($wizvars->{RESOURCE_ID});	my $res = $navmap->getById($wizvars->{RESOURCE_ID});