--- loncom/homework/lonsimpleproblemedit.pm	2004/11/30 22:57:16	1.11
+++ loncom/homework/lonsimpleproblemedit.pm	2005/03/17 13:56:32	1.14
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Simple Problem Parameter Setting "Editor"
 #
-# $Id: lonsimpleproblemedit.pm,v 1.11 2004/11/30 22:57:16 albertel Exp $
+# $Id: lonsimpleproblemedit.pm,v 1.14 2005/03/17 13:56:32 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;
@@ -52,6 +53,7 @@ sub evaloptionhash {
 sub rawrendering {
     my ($symb)=@_;
     my %data=('show_errors'=>'on',
+	      'simple_edit_button' => 'off',
 	      'devalidatecourseresdata'=>'on');
     return &Apache::loncommon::get_student_view($symb,time,time,
 						$ENV{'request.course.id'},
@@ -64,7 +66,7 @@ sub questiontext {
     return (<<ENDQUESTION);
 <table bgcolor="#dddd22" cellspacing="4" cellpadding="2">
 <tr><td><b>$qt</b><br />
-<textarea name="questiontext" cols="80" rows="8">$text</textarea>
+<textarea style="width:100%" name="questiontext" cols="80" rows="8">$text</textarea>
 </td></tr>
 </table>
 <br />
@@ -77,7 +79,7 @@ sub hint {
     return (<<ENDHINT);
 <table bgcolor="#accacc" cellspacing="4" cellpadding="2">
 <tr><td><b>$ht</b><br />
-<textarea name="hinttext" cols="80" rows="4">$text</textarea>
+<textarea style="width:100%" name="hinttext" cols="80" rows="4">$text</textarea>
 </td></tr>
 </table>
 <br />
@@ -119,13 +121,25 @@ sub foil {
 <tr><td colspan="2"><b>$lt{'foil'}</b></td></tr>
 <tr><td>$lt{'value'}: $selectvalue</td><td>$lt{'pos'}: $selectposition</td></tr>
 <tr><td colspan="2">$lt{'text'}:<br />
-<textarea name="text$number" cols="80" rows="4">$text</textarea>
+<textarea style="width:100%" name="text$number" cols="80" rows="4">$text</textarea>
 </td></tr>
 </table>
 <br />
 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;
 
@@ -145,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.';
@@ -196,6 +210,9 @@ ENDDOCUMENT
     $r->print(&Apache::loncommon::bodytag('Simple Problem Editor'));
     if ($symb) {
 	$r->print('<h1>'.&Apache::lonnet::gettitle($symb).'</h1>');
+	$r->print('<table width="100%" bgcolor="#FFFFAA" border="2"><tr><td>'.
+                '<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).
                   '</td></tr></table><br />');
@@ -212,7 +229,7 @@ ENDDOCUMENT
         $r->print('<b>'.&mt('Question Type').
 		  ': '.&Apache::loncommon::select_form
 	                               ($qtype,'questiontype',%questiontypes).
-  '</b><br /><input type="submit" value="'.&mt('Store Changes').
+  '</b><br /><input type="submit" value="'.&mt('Save and Edit').
   '" /><p>&nbsp;</p>');
 # Question Text
         $r->print(&questiontext());
@@ -284,7 +301,7 @@ ENDDOCUMENT
 	}
 # Store Button
 	$r->print(
-  '<input type="submit" value="'.&mt('Store Changes').'" /></form>');
+  '<input type="submit" value="'.&mt('Save and Edit').'" /></form>');
     } else {
 	$r->print(&mt('Could not identify problem.'));
     }