|
version 1.277, 2004/12/11 18:10:49
|
version 1.280, 2005/02/25 04:56:05
|
|
Line 142 sub get_resource_name {
|
Line 142 sub get_resource_name {
|
| if (defined($Apache::lonhomework::name)) { |
if (defined($Apache::lonhomework::name)) { |
| return $Apache::lonhomework::name; |
return $Apache::lonhomework::name; |
| } |
} |
| my $name=&Apache::lonnet::gettitle(); |
my ($symb)=&Apache::lonxml::whichuser(); |
| |
my $name=&Apache::lonnet::gettitle($symb); |
| if ($name eq '') { |
if ($name eq '') { |
| $name=&Apache::lonnet::EXT('resource.title'); |
$name=&Apache::lonnet::EXT('resource.title'); |
| if ($name eq 'con_lost') { $name = ''; } |
if ($name eq 'con_lost') { $name = ''; } |
|
Line 216 sub problem_edit_footer {
|
Line 217 sub problem_edit_footer {
|
| return '</td></tr></table><br /><input type="submit" name="submit" value="'.&mt('Submit Changes and Edit').'" /> |
return '</td></tr></table><br /><input type="submit" name="submit" value="'.&mt('Submit Changes and Edit').'" /> |
| <input type="submit" name="submit" value="'.&mt('Submit Changes and View').'" />'. |
<input type="submit" name="submit" value="'.&mt('Submit Changes and View').'" />'. |
| &Apache::lonhtmlcommon::htmlareaselectactive(@Apache::lonxml::htmlareafields). |
&Apache::lonhtmlcommon::htmlareaselectactive(@Apache::lonxml::htmlareafields). |
| "\n</form>\n</body>\n</html>"; |
"\n</form>\n".&Apache::loncommon::endbodytag()."\n</html>"; |
| } |
} |
| |
|
| sub option { |
sub option { |
|
Line 665 sub end_problem {
|
Line 666 sub end_problem {
|
| $ENV{'form.answer_output_mode'} ne 'tex') { |
$ENV{'form.answer_output_mode'} ne 'tex') { |
| $result.="</form>"; |
$result.="</form>"; |
| $result.=&Apache::lonhtmlcommon::htmlareaselectactive(@Apache::lonxml::htmlareafields); |
$result.=&Apache::lonhtmlcommon::htmlareaselectactive(@Apache::lonxml::htmlareafields); |
| $result.="</body>\n"; |
$result.=&Apache::loncommon::endbodytag(); |
| } |
} |
| if ($target eq 'web') { |
if ($target eq 'web') { |
| $result.=&Apache::lonxml::xmlend(); |
$result.=&Apache::lonxml::xmlend(); |
|
Line 756 sub end_library {
|
Line 757 sub end_library {
|
| $result=&problem_edit_footer(); |
$result=&problem_edit_footer(); |
| } elsif ($target eq 'web' && $$tagstack[0] ne 'problem' && |
} elsif ($target eq 'web' && $$tagstack[0] ne 'problem' && |
| $ENV{'request.state'} eq "construct") { |
$ENV{'request.state'} eq "construct") { |
| $result.='</form></body>'.&Apache::lonxml::xmlend(); |
$result.='</form>'.&Apache::loncommon::endbodytag(). |
| |
&Apache::lonxml::xmlend(); |
| } |
} |
| if ($$tagstack[0] eq 'library') { &reset_problem_globals('library') }; |
if ($$tagstack[0] eq 'library') { &reset_problem_globals('library') }; |
| return $result; |
return $result; |
|
Line 1375 sub start_simpleeditbutton {
|
Line 1377 sub start_simpleeditbutton {
|
| (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) { |
(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) { |
| my $url=$ENV{'request.noversionuri'}; |
my $url=$ENV{'request.noversionuri'}; |
| $url=~s/\?.*$//; |
$url=~s/\?.*$//; |
| |
my ($symb) = &Apache::lonxml::whichuser(); |
| $result='<table width="100%" bgcolor="#FFFFAA" border="2"><tr><td>'. |
$result='<table width="100%" bgcolor="#FFFFAA" border="2"><tr><td>'. |
| '<a href="'.$url.'/smpedit">'.&mt('Edit').'</a> - '.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.'). |
'<a href="'.$url.'/smpedit?symb='.&Apache::lonnet::escape($symb).'">'.&mt('Edit').'</a> - '.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.'). |
| &Apache::loncommon::help_open_topic('Caching').'</td></tr></table><br />'; |
&Apache::loncommon::help_open_topic('Caching').'</td></tr></table><br />'; |
| } |
} |
| return $result; |
return $result; |
![[BACK]](/icons/back.gif){kind=icon}
Return to structuretags.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework