version 1.133, 2005/04/07 06:56:23
|
version 1.135, 2005/06/17 20:15:51
|
Line 829 sub display_line {
|
Line 829 sub display_line {
|
$r->print ('<input src="'.$iconpath.'arrow_up.gif"'); |
$r->print ('<input src="'.$iconpath.'arrow_up.gif"'); |
$r->print (' name="'.$msg.'" height="22" type="image" border="0" />'. |
$r->print (' name="'.$msg.'" height="22" type="image" border="0" />'. |
"\n"); |
"\n"); |
$r->print(&mt("Up")."</form> $tabtag</tr>\n"); |
$r->print(&mt("Up")."</form>$tabtag</tr>\n"); |
return OK; |
return OK; |
} |
} |
# Do we have permission to look at this? |
# Do we have permission to look at this? |
Line 863 sub display_line {
|
Line 863 sub display_line {
|
$r->print("(".$Apache::lonnet::domaindescription{$listname}. |
$r->print("(".$Apache::lonnet::domaindescription{$listname}. |
")"); |
")"); |
} |
} |
$r->print ("</form> $tabtag</tr>\n"); |
$r->print ("</form>$tabtag</tr>\n"); |
return OK; |
return OK; |
|
|
# display user directory |
# display user directory |
Line 928 sub display_line {
|
Line 928 sub display_line {
|
$r->print("checked"); |
$r->print("checked"); |
} |
} |
$r->print(" />\n"); |
$r->print(" />\n"); |
$r->print("</form>\n"); |
$r->print("</form></td><td nowrap>"); |
$r->print("</td><td nowrap>"); |
|
$hash{"pre_${fnum}_link"}=$filelink; |
$hash{"pre_${fnum}_link"}=$filelink; |
$fnum++; |
$fnum++; |
} |
} |
Line 970 sub display_line {
|
Line 969 sub display_line {
|
} |
} |
# Filetype icons |
# Filetype icons |
$r->print("<img src='$iconname' border='0' />\n"); |
$r->print("<img src='$iconname' border='0' />\n"); |
# Close form to open/close sequence |
|
if ($filelink=~/\.(page|sequence)$/) { |
|
$r->print('</form>'); |
|
} |
|
my $quotable_filelink = &Apache::loncommon::escape_single($filelink); |
my $quotable_filelink = &Apache::loncommon::escape_single($filelink); |
|
|
|
|
Line 984 sub display_line {
|
Line 979 sub display_line {
|
$r->print (" (<a href=\"javascript:openWindow('".$quotable_filelink. |
$r->print (" (<a href=\"javascript:openWindow('".$quotable_filelink. |
".meta', 'metadatafile', '500', '550', 'no', 'yes','no')\"; ". |
".meta', 'metadatafile', '500', '550', 'no', 'yes','no')\"; ". |
"TARGET=_self>metadata</a>) "); |
"TARGET=_self>metadata</a>) "); |
|
# Close form to open/close sequence |
|
if ($filelink=~/\.(page|sequence)$/) { |
|
$r->print('</form>'); |
|
} |
$r->print("</td>\n"); |
$r->print("</td>\n"); |
if ($hash{'display_attrs_0'} == 1) { |
if ($hash{'display_attrs_0'} == 1) { |
my $title = &Apache::lonnet::gettitle($filelink,'title'); |
my $title = &Apache::lonnet::gettitle($filelink,'title'); |