| … | |
… | |
| 614 | dbOptions => \%dbOptions, |
614 | dbOptions => \%dbOptions, |
| 615 | ); |
615 | ); |
| 616 | } |
616 | } |
| 617 | } |
617 | } |
| 618 | } else { |
618 | } else { |
|
|
619 | #log the action |
| 619 | writeLog($ce, "hosted_courses", join("\t", |
620 | writeLog($ce, "hosted_courses", join("\t", |
| 620 | "\tAdded", |
621 | "\tAdded", |
| 621 | $add_contact_institution, |
622 | $add_contact_institution, |
| 622 | $add_course_title, |
623 | $add_course_title, |
| 623 | $add_courseID, |
624 | $add_courseID, |
| 624 | $add_contact_person, |
625 | $add_contact_person, |
| 625 | $add_contact_email, |
626 | $add_contact_email, |
| 626 | )); |
627 | )); |
|
|
628 | # add contact to admin course as student? |
|
|
629 | # FIXME -- should we do this? |
| 627 | print CGI::div({class=>"ResultsWithoutError"}, |
630 | print CGI::div({class=>"ResultsWithoutError"}, |
| 628 | CGI::p("Successfully created the course $add_courseID"), |
631 | CGI::p("Successfully created the course $add_courseID"), |
| 629 | ); |
632 | ); |
| 630 | my $newCoursePath = $urlpath->newFromModule("WeBWorK::ContentGenerator::ProblemSets", |
633 | my $newCoursePath = $urlpath->newFromModule("WeBWorK::ContentGenerator::ProblemSets", |
| 631 | courseID => $add_courseID); |
634 | courseID => $add_courseID); |