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

[bowersj2]

bowersj2		Fri Sep  5 12:15:54 2003 EDT

  Modified files:              
    /loncom/interface	lonhelper.pm 
  Log:
  Send the user to the parmset overview screen when re-initing the course 
  if the course is cloned.
  
  
Index: loncom/interface/lonhelper.pm
diff -u loncom/interface/lonhelper.pm:1.44 loncom/interface/lonhelper.pm:1.45
--- loncom/interface/lonhelper.pm:1.44	Tue Sep  2 16:58:31 2003
+++ loncom/interface/lonhelper.pm	Fri Sep  5 12:15:54 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.44 2003/09/02 20:58:31 bowersj2 Exp $
+# $Id: lonhelper.pm,v 1.45 2003/09/05 16:15:54 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2867,10 +2867,14 @@
     }
 
     if ($self->{'restartCourse'}) {
+	my $targetURL = '/adm/menu';
+	if ($ENV{'course.'.$ENV{'request.course.id'}.'.clonedfrom'}) {
+	    $targetURL = '/adm/parmset?overview=1';
+	}
         $result .= "<center>\n" .
             "<form action='/adm/roles' method='post' target='loncapaclient'>\n" .
             "<input type='button' onclick='history.go(-1)' value='&lt;- Previous' />" .
-            "<input type='hidden' name='orgurl' value='/adm/menu' />" .
+            "<input type='hidden' name='orgurl' value='$targetURL' />" .
             "<input type='hidden' name='selectrole' value='1' />\n" .
             "<input type='hidden' name='" . $ENV{'request.role'} . 
             "' value='1' />\n<input type='submit' value='Finish Course Initialization' />\n" .