--- loncom/interface/lonhelper.pm 2003/12/08 19:19:19 1.62
+++ loncom/interface/lonhelper.pm 2004/03/08 17:31:37 1.65
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# .helper XML handler to implement the LON-CAPA helper
#
-# $Id: lonhelper.pm,v 1.62 2003/12/08 19:19:19 matthew Exp $
+# $Id: lonhelper.pm,v 1.65 2004/03/08 17:31:37 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -230,7 +230,7 @@ my $paramHash;
# In the debugger, this means that breakpoints are ignored until you step into
# a function and get out of what must be a "faked up scope" in the Apache->
# mod_perl connection. In this code, it was manifesting itself in the existence
-# of two seperate file-scoped $helper variables, one set to the value of the
+# of two separate file-scoped $helper variables, one set to the value of the
# helper in the helper constructor, and one referenced by the handler on the
# "$helper->process()" line. Using the debugger, one could actually
# see the two different $helper variables, as hashes at completely
@@ -2999,6 +2999,11 @@ sub render {
if ($self->{'restartCourse'}) {
my $targetURL = '/adm/menu';
+ if ($ENV{'course.'.$ENV{'request.course.id'}.'.url'}=~/^uploaded/) {
+ $targetURL = '/adm/coursedocs';
+ } else {
+ $targetURL = '/adm/navmaps';
+ }
if ($ENV{'course.'.$ENV{'request.course.id'}.'.clonedfrom'}) {
$targetURL = '/adm/parmset?overview=1';
}
@@ -3011,7 +3016,7 @@ sub render {
"\n" .
"\n\n" .
+ &mt('Finish Course Initialization') . "' />\n" .
"";
}