--- loncom/interface/lonpopulate.pm 2006/02/09 13:45:54 1.39 +++ loncom/interface/lonpopulate.pm 2006/03/15 22:11:04 1.41 @@ -1,5 +1,5 @@ # automated enrollment configuration handler -# $Id: lonpopulate.pm,v 1.39 2006/02/09 13:45:54 albertel Exp $ +# $Id: lonpopulate.pm,v 1.41 2006/03/15 22:11:04 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -38,22 +38,14 @@ use LONCAPA::Enrollment; ############################################################### sub header { - my $html=&Apache::lonxml::xmlbegin(); - my $bodytag=&Apache::loncommon::bodytag('Classlist Manager'); - return(< -LON-CAPA Classlist Manager - -$bodytag -ENDHEAD + return &Apache::loncommon::start_page('Classlist Manager'); } ############################################################### sub choose_header { - my $action = shift; - my $bodytag=&Apache::loncommon::bodytag('Classlist Manager'); + my ($action) = @_; + my $scripttag = qq| |; - my $html=&Apache::lonxml::xmlbegin(); - return(< -LON-CAPA Classlist Manager -$scripttag -$bodytag -ENDHEAD + + return &Apache::loncommon::start_page('Classlist Manager', + $scripttag); } sub print_mainbox { @@ -1029,13 +1016,17 @@ Note: Any students previously added manu if ($enrollvar{'showphoto'}) { my ($update,$commentary) = &Apache::lonnet::auto_photochoice($crs, $dom); - $r->print('
'.$commentary.'

+ if ($update) { + $r->print('
'.$commentary.'

'); + } else { + $r->print(&mt('Update of photos via the Automated Enrollment Manager is unavailable in this domain.').'

'); + } } else { $r->print('Update of photos is unavailable, as import of student photos is currently disabled.
Enable this first via: '.$$tasktitleref{'photos'}.''); } @@ -1263,15 +1254,14 @@ ENDFOUR ############################################################### sub print_doc_base { - my $r = shift; + my ($r) = @_; $r->print(< -
- - +
ENDBASE + $r->print(&Apache::loncommon::end_page()); } ###################################################################