| … | |
… | |
| 63 | # a better solution at this point would be to take set and problem, convert them to global_user type |
63 | # a better solution at this point would be to take set and problem, convert them to global_user type |
| 64 | # so that they have the right methods. |
64 | # so that they have the right methods. |
| 65 | # Stuff the local copy of $set and $problem with default data where it won't have been defined |
65 | # Stuff the local copy of $set and $problem with default data where it won't have been defined |
| 66 | # Make sure that nothing bad is stored back in the database. |
66 | # Make sure that nothing bad is stored back in the database. |
| 67 | # It would be nice to store lastAnswer somewhere -- perhaps that could be done as a special case. |
67 | # It would be nice to store lastAnswer somewhere -- perhaps that could be done as a special case. |
|
|
68 | |
| 68 | |
69 | |
| 69 | # This supplies a psvn if $set doesn't have it. Unfortunately the problem is called on to provide |
70 | # This supplies a psvn if $set doesn't have it. Unfortunately the problem is called on to provide |
| 70 | # data in many places and it might not even have methods defined. |
71 | # data in many places and it might not even have methods defined. |
| 71 | |
72 | |
| 72 | # global sets will not have a defined psvn |
73 | # global sets will not have a defined psvn |
| … | |
… | |
| 565 | CGI::endform(),"\n"; |
566 | CGI::endform(),"\n"; |
| 566 | |
567 | |
| 567 | # FIXME print editor link |
568 | # FIXME print editor link |
| 568 | # print editor link if the user is an instructor AND the file is not in temporary editing mode |
569 | # print editor link if the user is an instructor AND the file is not in temporary editing mode |
| 569 | if ($self->{permissionLevel}>=10 and ( (not defined($self->{edit_mode})) or $self->{edit_mode} eq 'savedFile') ) { |
570 | if ($self->{permissionLevel}>=10 and ( (not defined($self->{edit_mode})) or $self->{edit_mode} eq 'savedFile') ) { |
| 570 | print CGI::a({-href=>$ce->{webworkURLs}->{root}."/$courseName/instructor/pgProblemEditor/".$set->set_id. |
571 | print CGI::a({-href=>"/webwork/$courseName/instructor/pgProblemEditor/".$set->set_id. |
| 571 | '/'.$problem->problem_id.'?'.$self->url_authen_args},'Edit this problem'); |
572 | '/'.$problem->problem_id.'?'.$self->url_authen_args},'Edit this problem'); |
| 572 | } |
573 | } |
| 573 | |
574 | |
| 574 | print CGI::end_div(); |
575 | print CGI::end_div(); |
| 575 | |
576 | |
Parent Directory
| 
Revision Log
| 
Patch