version 1.36, 2006/02/07 22:15:56
|
version 1.37, 2006/02/08 23:47:23
|
Line 866 your changes.</td>
|
Line 866 your changes.</td>
|
<table width=\"100%\" border=\"0\" cellpadding=\"2\" cellspacing=\"2\"> |
<table width=\"100%\" border=\"0\" cellpadding=\"2\" cellspacing=\"2\"> |
<tr> |
<tr> |
<td align=\"left\"><b>$$tasktitleref{$action}</b><br/> |
<td align=\"left\"><b>$$tasktitleref{$action}</b><br/> |
Currently: Student photo import: <i>$photosets[$enrollvar{showphotos}]</i> |
Currently: Student photo import: <i>$photosets[$enrollvar{showphoto}]</i> |
</td> |
</td> |
</tr> |
</tr> |
</table> |
</table> |
Line 876 your changes.</td>
|
Line 876 your changes.</td>
|
Automatic import of student photos from institutional data repository: |
Automatic import of student photos from institutional data repository: |
|
|
"); |
"); |
if ($enrollvar{showphotos}) { |
if ($enrollvar{showphoto}) { |
$r->print(" |
$r->print(" |
<input type=\"radio\" name=\"showphotos\" value=\"1\" checked=\"true\" /> Yes |
<input type=\"radio\" name=\"showphotos\" value=\"1\" checked=\"true\" /> Yes |
<input type=\"radio\" name=\"showphotos\" value=\"0\" /> No |
<input type=\"radio\" name=\"showphotos\" value=\"0\" /> No |
Line 1021 Note: Any students previously added manu
|
Line 1021 Note: Any students previously added manu
|
<td align=\"left\"><b>$$tasktitleref{$action}</b> |
<td align=\"left\"><b>$$tasktitleref{$action}</b> |
</td> |
</td> |
</tr><tr><td>"); |
</tr><tr><td>"); |
if ($enrollvar{'showphotos'}) { |
if ($enrollvar{'showphoto'}) { |
my ($update,$commentary) = &Apache::lonnet::auto_photochoice($crs, |
my ($update,$commentary) = &Apache::lonnet::auto_photochoice($crs, |
$dom); |
$dom); |
$r->print('<br />'.$commentary.'<br /><br /> |
$r->print('<br />'.$commentary.'<br /><br /> |
Line 2114 sub photo_permission {
|
Line 2114 sub photo_permission {
|
my %settings = &Apache::lonnet::get('environment', |
my %settings = &Apache::lonnet::get('environment', |
['internal.courseowner', |
['internal.courseowner', |
'internal.photopermission', |
'internal.photopermission', |
'internal.showphotos'], |
'internal.showphoto'], |
$dom,$crs); |
$dom,$crs); |
my ($showphotos,$response); |
my ($showphotos,$response); |
if (exists($env{'form.cancel_agreement'})) { |
if (exists($env{'form.cancel_agreement'})) { |
Line 2248 sub print_photos_response {
|
Line 2248 sub print_photos_response {
|
} |
} |
} |
} |
} |
} |
my %settings = &Apache::lonnet::get('environment',['internal.showphotos'], |
my %settings = &Apache::lonnet::get('environment',['internal.showphoto'], |
$dom,$crs); |
$dom,$crs); |
my $currphotos = $settings{'internal.showphotos'}; |
my $currphotos = $settings{'internal.showphoto'}; |
my $response = ""; |
my $response = ""; |
if (defined($photopermission)) { |
if (defined($photopermission)) { |
if ($photopermission eq 'yes') { |
if ($photopermission eq 'yes') { |
Line 2260 sub print_photos_response {
|
Line 2260 sub print_photos_response {
|
$showphotos = 0; |
$showphotos = 0; |
} |
} |
} |
} |
my %cenv = ('internal.showphotos' => $showphotos); |
my %cenv = ('internal.showphoto' => $showphotos); |
my $reply = &Apache::lonnet::put('environment',\%cenv,$dom,$crs); |
my $reply = &Apache::lonnet::put('environment',\%cenv,$dom,$crs); |
if ($reply !~ /^ok$/) { |
if ($reply !~ /^ok$/) { |
$response .= "There was a problem processing your requested change. The student photo retrieval setting for this course has been left unchanged.<br/>"; |
$response .= "There was a problem processing your requested change. The student photo retrieval setting for this course has been left unchanged.<br/>"; |
Line 2392 sub print_update_result () {
|
Line 2392 sub print_update_result () {
|
my $logmsg = ''; |
my $logmsg = ''; |
my $newusermsg = ''; |
my $newusermsg = ''; |
my %phototypes = (); |
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 $coursecode = $settings{'internal.coursecode'}; |
my $authtype = $settings{'internal.authtype'}; |
my $authtype = $settings{'internal.authtype'}; |
my $autharg = $settings{'internal.autharg'}; |
my $autharg = $settings{'internal.autharg'}; |
my $showphotos = $settings{'internal.showphotos'}; |
my $showphotos = $settings{'internal.showphoto'}; |
my ($startaccess,$endaccess) = &get_dates_from_form(); |
my ($startaccess,$endaccess) = &get_dates_from_form(); |
if ( exists($env{'form.updateadds'}) ) { |
if ( exists($env{'form.updateadds'}) ) { |
$updateadds = $env{'form.updateadds'}; |
$updateadds = $env{'form.updateadds'}; |