| … | |
… | |
| 1248 | my $viewHeaderLink = $self->systemLink($viewHeaderPage); |
1248 | my $viewHeaderLink = $self->systemLink($viewHeaderPage); |
| 1249 | |
1249 | |
| 1250 | print CGI::Tr({}, CGI::td({}, [ |
1250 | print CGI::Tr({}, CGI::td({}, [ |
| 1251 | CGI::start_table({border => 0, cellpadding => 0}) . |
1251 | CGI::start_table({border => 0, cellpadding => 0}) . |
| 1252 | CGI::Tr({}, CGI::td({}, $properties{$header}->{name})) . |
1252 | CGI::Tr({}, CGI::td({}, $properties{$header}->{name})) . |
| 1253 | CGI::Tr({}, CGI::td({}, CGI::a({href => $editHeaderLink}, "Edit it"))) . |
1253 | CGI::Tr({}, CGI::td({}, CGI::a({href => $editHeaderLink, target=>"WW_Editor"}, "Edit it"))) . |
| 1254 | CGI::Tr({}, CGI::td({}, CGI::a({href => $viewHeaderLink}, "View it"))) . |
1254 | CGI::Tr({}, CGI::td({}, CGI::a({href => $viewHeaderLink, target=>"WW_View"}, "View it"))) . |
| 1255 | # CGI::Tr({}, CGI::td({}, CGI::checkbox({name => "defaultHeader", value => $header, label => "Use Default"}))) . |
1255 | # CGI::Tr({}, CGI::td({}, CGI::checkbox({name => "defaultHeader", value => $header, label => "Use Default"}))) . |
| 1256 | CGI::end_table(), |
1256 | CGI::end_table(), |
| 1257 | # "", |
1257 | # "", |
| 1258 | # CGI::input({ name => "set.$setID.$header", value => $setRecord->{$header}, size => 50}) . |
1258 | # CGI::input({ name => "set.$setID.$header", value => $setRecord->{$header}, size => 50}) . |
| 1259 | # join ("\n", $self->FieldHTML($userToShow, $setID, $problemID, "source_file")) . |
1259 | # join ("\n", $self->FieldHTML($userToShow, $setID, $problemID, "source_file")) . |
| … | |
… | |
| 1365 | } |
1365 | } |
| 1366 | |
1366 | |
| 1367 | print CGI::Tr({}, CGI::td({}, [ |
1367 | print CGI::Tr({}, CGI::td({}, [ |
| 1368 | CGI::start_table({border => 0, cellpadding => 1}) . |
1368 | CGI::start_table({border => 0, cellpadding => 1}) . |
| 1369 | CGI::Tr({}, CGI::td({}, problem_number_popup($problemID, $maxProblemNumber))) . |
1369 | CGI::Tr({}, CGI::td({}, problem_number_popup($problemID, $maxProblemNumber))) . |
| 1370 | CGI::Tr({}, CGI::td({}, CGI::a({href => $editProblemLink}, "Edit it"))) . |
1370 | CGI::Tr({}, CGI::td({}, CGI::a({href => $editProblemLink, target=>"WW_Editor"}, "Edit it"))) . |
| 1371 | CGI::Tr({}, CGI::td({}, CGI::a({href => $viewProblemLink}, "Try it" . ($forOneUser ? " (as $editForUser[0])" : "")))) . |
1371 | CGI::Tr({}, CGI::td({}, CGI::a({href => $viewProblemLink, target=>"WW_View"}, "Try it" . ($forOneUser ? " (as $editForUser[0])" : "")))) . |
| 1372 | ($forUsers ? "" : CGI::Tr({}, CGI::td({}, CGI::checkbox({name => "deleteProblem", value => $problemID, label => "Delete it?"})))) . |
1372 | ($forUsers ? "" : CGI::Tr({}, CGI::td({}, CGI::checkbox({name => "deleteProblem", value => $problemID, label => "Delete it?"})))) . |
| 1373 | # CGI::Tr({}, CGI::td({}, "Delete it?" . CGI::input({type => "checkbox", name => "deleteProblem", value => $problemID}))) . |
1373 | # CGI::Tr({}, CGI::td({}, "Delete it?" . CGI::input({type => "checkbox", name => "deleteProblem", value => $problemID}))) . |
| 1374 | ($forOneUser ? "" : CGI::Tr({}, CGI::td({}, CGI::checkbox({name => "markCorrect", value => $problemID, label => "Mark Correct?"})))) . |
1374 | ($forOneUser ? "" : CGI::Tr({}, CGI::td({}, CGI::checkbox({name => "markCorrect", value => $problemID, label => "Mark Correct?"})))) . |
| 1375 | CGI::end_table(), |
1375 | CGI::end_table(), |
| 1376 | $self->FieldTable($userToShow, $setID, $problemID, $GlobalProblems{$problemID}, $UserProblems{$problemID}), |
1376 | $self->FieldTable($userToShow, $setID, $problemID, $GlobalProblems{$problemID}, $UserProblems{$problemID}), |