| … | |
… | |
| 352 | =end WSDL |
352 | =end WSDL |
| 353 | =cut |
353 | =cut |
| 354 | sub put_permission { |
354 | sub put_permission { |
| 355 | my ($self,$authenKey,$courseName,$record) = @_; |
355 | my ($self,$authenKey,$courseName,$record) = @_; |
| 356 | my $soapEnv = new WebworkSOAP($authenKey,$courseName); |
356 | my $soapEnv = new WebworkSOAP($authenKey,$courseName); |
| 357 | return SOAP::Data->type( 'string', $soapEnv->{db}->putPermissionLevel($record) ); |
357 | my $newPermissionLevel = $soapEnv->{db}->newPermissionLevel; |
|
|
358 | %$newPermissionLevel = %$record; |
|
|
359 | return SOAP::Data->type( 'string', |
|
|
360 | $soapEnv->{db}->putPermissionLevel($newPermissionLevel) ); |
| 358 | } |
361 | } |
| 359 | |
362 | |
| 360 | =pod |
363 | =pod |
| 361 | =begin WSDL |
364 | =begin WSDL |
| 362 | _IN authenKey $string |
365 | _IN authenKey $string |