--- 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; }