--- loncom/homework/lonsimpleproblemedit.pm	2004/11/30 23:28:57	1.12
+++ loncom/homework/lonsimpleproblemedit.pm	2004/12/14 18:24:17	1.13
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Simple Problem Parameter Setting "Editor"
 #
-# $Id: lonsimpleproblemedit.pm,v 1.12 2004/11/30 23:28:57 albertel Exp $
+# $Id: lonsimpleproblemedit.pm,v 1.13 2004/12/14 18:24:17 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -33,6 +33,7 @@ use Apache::Constants qw(:common :http);
 use Apache::loncommon;
 use Apache::lonnet;
 use Apache::lonlocal;
+use Apache::lonnavmaps;
 
 my %qparms;
 my $prefix;
@@ -127,6 +128,18 @@ sub foil {
 ENDFOIL
 }
 
+sub get_parent_uri {
+    my ($cur_symb)=@_;
+    my $navmap = Apache::lonnavmaps::navmap->new();
+    my $it = $navmap->getIterator(undef, undef, undef, 1);
+    while ( my $res=$it->next()) {
+	if (ref($res) &&  $res->symb() eq  $cur_symb) { last; }
+    }
+    my ($src,$symb,$anchor)=&Apache::lonnavmaps::getLinkForResource($it->getStack());
+    if (defined($anchor)) { $anchor='#'.$anchor; }
+    return $src.'?symb='.&Apache::lonnet::escape($symb).$anchor;
+}
+
 sub handler {
     my $r = shift;
 
@@ -146,7 +159,7 @@ sub handler {
 # ----------------------------------------------------- Figure out where we are
     my $uri=$r->uri;
     $uri=~s/\/smpedit$//;
-    my $symb=&Apache::lonnet::symbread($uri);
+    my $symb=&Apache::lonnet::symbread();
 
 # ------------------------------------------------ Prefix for everything stored
     $prefix=$ENV{'request.course.id'}.'.'.$symb.'.0.';
@@ -198,7 +211,7 @@ ENDDOCUMENT
     if ($symb) {
 	$r->print('<h1>'.&Apache::lonnet::gettitle($symb).'</h1>');
 	$r->print('<table width="100%" bgcolor="#FFFFAA" border="2"><tr><td>'.
-                '<a href="'.$uri.'">'.&mt('Student View').'</a> - '.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.').
+                '<a href="'.&get_parent_uri($symb).'">'.&mt('Student View').'</a> - '.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.').
 		  &Apache::loncommon::help_open_topic('Caching').'</td></tr></table>');
 	$r->print('<table border="2" bgcolor="#FFFFFF" width="100%"><tr><td>'.
                   &rawrendering($symb).