| 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/Instructor/SendMail.pm,v 1.13 2003/12/12 02:24:30 gage Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SendMail.pm,v 1.14 2003/12/18 02:18:37 sh002i 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. |
| … | |
… | |
| 343 | } #end initialize |
343 | } #end initialize |
| 344 | |
344 | |
| 345 | |
345 | |
| 346 | sub title { |
346 | sub title { |
| 347 | my $self = shift; |
347 | my $self = shift; |
| 348 | return 'Send mail to ' .$self->{ce}->{courseName}; |
348 | return 'Mail Merge'; |
| 349 | } |
349 | } |
| 350 | |
350 | |
| 351 | sub path { |
351 | sub path { |
| 352 | my $self = shift; |
352 | my $self = shift; |
| 353 | my $args = $_[-1]; |
353 | my $args = $_[-1]; |
| 354 | |
354 | |
| 355 | my $ce = $self->{ce}; |
355 | my $ce = $self->{ce}; |
| 356 | my $root = $ce->{webworkURLs}->{root}; |
356 | my $root = $ce->{webworkURLs}->{root}; |
| 357 | my $courseName = $ce->{courseName}; |
357 | my $courseName = $ce->{courseName}; |
| 358 | return $self->pathMacro($args, |
358 | return $self->pathMacro($args, |
| 359 | "Home" => "$root", |
359 | "Home" => "$root", |
| 360 | $courseName => "$root/$courseName", |
360 | $courseName => "$root/$courseName", |
| 361 | 'instructor' => "$root/$courseName/instructor", |
361 | 'Instructor Tools' => "$root/$courseName/instructor", |
| 362 | "Send Mail to: $courseName" => '', |
362 | "Mail Merge" => '', # "$root/$courseName/instructor/send_mail", |
| 363 | ); |
363 | ); |
| 364 | } |
364 | } |
| 365 | |
365 | |
| 366 | sub body { |
366 | sub body { |
| 367 | my ($self, $setID) = @_; |
367 | my ($self, $setID) = @_; |
Parent Directory
| 
Revision Log
| 
Patch