--- 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('
'.&Apache::lonnet::gettitle($symb).'
');
$r->print(''.
- ''.&mt('Student View').' - '.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.').
+ ''.&mt('Student View').' - '.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.').
&Apache::loncommon::help_open_topic('Caching').' |
');
$r->print('