|
version 1.203.2.1, 2009/12/07 02:27:25
|
version 1.204, 2010/03/29 22:42:58
|
|
Line 1223 $r->print ('<input type="hidden" name="a
|
Line 1223 $r->print ('<input type="hidden" name="a
|
| |
|
| my $location = &Apache::loncommon::lonhttpdurl("/adm/lonIcons"); |
my $location = &Apache::loncommon::lonhttpdurl("/adm/lonIcons"); |
| my $icon = "navmap.folder.".($nowOpen ? "open":"closed").'.gif'; |
my $icon = "navmap.folder.".($nowOpen ? "open":"closed").'.gif'; |
| $r->print ('<a href="javascript:gothere(\'' |
$r->print ('<a href="javascript:gothere(' |
| .$quotable_curdir.'\')"">' |
."'$quotable_curdir'".');">' |
| .'<img class="LC_fileicon" alt="'.&mt('Open Folder').'" src="'. |
.'<img class="LC_fileicon" alt="'.&mt('Open Folder').'" src="' |
| $location."/".$icon.'" />'. |
.$location.'/'.$icon.'" />' |
| "\n"); |
."\n"); |
| $r->print ("$listname</a></form></td>\n"); |
$r->print ("$listname</a></form></td>\n"); |
| # Attributes |
# Attributes |
| my $filelink = $startdir.$filecom[0].'/default'; |
my $filelink = $startdir.$filecom[0].'/default'; |
|
Line 1332 sub showpreview {
|
Line 1332 sub showpreview {
|
| my $output=''; |
my $output=''; |
| my $embstyle=&Apache::loncommon::fileembstyle($curfext); |
my $embstyle=&Apache::loncommon::fileembstyle($curfext); |
| if ($embstyle eq 'ssi') { |
if ($embstyle eq 'ssi') { |
| my $cache = $Apache::lonnet::perlvar{'lonDocRoot'}.$filelink; |
my $cache=$Apache::lonnet::perlvar{'lonDocRoot'}.$filelink. |
| if ($env{'request.gcicontext'} eq 'buildtest') { |
'.tmp'; |
| $cache .= '.tn'; |
|
| } else { |
|
| $cache .= '.tmp'; |
|
| } |
|
| if ((!$env{'form.updatedisplay'}) && |
if ((!$env{'form.updatedisplay'}) && |
| (-e $cache)) { |
(-e $cache)) { |
| open(FH,$cache); |
open(FH,$cache); |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonindexer.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface