--- loncom/homework/structuretags.pm 2002/11/07 16:10:47 1.133
+++ loncom/homework/structuretags.pm 2002/11/10 15:39:37 1.134
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: structuretags.pm,v 1.133 2002/11/07 16:10:47 sakharuk Exp $
+# $Id: structuretags.pm,v 1.134 2002/11/10 15:39:37 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -101,6 +101,14 @@ sub page_start {
}
}
$body_tag_start.='>';
+ if ($target eq 'web' && $ENV{'request.state'} ne 'construct') {
+ my ($symb)=&Apache::lonxml::whichuser();
+ if ($symb eq '') {
+ my $help = &Apache::loncommon::help_open_topic("Ambiguous_Reference");
+ $help="Browsing or ambiguous reference, submissions ignored $help
";
+ $body_tag_start.=$help;
+ }
+ }
}
my $form_tag_start;
if (!defined($found{'form'})) {
@@ -657,6 +665,19 @@ sub start_part {
}
}
}
+ } elsif ($target eq 'edit') {
+ $result.=&Apache::edit::tag_start($target,$token);
+ $result.=&Apache::edit::text_arg('Part ID:','id',$token).
+ &Apache::loncommon::help_open_topic("Part_Tag_Edit_Help").
+ &Apache::edit::end_row().&Apache::edit::start_spanning_row();
+
+ } elsif ($target eq 'modified') {
+ my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,
+ 'id');
+ if ($constructtag) {
+ $result = &Apache::edit::rebuild_tag($token);
+ $result.=&Apache::edit::handle_insert();
+ }
}
return $result;
}