[system] / trunk / webwork2 / lib / WeBWorK / DB.pm Repository:
ViewVC logotype

Diff of /trunk/webwork2/lib/WeBWorK/DB.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 1226 Revision 1236
… …
241Returns a new, empty password object. 241Returns a new, empty password object.
242 242
243=cut 243=cut
244 244
245sub newPassword { 245sub newPassword {
246 my ($self) = @_; 246 my ($self, $prototype) = @_;
247 return $self->{password}->{record}->new; 247 return $self->{password}->{record}->new($prototype);
248} 248}
249 249
250=item listPasswords() 250=item listPasswords()
251 251
252Returns a list of user IDs representing the records in the password table. 252Returns a list of user IDs representing the records in the password table.
… …
368Returns a new, empty permission level object. 368Returns a new, empty permission level object.
369 369
370=cut 370=cut
371 371
372sub newPermissionLevel { 372sub newPermissionLevel {
373 my ($self) = @_; 373 my ($self, $prototype) = @_;
374 return $self->{permission}->{record}->new; 374 return $self->{permission}->{record}->new($prototype);
375} 375}
376 376
377=item listPermissionLevels() 377=item listPermissionLevels()
378 378
379Returns a list of user IDs representing the records in the permission table. 379Returns a list of user IDs representing the records in the permission table.
… …
491Returns a new, empty key object. 491Returns a new, empty key object.
492 492
493=cut 493=cut
494 494
495sub newKey { 495sub newKey {
496 my ($self) = @_; 496 my ($self, $prototype) = @_;
497 return $self->{key}->{record}->new; 497 return $self->{key}->{record}->new($prototype);
498} 498}
499 499
500=item listKeys() 500=item listKeys()
501 501
502Returns a list of user IDs representing the records in the key table. 502Returns a list of user IDs representing the records in the key table.
… …
613Returns a new, empty user object. 613Returns a new, empty user object.
614 614
615=cut 615=cut
616 616
617sub newUser { 617sub newUser {
618 my ($self) = @_; 618 my ($self, $prototype) = @_;
619 return $self->{user}->{record}->new; 619 return $self->{user}->{record}->new($prototype);
620} 620}
621 621
622=item listUsers() 622=item listUsers()
623 623
624Returns a list of user IDs representing the records in the user table. 624Returns a list of user IDs representing the records in the user table.
… …
730################################################################################ 730################################################################################
731# set functions 731# set functions
732################################################################################ 732################################################################################
733 733
734sub newGlobalSet { 734sub newGlobalSet {
735 my ($self) = @_; 735 my ($self, $prototype) = @_;
736 return $self->{set}->{record}->new; 736 return $self->{set}->{record}->new($prototype);
737} 737}
738 738
739sub listGlobalSets($) { 739sub listGlobalSets($) {
740 my ($self) = @_; 740 my ($self) = @_;
741 741
… …
807################################################################################ 807################################################################################
808# set_user functions 808# set_user functions
809################################################################################ 809################################################################################
810 810
811sub newUserSet { 811sub newUserSet {
812 my ($self) = @_; 812 my ($self, $prototype) = @_;
813 return $self->{set_user}->{record}->new; 813 return $self->{set_user}->{record}->new($prototype);
814} 814}
815 815
816sub listSetUsers($$) { 816sub listSetUsers($$) {
817 my ($self, $setID) = @_; 817 my ($self, $setID) = @_;
818 818
… …
907################################################################################ 907################################################################################
908# problem functions 908# problem functions
909################################################################################ 909################################################################################
910 910
911sub newGlobalProblem { 911sub newGlobalProblem {
912 my ($self) = @_; 912 my ($self, $prototype) = @_;
913 return $self->{problem}->{record}->new; 913 return $self->{problem}->{record}->new($prototype);
914} 914}
915 915
916sub listGlobalProblems($$) { 916sub listGlobalProblems($$) {
917 my ($self, $setID) = @_; 917 my ($self, $setID) = @_;
918 918
… …
991################################################################################ 991################################################################################
992# problem_user functions 992# problem_user functions
993################################################################################ 993################################################################################
994 994
995sub newUserProblem { 995sub newUserProblem {
996 my ($self) = @_; 996 my ($self, $prototype) = @_;
997 return $self->{problem_user}->{record}->new; 997 return $self->{problem_user}->{record}->new($prototype);
998} 998}
999 999
1000sub listProblemUsers($$$) { 1000sub listProblemUsers($$$) {
1001 my ($self, $setID, $problemID) = @_; 1001 my ($self, $setID, $problemID) = @_;
1002 1002
Legend:
Removed from v.1226  
changed lines
  Added in v.1236
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9