version 1.16, 2005/05/26 20:35:53
|
version 1.19, 2006/06/30 01:16:41
|
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 66 sub questiontext {
|
Line 69 sub questiontext {
|
my $spell_link= |
my $spell_link= |
&Apache::lonhtmlcommon::spelllink('simpleedit','questiontext'); |
&Apache::lonhtmlcommon::spelllink('simpleedit','questiontext'); |
return (<<ENDQUESTION); |
return (<<ENDQUESTION); |
<table bgcolor="#dddd22" cellspacing="4" cellpadding="2"> |
<table bgcolor="#dddd22" cellspacing="4" cellpadding="2" style="width:100%"> |
<tr><td><b>$qt</b><br /> |
<tr><td><b>$qt</b><br /> |
<textarea style="width:100%" name="questiontext" cols="80" rows="8">$text</textarea> |
<textarea style="width:100%" name="questiontext" cols="80" rows="8">$text</textarea> |
<br />$spell_link |
<br />$spell_link |
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; |
} |
} |
|
|