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

Diff for /loncom/homework/lonsimpleproblemedit.pm between versions 1.16 and 1.18

version 1.16, 2005/05/26 20:35:53 version 1.18, 2006/05/30 12:45:37
Line 34  use Apache::loncommon; Line 34  use Apache::loncommon;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonnavmaps;  use Apache::lonnavmaps;
   use lib '/home/httpd/lib/perl/';
   use LONCAPA;
    
   
 my %qparms;  my %qparms;
 my $prefix;  my $prefix;
Line 146  sub get_parent_uri { Line 149  sub get_parent_uri {
     }      }
     my ($src,$symb,$anchor)=&Apache::lonnavmaps::getLinkForResource($it->getStack());      my ($src,$symb,$anchor)=&Apache::lonnavmaps::getLinkForResource($it->getStack());
     if (defined($anchor)) { $anchor='#'.$anchor; }      if (defined($anchor)) { $anchor='#'.$anchor; }
     return $src.'?symb='.&Apache::lonnet::escape($symb).$anchor;      return $src.'?symb='.&escape($symb).$anchor;
 }  }
   
 sub handler {  sub handler {
Line 212  sub handler { Line 215  sub handler {
   
 # ------------------------------------------------------------ Print the screen  # ------------------------------------------------------------ Print the screen
     my $spell_header=&Apache::lonhtmlcommon::spellheader();      my $spell_header=&Apache::lonhtmlcommon::spellheader();
     $r->print(<<ENDDOCUMENT);      $r->print(&Apache::loncommon::start_page('Simple Problem Editor',
 <html>       $spell_header));
 <head>  
 <title>The LearningOnline Network with CAPA</title>  
 $spell_header  
 </head>  
 ENDDOCUMENT  
     $r->print(&Apache::loncommon::bodytag('Simple Problem Editor'));  
     if ($symb) {      if ($symb) {
  $r->print('<h1>'.&Apache::lonnet::gettitle($symb).'</h1>');   $r->print('<h1>'.&Apache::lonnet::gettitle($symb).'</h1>');
  $r->print('<table width="100%" bgcolor="#FFFFAA" border="2"><tr><td>'.   $r->print('<table width="100%" bgcolor="#FFFFAA" border="2"><tr><td>'.
Line 317  ENDDOCUMENT Line 314  ENDDOCUMENT
     } else {      } else {
  $r->print(&mt('Could not identify problem.'));   $r->print(&mt('Could not identify problem.'));
     }      }
     $r->print('</body></html>');      $r->print(&Apache::loncommon::end_page());
     return OK;      return OK;
 }   } 
   
Removed from v.1.16  
changed lines
  Added in v.1.18

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