loncom/interface/lonaboutme.pm - diff

Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.50, 2006/08/07 19:51:54	version 1.52, 2006/08/16 19:40:46
Line 37 use Apache::lonfeedback;	Line 37 use Apache::lonfeedback;
use Apache::lonrss();	use Apache::lonrss();
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonmsgdisplay();	use Apache::lonmsgdisplay();
	use HTML::Entities();

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 206 sub handler {	Line 207 sub handler {
}	}
if ($allowed) {	if ($allowed) {
$r->print('<br /><textarea cols="80" rows="6" name="'.$_.'">'.	$r->print('<br /><textarea cols="80" rows="6" name="'.$_.'">'.
$syllabus{$_}.	&HTML::Entities::encode($syllabus{$_},'"&<>').
'</textarea><input type="submit" name="storesyl" value="'.	'</textarea><input type="submit" name="storesyl" value="'.
&mt('Store').'" />');	&mt('Store').'" />');
}	}
Line 522 sub parse_directory {	Line 523 sub parse_directory {
'<img alt="" src="'.&Apache::loncommon::icon($currhash->{$item}).'" class="LC_icon" />'.	'<img alt="" src="'.&Apache::loncommon::icon($currhash->{$item}).'" class="LC_icon" />'.
' '.$showname.'</a>';	' '.$showname.'</a>';
$output.='</td><td>';	$output.='</td><td>';
&Apache::lonnet::logthis("sh $showname");
if ($have_meta) {	if ($have_meta) {
$output.= '<a href="'.$url.'.meta"><img alt="'.&mt('Catalog Information').'" src="'.	$output.= '<a href="'.$url.'.meta"><img alt="'.&mt('Catalog Information').'" src="'.
&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.gif').	&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.gif').