version 1.190, 2009/03/17 20:07:45
|
version 1.192, 2009/03/17 23:11:20
|
Line 527 END
|
Line 527 END
|
# -------------------------------------------------------- Resource Home Button |
# -------------------------------------------------------- Resource Home Button |
my $reshome=$env{'course.'.$env{'request.course.id'}.'.reshome'}; |
my $reshome=$env{'course.'.$env{'request.course.id'}.'.reshome'}; |
if ($reshome) { |
if ($reshome) { |
$r->print("<span class=\"LC_fontsize_small\"><a href='"); |
$r->print("<span class=\"LC_fontsize_large\"><a href='"); |
if ($env{'form.catalogmode'} eq 'import') { |
if ($env{'form.catalogmode'} eq 'import') { |
$r->print('javascript:document.forms.fileattr.action="'.&Apache::loncommon::inhibit_menu_check($reshome).'";document.forms.fileattr.submit();'); |
$r->print('javascript:document.forms.fileattr.action="'.&Apache::loncommon::inhibit_menu_check($reshome).'";document.forms.fileattr.submit();'); |
} else { |
} else { |
Line 549 END
|
Line 549 END
|
#$r->print(&writedebug("Omit:@Omit")) if (@Omit); |
#$r->print(&writedebug("Omit:@Omit")) if (@Omit); |
#$r->print(&writedebug("Only:@Only")) if (@Only); |
#$r->print(&writedebug("Only:@Only")) if (@Only); |
$r->print('<br /><br />'); |
$r->print('<br /><br />'); |
$r->print(&Apache::loncommon::start_data_table("LC_tableOfContent") |
$r->print(&Apache::loncommon::start_data_table("LC_tableBrowseRes") |
.&Apache::loncommon::start_data_table_header_row()); |
.&Apache::loncommon::start_data_table_header_row()); |
$r->print("<th $colspan>".&mt('Name')."</th>\n"); |
$r->print("<th $colspan>".&mt('Name')."</th>\n"); |
$r->print("<th>".&mt('Title')."</th>\n") |
$r->print("<th>".&mt('Title')."</th>\n") |
Line 880 sub display_line {
|
Line 880 sub display_line {
|
$startdir.'" />'."\n"); |
$startdir.'" />'."\n"); |
$r->print ('<input type="hidden" name="acts" value="" />'."\n"); |
$r->print ('<input type="hidden" name="acts" value="" />'."\n"); |
$r->print ('<a href="#" onClick="document.dirpathUP.submit()"><img src="'.$iconpath.'arrow.up.gif"'); |
$r->print ('<a href="#" onClick="document.dirpathUP.submit()"><img src="'.$iconpath.'arrow.up.gif"'); |
$r->print (' name="'.$msg.'" type="image" class="LC_icon" />'. |
$r->print (' name="'.$msg.'" type="image" class="LC_fileicon" />'. |
"\n"); |
"\n"); |
$r->print(&mt("Up")."</a></form>$tabtag"); |
$r->print(&mt("Up")."</a></form>$tabtag"); |
$r->print(&Apache::loncommon::end_data_table_row()); |
$r->print(&Apache::loncommon::end_data_table_row()); |
Line 907 sub display_line {
|
Line 907 sub display_line {
|
$r->print ('<a name="'.$anchor.'"></a>'); |
$r->print ('<a name="'.$anchor.'"></a>'); |
$r->print ('<input type="hidden" name="acts" value="" />'); |
$r->print ('<input type="hidden" name="acts" value="" />'); |
$r->print ('<a href="#" onClick="document.dirpath'.($dnum-1).'.submit()"><img src="'.$iconpath.'arrow.'.($nowOpen ? "open" : "closed" ).'.gif"'); |
$r->print ('<a href="#" onClick="document.dirpath'.($dnum-1).'.submit()"><img src="'.$iconpath.'arrow.'.($nowOpen ? "open" : "closed" ).'.gif"'); |
$r->print (' name="'.$msg.'" type="image" class="LC_icon" /></a>'. |
$r->print (' name="'.$msg.'" type="image" class="LC_fileicon" /></a>'. |
"\n"); |
"\n"); |
my $quotable_filecom = &Apache::loncommon::escape_single($filecom[0]); |
my $quotable_filecom = &Apache::loncommon::escape_single($filecom[0]); |
$r->print ('<a href="javascript:gothere(\''.$quotable_filecom. |
$r->print ('<a href="javascript:gothere(\''.$quotable_filecom. |
'\')"><img alt="" src="'.$iconpath.'server.gif"'); |
'\')"><img alt="" src="'.$iconpath.'server.gif"'); |
$r->print (' class="LC_icon" />'."\n"); |
$r->print (' class="LC_fileicon" />'."\n"); |
$r->print (&mt("Domain")." - $listname </a>"); |
$r->print (&mt("Domain")." - $listname </a>"); |
if (&Apache::lonnet::domain($listname,'description')) { |
if (&Apache::lonnet::domain($listname,'description')) { |
$r->print("(".&Apache::lonnet::domain($listname,'description'). |
$r->print("<br />(".&Apache::lonnet::domain($listname,'description'). |
")"); |
")"); |
} |
} |
$r->print("</form>$tabtag"); |
$r->print("</form>$tabtag"); |
Line 938 $r->print ('<input type="hidden" name="a
|
Line 938 $r->print ('<input type="hidden" name="a
|
$r->print ('<input type="hidden" name="acts" value="" />'); |
$r->print ('<input type="hidden" name="acts" value="" />'); |
$r->print ('<a href="#" onClick="document.dirpath'.($dnum-1).'.submit()">'); |
$r->print ('<a href="#" onClick="document.dirpath'.($dnum-1).'.submit()">'); |
$r->print ('<img src="'.$iconpath.'arrow.'.($nowOpen ? "open" : "closed" ). |
$r->print ('<img src="'.$iconpath.'arrow.'.($nowOpen ? "open" : "closed" ). |
'.gif" class="LC_icon"'); |
'.gif" class="LC_fileicon"'); |
$r->print (' name="'.$msg.'" type="image" class="LC_indexer_icon" /></a>'. |
$r->print (' name="'.$msg.'"/></a>'. |
"\n"); |
"\n"); |
my $quotable_curdir = &Apache::loncommon::escape_single($curdir); |
my $quotable_curdir = &Apache::loncommon::escape_single($curdir); |
$r->print ('<a href="javascript:gothere(\''.$quotable_curdir |
$r->print ('<a href="javascript:gothere(\''.$quotable_curdir |
.'\')"><img alt="'.$msg.'" src="'. |
.'\')"><img alt="'.$msg.'" src="'. |
$iconpath.'quill.gif" class="LC_indexer_icon" />'); |
$iconpath.'quill.gif" class="LC_fileicon" />'); |
my $domain=(split(m|/|,$startdir))[2]; |
my $domain=(split(m|/|,$startdir))[2]; |
my $plainname=&Apache::loncommon::plainname($listname,$domain); |
my $plainname=&Apache::loncommon::plainname($listname,$domain); |
$r->print ($listname.'</a>'); |
$r->print ($listname.'</a>'); |
Line 1021 $r->print ('<input type="hidden" name="a
|
Line 1021 $r->print ('<input type="hidden" name="a
|
my $anchor = $curdir; |
my $anchor = $curdir; |
$anchor =~ s/\W//g; |
$anchor =~ s/\W//g; |
$r->print ('<input type="hidden" name="acts" value="" />'); |
$r->print ('<input type="hidden" name="acts" value="" />'); |
$r->print ('<a name="'.$anchor.'"></a><input src="'.$iconpath. |
$r->print ('<a name="'.$anchor.'"></a>'); |
'arrow'.($nowOpen ? "open" : "closed" ).'.gif"'); |
$r->print ('<a href="#" onClick="document.dirpath'.($dnum-1).'.submit()">'); |
$r->print (' name="'.$msg.'" type="image" class="LC_icon" />'. |
$r->print ('<img src="'.$iconpath.'arrow.'.($nowOpen ? "open" : "closed" ). |
|
'.gif" class="LC_fileicon"'); |
|
$r->print (' name="'.$msg.'" type="image" class="LC_fileicon" /></a>'. |
"\n"); |
"\n"); |
} |
} |
# Filetype icons |
# Filetype icons |
$r->print("<img alt=\"\" src='$iconname' class='LC_icon' />\n"); |
$r->print("<img alt=\"\" src='$iconname' class='LC_fileicon' />\n"); |
my $quotable_filelink = &Apache::loncommon::escape_single($filelink); |
my $quotable_filelink = &Apache::loncommon::escape_single($filelink); |
|
|
$r->print (" <a href=\"javascript:openWindow('".$quotable_filelink. |
$r->print (" <a href=\"javascript:openWindow('".$quotable_filelink. |
Line 1059 $r->print ('<input type="hidden" name="a
|
Line 1061 $r->print ('<input type="hidden" name="a
|
|
|
if ($hash{'display_attrs_4'} == 1) { |
if ($hash{'display_attrs_4'} == 1) { |
my $author = &Apache::lonnet::metadata($filelink,'author'); |
my $author = &Apache::lonnet::metadata($filelink,'author'); |
$r->print('<td> '.($author eq '' ? ' ' : $author). |
$r->print('<td class="LC_nobreak"> '.($author eq '' ? ' ' : $author). |
" </td>\n"); |
" </td>\n"); |
} |
} |
if ($hash{'display_attrs_5'} == 1) { |
if ($hash{'display_attrs_5'} == 1) { |
Line 1173 $r->print ('<input type="hidden" name="a
|
Line 1175 $r->print ('<input type="hidden" name="a
|
$r->print ('<a name="'.$anchor.'"></a>'); |
$r->print ('<a name="'.$anchor.'"></a>'); |
$r->print ('<a href="#" onClick="document.dirpath'.($dnum-1).'.submit()"><img src="'.$iconpath. |
$r->print ('<a href="#" onClick="document.dirpath'.($dnum-1).'.submit()"><img src="'.$iconpath. |
'arrow.'.($nowOpen ? "open" : "closed" ).'.gif"'); |
'arrow.'.($nowOpen ? "open" : "closed" ).'.gif"'); |
$r->print (' name="'.$msg.'" class="LC_icon" /></a>'. |
$r->print (' name="'.$msg.'" class="LC_fileicon" /></a>'. |
"\n"); |
"\n"); |
my $quotable_curdir = &Apache::loncommon::escape_single($curdir); |
my $quotable_curdir = &Apache::loncommon::escape_single($curdir); |
|
|
Line 1181 $r->print ('<input type="hidden" name="a
|
Line 1183 $r->print ('<input type="hidden" name="a
|
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 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"); |