[LON-CAPA-cvs] cvs: loncom /interface lonhelper.pm

[albertel]

albertel		Fri Feb 27 14:51:46 2004 EDT

  Modified files:              
    /loncom/interface	lonhelper.pm 
  Log:
  - BUG#2575, course init helper now returns user to a more normal location
  - DOCS if it is a new course, Overview PARM if the course is cloned,
  and NAV maps if the course is given a specifed top-level map.
  
  
  
  
Index: loncom/interface/lonhelper.pm
diff -u loncom/interface/lonhelper.pm:1.63 loncom/interface/lonhelper.pm:1.64
--- loncom/interface/lonhelper.pm:1.63	Mon Dec  8 14:24:42 2003
+++ loncom/interface/lonhelper.pm	Fri Feb 27 14:51:46 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.63 2003/12/08 19:24:42 matthew Exp $
+# $Id: lonhelper.pm,v 1.64 2004/02/27 19:51:46 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2999,6 +2999,11 @@
 
     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';
 	}