|
version 1.436, 2008/11/28 14:37:01
|
version 1.440, 2009/03/18 13:46:26
|
|
Line 423 sub problem_web_to_edit_header {
|
Line 423 sub problem_web_to_edit_header {
|
| &mt(' Show All Instances') |
&mt(' Show All Instances') |
| : &mt(' Show All Foils'); |
: &mt(' Show All Foils'); |
| |
|
| my $show_all= '<span class="LC_nobreak"><label><input type="checkbox" name="showallfoils" '; |
my $show_all= '<span class="LC_nobreak"><label><input type="checkbox" name="showallfoils"'; |
| if (defined($env{'form.showallfoils'})) { $show_all.='checked="checked"'; } |
if (defined($env{'form.showallfoils'})) { $show_all.=' checked="checked"'; } |
| $show_all.= ' />'.$show_all_foils_text.'</label></span>'; |
$show_all.= ' />'.$show_all_foils_text.'</label></span>'; |
| |
|
| |
|
|
Line 904 sub start_problem {
|
Line 904 sub start_problem {
|
| } |
} |
| if ($env{'request.role.adv'}) { |
if ($env{'request.role.adv'}) { |
| $form_tag_start.= |
$form_tag_start.= |
| ' <label><input type="checkbox" name="showallfoils" '; |
' <label><input type="checkbox" name="showallfoils"'; |
| if (defined($env{'form.showallfoils'})) { |
if (defined($env{'form.showallfoils'})) { |
| $form_tag_start.='checked="on"'; |
$form_tag_start.=' checked="checked"'; |
| } |
} |
| $form_tag_start.= ' />'.&mt(' Show All Foils'). |
$form_tag_start.= ' />'.&mt(' Show All Foils'). |
| '</label>'; |
'</label>'; |
|
Line 1599 sub start_randomlist {
|
Line 1599 sub start_randomlist {
|
| my $showarg=&Apache::lonxml::get_param('show',$parstack,$safeeval); |
my $showarg=&Apache::lonxml::get_param('show',$parstack,$safeeval); |
| $showarg--; |
$showarg--; |
| if ( ($showarg >= 0) && ($showarg < $show) ) { $show = $showarg; } |
if ( ($showarg >= 0) && ($showarg < $show) ) { $show = $showarg; } |
| |
if (($target eq 'analyze') && ($env{'form.check_parts_withrandomlist'})) { |
| |
my @currlist; |
| |
my $part = $Apache::inputtags::part; |
| |
if ($part ne '') { |
| |
if (ref($Apache::lonhomework::analyze{'parts_withrandomlist'}) eq 'ARRAY') { |
| |
my @currlist = @{$Apache::lonhomework::analyze{'parts_withrandomlist'}}; |
| |
if (!(grep(/^\Q$part\E$/,@currlist))) { |
| |
push(@{$Apache::lonhomework::analyze{'parts_withrandomlist'}},$part); |
| |
} |
| |
} else { |
| |
push(@{$Apache::lonhomework::analyze{'parts_withrandomlist'}},$part); |
| |
} |
| |
} |
| |
} |
| for(0 .. $show) { |
for(0 .. $show) { |
| $bodytext .= "$randomlist[ $idx_arr[$_] ]"; |
$bodytext .= "$randomlist[ $idx_arr[$_] ]"; |
| } |
} |
|
Line 1942 sub end_startouttext {
|
Line 1956 sub end_startouttext {
|
| if ($target eq 'edit') { |
if ($target eq 'edit') { |
| my $areaid = 'homework_edit_'.$Apache::lonxml::curdepth; |
my $areaid = 'homework_edit_'.$Apache::lonxml::curdepth; |
| $text=&Apache::lonxml::get_all_text("endouttext",$parser,$style); |
$text=&Apache::lonxml::get_all_text("endouttext",$parser,$style); |
| |
$result.=&Apache::edit::start_table($token)."<tr><td>".&mt('Text Block')."</td>" |
| $result.=&Apache::edit::start_table($token)."<tr><td>".&mt('Text Block')."</td> |
.'<td><span class="LC_nobreak">'.&mt('Delete?').' ' |
| <td>".&mt('Delete:'). |
.&Apache::edit::deletelist($target,$token) |
| &Apache::edit::deletelist($target,$token) |
.'</span></td>'; |
| ."</td>"; |
|
| unless ($env{'environment.wysiwygeditor'} eq 'on') { |
unless ($env{'environment.wysiwygeditor'} eq 'on') { |
| $result .= '<td align="left">' |
$result .= '<td align="left">' |
| .&Apache::lonhtmlcommon::dragmath_button($areaid,1) |
.&Apache::lonhtmlcommon::dragmath_button($areaid,1) |
![[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