loncom/interface/lonpopulate.pm - diff

Return to lonpopulate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.48, 2006/08/10 22:05:18	version 1.49, 2007/03/08 01:58:45
Line 944 your changes.</td>	Line 944 your changes.</td>
');	');
my ($result,$perm_reqd)=&Apache::lonnet::auto_photo_permission($crs,$dom);	my ($result,$perm_reqd)=&Apache::lonnet::auto_photo_permission($crs,$dom);
my $can_enable = 1;	my $can_enable = 1;
my $institution = $Apache::lonnet::domaindescription{$dom};	my $institution = &Apache::lonnet::domain($dom,'description');
if ($result eq 'ok') {	if ($result eq 'ok') {
if ($perm_reqd eq 'yes') {	if ($perm_reqd eq 'yes') {
if (!($enrollvar{'photopermission'} eq 'yes')) {	if (!($enrollvar{'photopermission'} eq 'yes')) {
Line 2346 sub photo_permission {	Line 2346 sub photo_permission {
sub print_photo_agreement {	sub print_photo_agreement {
my ($r,$realm,$dom,$crs,$action,$tasktitleref,$conditions,$courseowner)=@_;	my ($r,$realm,$dom,$crs,$action,$tasktitleref,$conditions,$courseowner)=@_;
my $response;	my $response;
my $institution = $Apache::lonnet::domaindescription{$dom};	my $institution = &Apache::lonnet::domain($dom,'description');
if (&user_is_courseowner($courseowner)) {	if (&user_is_courseowner($courseowner)) {
$response = '	$response = '
<script type="text/javascript">	<script type="text/javascript">