version 1.12, 2007/01/25 20:34:29
|
version 1.13, 2007/10/12 20:08:38
|
Line 75 sub handler {
|
Line 75 sub handler {
|
} |
} |
if ($env{'form.command'} eq 'codelist') { |
if ($env{'form.command'} eq 'codelist') { |
&code_list($r); |
&code_list($r); |
|
$r->print(&Apache::grades::show_grading_menu_form($env{'form.symb'}, |
|
$env{'form.url'})); |
} elsif ($env{'form.command'} eq 'showcodes') { |
} elsif ($env{'form.command'} eq 'showcodes') { |
&show_codes($r); |
&show_codes($r); |
} else { |
} else { |
Line 85 sub handler {
|
Line 87 sub handler {
|
} |
} |
|
|
sub code_list { |
sub code_list { |
my ($r,$secondview)=@_; |
my ($r,$context)=@_; |
if (!$secondview) { |
# $context = 0 Print page header and enclosing table |
|
# $context = 1 No page header, print enclosing table |
|
# $context = 2 No page header, no enclosing table |
|
my $table_head; |
|
my $enc_table_start; |
|
my $enc_table_close; |
|
|
|
if (!$context) { |
$r->print(&Apache::loncommon::start_page("View CODEs",undef, |
$r->print(&Apache::loncommon::start_page("View CODEs",undef, |
{'no_nav_bar' => 1})); |
{'no_nav_bar' => 1})); |
$r->print("<p>".&mt('Select a set of saved CODEs to view.')."</p>"); |
$table_head = ('<b>'.&mt('Select a set of saved CODEs to view.')."</b>"); |
} else { |
} elsif ($context eq 1) { |
$r->print("<p>".&mt('Select another set of saved CODEs to view.')."</p>"); |
$table_head = ('<b>'.&mt('Select another set of saved CODEs to view.')."</b>"); |
|
$enc_table_start = '<table width="100%"><tr><td bgcolor="#777777">'; |
|
$enc_table_close = '</tr></td></table>'; |
|
} elsif ($context eq 2) { |
|
$table_head = ('<b>'.&mt('Select a set of saved CODEs to view.')."</b>"); |
} |
} |
$r->print("<form method='POST' action='/adm/pickcode' name='pickcode'>"); |
$r->print("<form method='POST' action='/adm/pickcode' name='pickcode'>"); |
|
$r->print($enc_table_start); |
|
$r->print('<table width="100%">'); |
|
$r->print('<tr><td bgcolor="#e6ffff">'); |
|
$r->print($table_head); |
|
$r->print('</td></tr>'); |
|
$r->print('<tr><td bgcolor="#ffffe6">'); |
$r->print(&Apache::grades::scantron_CODElist()); |
$r->print(&Apache::grades::scantron_CODElist()); |
|
$r->print('</td></tr>'); |
$r->print("<input type='hidden' name='command' value='showcodes' />"); |
$r->print("<input type='hidden' name='command' value='showcodes' />"); |
$r->print("<input type='hidden' name='symb' value='".$env{'form.symb'}."' />"); |
$r->print("<input type='hidden' name='symb' value='".$env{'form.symb'}."' />"); |
$r->print("<input type='hidden' name='url' value='".$env{'form.url'}."' />"); |
$r->print("<input type='hidden' name='url' value='".$env{'form.url'}."' />"); |
|
$r->print('<tr><td bgcolor="#ffffe6">'); |
$r->print("<input type='submit' name='submit' value='".&mt("View")."' />"); |
$r->print("<input type='submit' name='submit' value='".&mt("View")."' />"); |
|
$r->print('</td></tr>'); |
|
$r->print('</table>'); |
|
$r->print($enc_table_close); # conditional |
$r->print("</form>"); |
$r->print("</form>"); |
$r->print(&Apache::grades::show_grading_menu_form($env{'form.symb'}, |
|
$env{'form.url'})); |
|
} |
} |
|
|
sub show_codes { |
sub show_codes { |
Line 116 sub show_codes {
|
Line 139 sub show_codes {
|
} |
} |
$r->print('</pre>'); |
$r->print('</pre>'); |
&code_list($r,1); |
&code_list($r,1); |
|
$r->print(&Apache::grades::show_grading_menu_form($env{'form.symb'}, |
|
$env{'form.url'})); |
} |
} |
|
|
sub picking_a_code { |
sub picking_a_code { |