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'). |