| … | |
… | |
| 1626 | } |
1626 | } |
| 1627 | print '</div>'; |
1627 | print '</div>'; |
| 1628 | |
1628 | |
| 1629 | print '<div id="size_slider"><p>||</p></div>'; |
1629 | print '<div id="size_slider"><p>||</p></div>'; |
| 1630 | |
1630 | |
| 1631 | print '<div id="setmaker_library_box" class="setmaker_library problemList">'; |
1631 | print '<div id="setmaker_library_box" class="setmaker_library">'; |
| 1632 | print CGI::hidden(-name=>'browse_which', -value=>$browse_which,-override=>1), |
1632 | print CGI::hidden(-name=>'browse_which', -value=>$browse_which,-override=>1), |
| 1633 | CGI::hidden(-name=>'problem_seed', -value=>$problem_seed, -override=>1); |
1633 | CGI::hidden(-name=>'problem_seed', -value=>$problem_seed, -override=>1); |
| 1634 | for ($j = 0 ; $j < scalar(@pg_files) ; $j++) { |
1634 | for ($j = 0 ; $j < scalar(@pg_files) ; $j++) { |
| 1635 | print CGI::hidden(-name=>"all_past_list$j", -value=>$pg_files[$j],-override=>1); |
1635 | print CGI::hidden(-name=>"all_past_list$j", -value=>$pg_files[$j],-override=>1); |
| 1636 | } |
1636 | } |
| 1637 | print CGI::hidden(-name=>'first_shown', -value=>$first_shown,-override=>1); |
1637 | print CGI::hidden(-name=>'first_shown', -value=>$first_shown,-override=>1); |
| 1638 | print CGI::hidden(-name=>'last_shown', -value=>$last_shown, -override=>1); |
1638 | print CGI::hidden(-name=>'last_shown', -value=>$last_shown, -override=>1); |
| 1639 | print '<div id="setmaker_library_problems">'; |
1639 | print '<div id="setmaker_library_problems" class="problemList">'; |
| 1640 | ########## Now print problems |
1640 | ########## Now print problems |
| 1641 | for ($jj=0; $jj<scalar(@pg_html); $jj++) { |
1641 | for ($jj=0; $jj<scalar(@pg_html); $jj++) { |
| 1642 | $pg_files[$jj] =~ s|^$ce->{courseDirs}->{templates}/?||; |
1642 | $pg_files[$jj] =~ s|^$ce->{courseDirs}->{templates}/?||; |
| 1643 | $self->make_data_row($pg_files[$jj+$first_shown], $pg_html[$jj], $jj+1, $self->{past_marks}->[$jj]); |
1643 | $self->make_data_row($pg_files[$jj+$first_shown], $pg_html[$jj], $jj+1, $self->{past_marks}->[$jj]); |
| 1644 | } |
1644 | } |