[BACK]Return to lonpopulate.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonpopulate.pm between versions 1.39 and 1.41

version 1.39, 2006/02/09 13:45:54 version 1.41, 2006/03/15 22:11:04
Line 38  use LONCAPA::Enrollment; Line 38  use LONCAPA::Enrollment;
   
 ###############################################################  ###############################################################
 sub header {  sub header {
     my $html=&Apache::lonxml::xmlbegin();      return &Apache::loncommon::start_page('Classlist Manager');
     my $bodytag=&Apache::loncommon::bodytag('Classlist Manager');  
     return(<<ENDHEAD);  
 $html  
 <head>  
 <title>LON-CAPA Classlist Manager</title>  
 </head>  
 $bodytag  
 ENDHEAD  
 }  }
   
 ###############################################################  ###############################################################
   
 sub choose_header {  sub choose_header {
     my $action = shift;      my ($action) = @_;
     my $bodytag=&Apache::loncommon::bodytag('Classlist Manager');  
     my $scripttag = qq|      my $scripttag = qq|
 <script language='javascript' type='text/javascript'>  <script language='javascript' type='text/javascript'>
 <!--  <!--
Line 175  function countChecked(field) { Line 167  function countChecked(field) {
 // End hiding -->  // End hiding -->
 </script>  </script>
 |;  |;
     my $html=&Apache::lonxml::xmlbegin();  
     return(<<ENDHEAD);      return &Apache::loncommon::start_page('Classlist Manager',
 $html    $scripttag);
 <head>  
 <title>LON-CAPA Classlist Manager</title>  
 $scripttag  
 $bodytag  
 ENDHEAD  
 }  }
   
 sub print_mainbox {  sub print_mainbox {
Line 1029  Note: Any students previously added manu Line 1016  Note: Any students previously added manu
       if ($enrollvar{'showphoto'}) {        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 />            if ($update) { 
                 $r->print('<br />'.$commentary.'<br /><br />
 <form name="photoupdate" method="post">  <form name="photoupdate" method="post">
 <input type ="button" name="retrieve" value="'.&mt('Update photo repository').'"  <input type ="button" name="retrieve" value="'.&mt('Update photo repository').'"
 onclick="javascript:document.photoupdate.submit()" />  onclick="javascript:document.photoupdate.submit()" />
 <input type ="hidden" name="action" value="'.$action.'" />  <input type ="hidden" name="action" value="'.$action.'" />
 <input type ="hidden" name="state" value="process" />  <input type ="hidden" name="state" value="process" />
 </form>');  </form>');
             } else {
                 $r->print(&mt('Update of photos via the Automated Enrollment Manager is unavailable in this domain.').'<br /><br /><input type="button" name=mainmenu" value="Go back" onclick="javascript:history.go(-1);" />');
             }
       } else {        } else {
           $r->print('Update of photos is unavailable, as import of student photos is currently disabled.<br />Enable this first via: <a href="/adm/populate?action=photos">'.$$tasktitleref{'photos'}.'</a>');            $r->print('Update of photos is unavailable, as import of student photos is currently disabled.<br />Enable this first via: <a href="/adm/populate?action=photos">'.$$tasktitleref{'photos'}.'</a>');
       }        }
Line 1263  ENDFOUR Line 1254  ENDFOUR
   
 ###############################################################  ###############################################################
 sub print_doc_base {  sub print_doc_base {
     my $r = shift;      my ($r) = @_;
     $r->print(<<ENDBASE);      $r->print(<<ENDBASE);
   </td>    </td>
  </tr>   </tr>
 </table>  </table>
 <br/>  <br />
 </body>  
 </html>   
 ENDBASE  ENDBASE
       $r->print(&Apache::loncommon::end_page());
 }  }
     
 ###################################################################  ###################################################################
Removed from v.1.39  
changed lines
  Added in v.1.41

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>