loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.164, 2003/04/03 21:58:09	version 1.166, 2003/04/21 20:59:02
Line 104 sub page_start {	Line 104 sub page_start {
}	}
$body_tag_start.='>'.&Apache::lonmenu::menubuttons(undef,$target,1);	$body_tag_start.='>'.&Apache::lonmenu::menubuttons(undef,$target,1);
if ($target eq 'web' && $ENV{'request.state'} ne 'construct') {	if ($target eq 'web' && $ENV{'request.state'} ne 'construct') {
my ($symb)=&Apache::lonxml::whichuser();	my ($symb,undef,undef,undef,$publicuser)=
if ($symb eq '') {	&Apache::lonxml::whichuser();
	if ($symb eq '' && !$publicuser) {
my $help = &Apache::loncommon::help_open_topic("Ambiguous_Reference");	my $help = &Apache::loncommon::help_open_topic("Ambiguous_Reference");
$help="Browsing resource, all submissions are temporary.<br />";	$help="Browsing resource, all submissions are temporary.<br />";
$body_tag_start.=$help;	$body_tag_start.=$help;
Line 270 sub start_problem {	Line 271 sub start_problem {
@Apache::structuretags::whileconds=();	@Apache::structuretags::whileconds=();
@Apache::structuretags::whilebody=();	@Apache::structuretags::whilebody=();
@Apache::structuretags::whileline=();	@Apache::structuretags::whileline=();
	$Apache::lonhomework::scantronmode=0;

	if (defined($ENV{'scantron.maxquest'})) {
	$Apache::lonhomework::scantronmode=1;
	}

if ($target ne 'analyze') {	if ($target ne 'analyze') {
&initialize_storage();	&initialize_storage();