| 1 | ################################################################################ |
1 | ################################################################################ |
| 2 | # WeBWorK Online Homework Delivery System |
2 | # WeBWorK Online Homework Delivery System |
| 3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
| 4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/ProblemSets.pm,v 1.34 2003/12/09 01:12:31 sh002i Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/ProblemSets.pm,v 1.35 2003/12/12 02:24:29 gage Exp $ |
| 5 | # |
5 | # |
| 6 | # This program is free software; you can redistribute it and/or modify it under |
6 | # This program is free software; you can redistribute it and/or modify it under |
| 7 | # the terms of either: (a) the GNU General Public License as published by the |
7 | # the terms of either: (a) the GNU General Public License as published by the |
| 8 | # Free Software Foundation; either version 2, or (at your option) any later |
8 | # Free Software Foundation; either version 2, or (at your option) any later |
| 9 | # version, or (b) the "Artistic License" which comes with this package. |
9 | # version, or (b) the "Artistic License" which comes with this package. |
| … | |
… | |
| 39 | $courseName => "", |
39 | $courseName => "", |
| 40 | ); |
40 | ); |
| 41 | } |
41 | } |
| 42 | |
42 | |
| 43 | sub title { |
43 | sub title { |
| 44 | my $self = shift; |
44 | my $self = shift; |
| 45 | return $self->{ce}->{courseName}; |
45 | my $r = $self ->{r}; |
|
|
46 | my $db = $self ->{db}; |
|
|
47 | my $user = $r -> param("user"); |
|
|
48 | my $courseName = $self ->{ce} -> {courseName}; |
|
|
49 | |
|
|
50 | return "WeBWorK welcomes user $user to $courseName" ; |
| 46 | } |
51 | } |
| 47 | |
52 | |
| 48 | sub body { |
53 | sub body { |
| 49 | my $self = shift; |
54 | my $self = shift; |
| 50 | my $r = $self->{r}; |
55 | my $r = $self->{r}; |
Parent Directory
| 
Revision Log
| 
Patch