--- loncom/homework/structuretags.pm 2001/01/11 16:11:16 1.30 +++ loncom/homework/structuretags.pm 2005/06/28 19:17:36 1.295 @@ -1,310 +1,1466 @@ -# The LearningOnline Network with CAPA # '."\n". + ''."\n"; + } + return $body_tag_start; +} -#intialize globals - $Apache::inputtags::part='0'; - @Apache::inputtags::responselist = (); - -#adeed vars to the scripting enviroment - my $expression='$external::part='.$Apache::inputtags::part.';'; - &Apache::run::run($expression,$safeeval); - my $status; - my $datemsg; - if ($target ne 'meta') { - ($status,$datemsg) = &Apache::lonhomework::check_date('0'); - push (@Apache::inputtags::status,$status); - my $expression='$external::datestatus="'.$status.'";'; - $expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.0.solved"}.'";'; - &Apache::run::run($expression,$safeeval); - if ( $status eq 'CLOSED' ) { - my $bodytext=&Apache::lonxml::get_all_text("/problem",$$parser[$#$parser]); - if ( $target eq "web" ) { - return "

Problem is not open to be viewed. The problem $datemsg

"; - } - } - } - if ($target eq 'web') { - my $args =''; - if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } - my $name = &Apache::run::run("{$args;".'return $name}',$safeeval); - if ($name eq '') { - $name=&Apache::lonnet::EXT('resource.title'); - if ($name eq 'con_lost') { $name = ''; } +sub page_start { + my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; + my %found; + foreach my $taginside (@$tagstack) { + foreach my $taglookedfor ('html','body','form') { + if ($taginside =~ /^$taglookedfor$/i) {$found{$taglookedfor} = 1;} + } + } + + my $result; + my $head_tag_start; + if (!defined($found{'html'})) { + $result=&Apache::londefdef::start_html($target,$token,$tagstack, + $parstack,$parser,$safeeval); + $head_tag_start=''.&Apache::lonmenu::registerurl(undef,$target). + &Apache::lonhtmlcommon::htmlareaheaders(). + &Apache::lonhtmlcommon::spellheader(). + &Apache::lonxml::fontsettings(); + } + my $body_tag_start; + if (!defined($found{'body'}) && $env{'request.state'} eq 'construct' + && $env{'environment.remote'} eq 'off') { + $body_tag_start=&Apache::loncommon::bodytag(); + $body_tag_start.=&Apache::lonxml::message_location(); + } elsif (!defined($found{'body'})) { + my $background=&Apache::lonxml::get_param('background',$parstack, + $safeeval); + my $bgcolor=&Apache::lonxml::get_param('bgcolor',$parstack, + $safeeval); + $body_tag_start=&body_tag_start($background,$bgcolor); + if ( ($target eq 'web' || $target eq 'webgrade') + && $env{'request.state'} ne 'construct') { + my ($symb,undef,undef,undef,$publicuser)= + &Apache::lonxml::whichuser(); + if ($symb eq '' && !$publicuser) { + my $help = &Apache::loncommon::help_open_topic("Ambiguous_Reference"); + $help=&mt("Browsing resource, all submissions are temporary.")."
"; + $body_tag_start.=$help; + } + } + $body_tag_start.=&Apache::lonxml::message_location(); + } + my $form_tag_start; + if (!defined($found{'form'})) { + $form_tag_start='
'; + } + return ($result,$head_tag_start,$body_tag_start,$form_tag_start); +} + +#use Time::HiRes(); +sub get_resource_name { + my ($parstack,$safeeval)=@_; + if (defined($Apache::lonhomework::name)) { + return $Apache::lonhomework::name; + } + my ($symb)=&Apache::lonxml::whichuser(); + my $name=&Apache::lonnet::gettitle($symb); + if ($name eq '') { + $name=&Apache::lonnet::EXT('resource.title'); + if ($name eq 'con_lost') { $name = ''; } + } + if ($name!~/\S+/) { + $name=$env{'request.uri'}; + $name=~s-.*/([^/]+)$-$1-; } $Apache::lonhomework::name=$name; - if ($status eq 'CAN_ANSWER') { - # create a page header and exit - return "$name\n\n"; - } elsif ($status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER' || $status eq 'CLOSED') { - return "$name\n\n"; + return $name; +} + +sub setup_rndseed { + my ($safeeval)=@_; + my $rndseed; + my ($symb)=&Apache::lonxml::whichuser(); + if ($env{'request.state'} eq "construct" || $symb eq '' || + $Apache::lonhomework::history{'resource.CODE'}) { + $rndseed=$env{'form.rndseed'}; + if (!$rndseed) { + $rndseed=$Apache::lonhomework::history{'rndseed'}; + if (!$rndseed) { + $rndseed=time; + } + $env{'form.rndseed'}=$rndseed; + } + if ($env{'form.resetdata'} eq &mt('New Problem Variation') || + $env{'form.newrandomization'} eq &mt('New Randomization')) { + srand(time); + $rndseed=int(rand(2100000000)); + $env{'form.rndseed'}=$rndseed; + delete($env{'form.resetdata'}); + delete($env{'form.newrandomization'}); + } + if (defined($rndseed) && $rndseed ne int($rndseed)) { + $rndseed=join(',',&Math::Random::random_seed_from_phrase($rndseed)); + } + if ($Apache::lonhomework::history{'resource.CODE'}) { + $rndseed=&Apache::lonnet::rndseed(); + } + if ($safeeval) { + &Apache::lonxml::debug("Setting rndseed to $rndseed"); + &Apache::run::run('$external::randomseed="'.$rndseed.'";',$safeeval); + } + } + return $rndseed; +} + +sub remember_problem_state { + return ' + + + '; +} + +sub problem_edit_header { + return ''. + &Apache::structuretags::remember_problem_state().' + + + +
+ +
'. + &Apache::loncommon::help_open_menu('','Problem Editing Help','Problem_Editor_XML_Index','',5,'Authoring',undef,undef,undef,'Problem Editing Help') + .'
'. + '
'; +} + +sub problem_edit_footer { + return '

+ '. + &Apache::lonhtmlcommon::htmlareaselectactive(@Apache::lonxml::htmlareafields). + "\n
\n".&Apache::loncommon::endbodytag()."\n"; +} + +sub option { + my ($value,$name) = @_; + my $result ="