From: Mike G. v. a. <we...@ma...> - 2005-12-14 00:19:47
|
Log Message: ----------- Removed a link for creating a blank problem that is not yet fully supported. Commented out cheerful green goodmessages announcing which subroutine handler of the PGProblemEditor was being executed. They seem to have fulfilled their role and are no longer needed. :-) -- Mike Modified Files: -------------- webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor: PGProblemEditor.pm ProblemSetDetail.pm Revision Data ------------- Index: PGProblemEditor.pm =================================================================== RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm,v retrieving revision 1.64 retrieving revision 1.65 diff -Llib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm -Llib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm -u -r1.64 -r1.65 --- lib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm +++ lib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm @@ -914,7 +914,7 @@ sub fresh_edit_handler { my ($self, $genericParams, $actionParams, $tableParams) = @_; - $self->addgoodmessage("fresh_edit_handler called"); + #$self->addgoodmessage("fresh_edit_handler called"); } sub view_form { my ($self, $onChange, %actionParams) = @_; @@ -1059,7 +1059,7 @@ sub add_problem_handler { my ($self, $genericParams, $actionParams, $tableParams) = @_; -# $self->addgoodmessage("add_problem_handler called"); + #$self->addgoodmessage("add_problem_handler called"); my $courseName = $self->{courseID}; my $setName = $self->{setID}; my $problemNumber = $self->{problemID}; @@ -1159,7 +1159,7 @@ sub save_handler { my ($self, $genericParams, $actionParams, $tableParams) = @_; - $self->addgoodmessage("save_handler called"); + #$self->addgoodmessage("save_handler called"); my $courseName = $self->{courseID}; my $setName = $self->{setID}; my $problemNumber = $self->{problemID}; @@ -1271,7 +1271,7 @@ sub save_as_handler { my ($self, $genericParams, $actionParams, $tableParams) = @_; - $self->addgoodmessage("save_as_handler called"); + #$self->addgoodmessage("save_as_handler called"); my $courseName = $self->{courseID}; my $setName = $self->{setID}; my $problemNumber = $self->{problemID}; @@ -1384,7 +1384,7 @@ } sub revert_handler { my ($self, $genericParams, $actionParams, $tableParams) = @_; - $self->addgoodmessage("revert_handler called"); + #$self->addgoodmessage("revert_handler called"); my $courseName = $self->{courseID}; my $setName = $self->{setID}; @@ -1423,7 +1423,7 @@ sub make_local_copy_handler { my ($self, $genericParams, $actionParams, $tableParams) = @_; - $self->addgoodmessage("make_local_copy_handler called"); + #$self->addgoodmessage("make_local_copy_handler called"); my $courseName = $self->{courseID}; my $setName = $self->{setID}; Index: ProblemSetDetail.pm =================================================================== RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/ProblemSetDetail.pm,v retrieving revision 1.28 retrieving revision 1.29 diff -Llib/WeBWorK/ContentGenerator/Instructor/ProblemSetDetail.pm -Llib/WeBWorK/ContentGenerator/Instructor/ProblemSetDetail.pm -u -r1.28 -r1.29 --- lib/WeBWorK/ContentGenerator/Instructor/ProblemSetDetail.pm +++ lib/WeBWorK/ContentGenerator/Instructor/ProblemSetDetail.pm @@ -1416,7 +1416,8 @@ my $editNewProblemPage = $urlpath->new(type => 'instructor_problem_editor_withset_withproblem', args => { courseID => $courseID, setID => $setID, problemID =>'new_problem' }); my $editNewProblemLink = $self->systemLink($editNewProblemPage, params => { make_local_copy => 1, file_type => 'blank_problem' }); - print CGI::p( CGI::a({href=>$editNewProblemLink},'Edit'). ' a new blank problem'); + # This next feature isn't fully supported and is causing problems. Remove for now. #FIXME + #print CGI::p( CGI::a({href=>$editNewProblemLink},'Edit'). ' a new blank problem'); print CGI::end_form(); |