loncom/homework/lonsimpleproblemedit.pm - diff

Return to lonsimpleproblemedit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.17, 2006/04/10 22:47:29	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 {