|
version 1.96, 2002/10/16 19:22:31
|
version 1.98, 2002/10/21 20:31:06
|
|
Line 378 sub renderpage {
|
Line 378 sub renderpage {
|
| |
|
| my %mystyle; |
my %mystyle; |
| my $result = ''; |
my $result = ''; |
| &Apache::inputtags::initialize_inputtags; |
&Apache::inputtags::initialize_inputtags(); |
| &Apache::inputtags::initialize_outputtags; |
&Apache::outputtags::initialize_outputtags(); |
| &Apache::edit::initialize_edit; |
&Apache::edit::initialize_edit(); |
| if ($target eq 'analyze') { %Apache::lonhomework::anaylze=(); } |
if ($target eq 'analyze') { %Apache::lonhomework::anaylze=(); } |
| if ($target eq 'web') { |
if ($target eq 'web') { |
| my ($symb)=&Apache::lonxml::whichuser(); |
my ($symb)=&Apache::lonxml::whichuser(); |
|
Line 396 sub renderpage {
|
Line 396 sub renderpage {
|
| if ($target eq 'answer') { &showhash(%Apache::lonhomework::history); } |
if ($target eq 'answer') { &showhash(%Apache::lonhomework::history); } |
| if ($target eq 'web') {&Apache::lonhomework::showhashsubset(\%ENV,'^form');} |
if ($target eq 'web') {&Apache::lonhomework::showhashsubset(\%ENV,'^form');} |
| |
|
| my $default=&Apache::lonnet::getfile('/home/httpd/html/res/adm/includes/default_homework.lcpm'); |
|
| if ($default == -1) { |
|
| &Apache::lonxml::error("<b>Unable to find <i>default_homework.lcpm</i></b>"); |
|
| $default=''; |
|
| } |
|
| &Apache::lonxml::debug("Should be parsing now"); |
&Apache::lonxml::debug("Should be parsing now"); |
| $result = &Apache::lonxml::xmlparse($request, $target, $problem, |
$result = &Apache::lonxml::xmlparse($request, $target, $problem, |
| $default.&setup_vars($target),%mystyle); |
&setup_vars($target),%mystyle); |
| |
|
| #$request->print("Result follows:"); |
#$request->print("Result follows:"); |
| if ($target eq 'modified') { |
if ($target eq 'modified') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonhomework.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework