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

Diff for /loncom/interface/lonpickstudent.pm between versions 1.10 and 1.11

version 1.10, 2006/01/09 20:38:52 version 1.11, 2006/03/15 22:11:04
Line 42  sub handler { Line 42  sub handler {
     return OK if $r->header_only;      return OK if $r->header_only;
   
 # ------------------------------------------------------------ Print the screen  # ------------------------------------------------------------ Print the screen
     my $html=&Apache::lonxml::xmlbegin();      $r->print(&Apache::loncommon::start_page("Selecting a User"));
     $r->print(<<ENDDOCUMENT);  
 $html  
 <head>  
 <title>The LearningOnline Network with CAPA</title>  
 </head>  
 ENDDOCUMENT  
   
   
   
   
     &Apache::loncommon::get_unprocessed_cgi      &Apache::loncommon::get_unprocessed_cgi
Line 67  ENDDOCUMENT Line 59  ENDDOCUMENT
   
     unless (($env{'form.roles'}) ||      unless (($env{'form.roles'}) ||
             (($env{'request.course.id'}) && ($allowed))) {              (($env{'request.course.id'}) && ($allowed))) {
  $r->print('<body>No context.</body>');   $r->print(&mt('No context.').
     &Apache::loncommon::end_page());
         return OK;          return OK;
     }      }
   
Line 81  ENDDOCUMENT Line 74  ENDDOCUMENT
                 
 # --------------------------------------- There is such a user, get environment  # --------------------------------------- There is such a user, get environment
   
     $r->print(&Apache::loncommon::bodytag("Selecting a User"));  
     $r->print(<<ENDSCRIPT);      $r->print(<<ENDSCRIPT);
 <script>  <script>
 function gochoose(uname,udom) {  function gochoose(uname,udom) {
Line 176  ENDSCRIPT Line 168  ENDSCRIPT
     }      }
     $r->print('</table></p>');      $r->print('</table></p>');
   }    }
   $r->print('</form></body></html>');    $r->print('</form>'.&Apache::loncommon::end_page());
   return OK;    return OK;
 }   } 
   
Removed from v.1.10  
changed lines
  Added in v.1.11

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