| … | |
… | |
| 3 | use strict; |
3 | use strict; |
| 4 | |
4 | |
| 5 | use WeBWorK::Utils qw(pretty_print_rh); |
5 | use WeBWorK::Utils qw(pretty_print_rh); |
| 6 | use WeBWorK::Utils::CourseManagement qw(addCourse renameCourse deleteCourse listCourses archiveCourse listArchivedCourses unarchiveCourse); |
6 | use WeBWorK::Utils::CourseManagement qw(addCourse renameCourse deleteCourse listCourses archiveCourse listArchivedCourses unarchiveCourse); |
| 7 | use WeBWorK::DB; |
7 | use WeBWorK::DB; |
|
|
8 | use WeBWorK::DB::Utils qw(initializeUserProblem); |
| 8 | use WeBWorK::CourseEnvironment; |
9 | use WeBWorK::CourseEnvironment; |
| 9 | use WeBWorK::ContentGenerator::Instructor; |
10 | use WeBWorK::ContentGenerator::Instructor; |
| 10 | |
11 | |
| 11 | use WebworkSOAP::Classes::GlobalSet; |
12 | use WebworkSOAP::Classes::GlobalSet; |
| 12 | use WebworkSOAP::Classes::UserSet; |
13 | use WebworkSOAP::Classes::UserSet; |
| … | |
… | |
| 689 | |
690 | |
| 690 | =pod |
691 | =pod |
| 691 | =begin WSDL |
692 | =begin WSDL |
| 692 | _IN authenKey $string |
693 | _IN authenKey $string |
| 693 | _IN courseName $string |
694 | _IN courseName $string |
| 694 | _IN problemID $string |
695 | _IN setID $string |
| 695 | _RETURN @string of names objects. |
696 | _RETURN @string of names objects. |
| 696 | =end WSDL |
697 | =end WSDL |
| 697 | =cut |
698 | =cut |
| 698 | sub list_global_problems { |
699 | sub list_global_problems { |
| 699 | my ($self,$authenKey,$courseName,$problemID) = @_; |
700 | my ($self,$authenKey,$courseName,$setID) = @_; |
| 700 | my $soapEnv = new WebworkSOAP($authenKey,$courseName); |
701 | my $soapEnv = new WebworkSOAP($authenKey,$courseName); |
| 701 | my @tempArray = $soapEnv->{db}->listGlobalProblems($problemID); |
702 | my @tempArray = $soapEnv->{db}->listGlobalProblems($setID); |
| 702 | return \@tempArray; |
703 | return \@tempArray; |
| 703 | } |
704 | } |
| 704 | |
705 | |
| 705 | =pod |
706 | =pod |
| 706 | =begin WSDL |
707 | =begin WSDL |
Parent Directory
| 
Revision Log
| 
Patch