--- loncom/interface/lonpopulate.pm 2006/02/07 22:15:56 1.36
+++ loncom/interface/lonpopulate.pm 2006/02/08 23:47:23 1.37
@@ -1,5 +1,5 @@
# automated enrollment configuration handler
-# $Id: lonpopulate.pm,v 1.36 2006/02/07 22:15:56 raeburn Exp $
+# $Id: lonpopulate.pm,v 1.37 2006/02/08 23:47:23 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -866,7 +866,7 @@ your changes.
");
- if ($enrollvar{'showphotos'}) {
+ if ($enrollvar{'showphoto'}) {
my ($update,$commentary) = &Apache::lonnet::auto_photochoice($crs,
$dom);
$r->print(' '.$commentary.'
@@ -2114,7 +2114,7 @@ sub photo_permission {
my %settings = &Apache::lonnet::get('environment',
['internal.courseowner',
'internal.photopermission',
- 'internal.showphotos'],
+ 'internal.showphoto'],
$dom,$crs);
my ($showphotos,$response);
if (exists($env{'form.cancel_agreement'})) {
@@ -2248,9 +2248,9 @@ sub print_photos_response {
}
}
}
- my %settings = &Apache::lonnet::get('environment',['internal.showphotos'],
+ my %settings = &Apache::lonnet::get('environment',['internal.showphoto'],
$dom,$crs);
- my $currphotos = $settings{'internal.showphotos'};
+ my $currphotos = $settings{'internal.showphoto'};
my $response = "";
if (defined($photopermission)) {
if ($photopermission eq 'yes') {
@@ -2260,7 +2260,7 @@ sub print_photos_response {
$showphotos = 0;
}
}
- my %cenv = ('internal.showphotos' => $showphotos);
+ my %cenv = ('internal.showphoto' => $showphotos);
my $reply = &Apache::lonnet::put('environment',\%cenv,$dom,$crs);
if ($reply !~ /^ok$/) {
$response .= "There was a problem processing your requested change. The student photo retrieval setting for this course has been left unchanged. ";
@@ -2392,11 +2392,11 @@ sub print_update_result () {
my $logmsg = '';
my $newusermsg = '';
my %phototypes = ();
- my %settings = &Apache::lonnet::get('environment',['internal.coursecode','internal.sectionnums','internal.crosslistings','internal.authtype','internal.autharg','internal.showphotos'],$dom,$crs);
+ my %settings = &Apache::lonnet::get('environment',['internal.coursecode','internal.sectionnums','internal.crosslistings','internal.authtype','internal.autharg','internal.showphoto'],$dom,$crs);
my $coursecode = $settings{'internal.coursecode'};
my $authtype = $settings{'internal.authtype'};
my $autharg = $settings{'internal.autharg'};
- my $showphotos = $settings{'internal.showphotos'};
+ my $showphotos = $settings{'internal.showphoto'};
my ($startaccess,$endaccess) = &get_dates_from_form();
if ( exists($env{'form.updateadds'}) ) {
$updateadds = $env{'form.updateadds'};
|