version 1.18, 2003/03/20 18:03:14
|
version 1.20, 2003/03/23 07:22:58
|
Line 19 All classes are in the Apache::lonwizard
|
Line 19 All classes are in the Apache::lonwizard
|
|
|
=cut |
=cut |
|
|
# To prevent runaway file counts, this file has lonwizard, |
|
# lonwizstate, and other wizard classes. |
|
use strict; |
use strict; |
|
|
use HTML::Entities; |
use HTML::Entities; |
Line 945 sub render {
|
Line 943 sub render {
|
my $date; |
my $date; |
|
|
# Default date: Now |
# Default date: Now |
$date = localtime($wizvars->{$var}); |
$date = localtime(); |
|
$date->min = 0; |
|
|
if (defined $self->{ERROR_MSG}) { |
if (defined $self->{ERROR_MSG}) { |
$result .= '<font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />'; |
$result .= '<font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />'; |
Line 1144 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 1154 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}); |