version 1.129, 2005/02/17 08:29:42
|
version 1.131, 2005/03/01 03:20:41
|
Line 136 sub handler {
|
Line 136 sub handler {
|
} |
} |
#Hijack lonindexer to verify a title and be close down. |
#Hijack lonindexer to verify a title and be close down. |
if ($ENV{'form.launch'} eq '2') { |
if ($ENV{'form.launch'} eq '2') { |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
my $extra=''; |
my $extra=''; |
if (defined($ENV{'form.titleelement'}) && |
if (defined($ENV{'form.titleelement'}) && |
$ENV{'form.titleelement'} ne '') { |
$ENV{'form.titleelement'} ne '') { |
Line 178 ENDSUBM
|
Line 178 ENDSUBM
|
$colspan=" colspan='2' "; |
$colspan=" colspan='2' "; |
my $cl=&mt('Close'); |
my $cl=&mt('Close'); |
$closebutton=<<END; |
$closebutton=<<END; |
<input type="button" name="close" value='$cl' onClick="self.close()"> |
<input type="button" name="close" value='$cl' onClick="self.close()" /> |
END |
END |
} |
} |
elsif ($ENV{'form.catalogmode'} eq 'groupimport') { |
elsif ($ENV{'form.catalogmode'} eq 'groupimport') { |
Line 189 END
|
Line 189 END
|
my $cl=&mt('Close'); |
my $cl=&mt('Close'); |
my $gi=&mt('Import'); |
my $gi=&mt('Import'); |
$closebutton=<<END; |
$closebutton=<<END; |
<input type="button" name="close" value='$cl' onClick="self.close()"> |
<input type="button" name="close" value='$cl' onClick="self.close()" /> |
END |
END |
$groupimportbutton=<<END; |
$groupimportbutton=<<END; |
<input type="button" name="groupimport" value='$gi' |
<input type="button" name="groupimport" value='$gi' |
onClick="javascript:select_group()"> |
onClick="javascript:select_group()" /> |
END |
END |
} |
} |
# Additions made by Matthew to make the browser a little easier to deal |
# Additions made by Matthew to make the browser a little easier to deal |
Line 591 END
|
Line 591 END
|
|
|
# ---------------------------- embed hidden information useful for group import |
# ---------------------------- embed hidden information useful for group import |
$r->print("<form name='fnum'>"); |
$r->print("<form name='fnum'>"); |
$r->print("<input type='hidden' name='fnum' value='$fnum'></form>"); |
$r->print("<input type='hidden' name='fnum' value='$fnum' /></form>"); |
|
|
# -------------------------------------------------------------- end the tables |
# -------------------------------------------------------------- end the tables |
$r->print('</table>'); |
$r->print('</table>'); |
Line 824 sub display_line {
|
Line 824 sub display_line {
|
'enctype="application/x-www-form-urlencoded"'. |
'enctype="application/x-www-form-urlencoded"'. |
'>'."\n"); |
'>'."\n"); |
$r->print ('<input type=hidden name=openuri value="'. |
$r->print ('<input type=hidden name=openuri value="'. |
$startdir.'">'."\n"); |
$startdir.'" />'."\n"); |
$r->print ('<input type="hidden" name="acts" value="">'."\n"); |
$r->print ('<input type="hidden" name="acts" value="" />'."\n"); |
$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")." $tabtag</tr></form>\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 841 sub display_line {
|
Line 841 sub display_line {
|
|
|
# display domain |
# display domain |
if ($filecom[1] eq 'domain') { |
if ($filecom[1] eq 'domain') { |
$r->print ('<input type="hidden" name="dirPointer" value="on">'."\n") |
$r->print ('<input type="hidden" name="dirPointer" value="on" />'."\n") |
if ($ENV{'form.dirPointer'} eq "on"); |
if ($ENV{'form.dirPointer'} eq "on"); |
$r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield"); |
$r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield"); |
$r->print("<td>"); |
$r->print("<td>"); |
Line 849 sub display_line {
|
Line 849 sub display_line {
|
my $anchor = $filecom[0]; |
my $anchor = $filecom[0]; |
$anchor =~ s/\///g; |
$anchor =~ s/\///g; |
$r->print ('<a name="'.$anchor.'">'); |
$r->print ('<a name="'.$anchor.'">'); |
$r->print ('<input type="hidden" name="acts" value="">'); |
$r->print ('<input type="hidden" name="acts" value="" />'); |
$r->print ('<input src="'.$iconpath.'folder_pointer_'. |
$r->print ('<input src="'.$iconpath.'folder_pointer_'. |
$diropen.'.gif"'); |
$diropen.'.gif"'); |
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'. |
$r->print (' name="'.$msg.'" height="22" type="image" border="0" />'. |
"\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. |
Line 863 sub display_line {
|
Line 863 sub display_line {
|
$r->print("(".$Apache::lonnet::domaindescription{$listname}. |
$r->print("(".$Apache::lonnet::domaindescription{$listname}. |
")"); |
")"); |
} |
} |
$r->print (" $tabtag</tr></form>\n"); |
$r->print ("</form> $tabtag</tr>\n"); |
return OK; |
return OK; |
|
|
# display user directory |
# display user directory |
Line 877 sub display_line {
|
Line 877 sub display_line {
|
&begin_form ($r,$curdir); |
&begin_form ($r,$curdir); |
$r->print ('<a name="'.$anchor.'"><img src="'.$iconpath. |
$r->print ('<a name="'.$anchor.'"><img src="'.$iconpath. |
'whitespace1.gif" border="0" />'."\n"); |
'whitespace1.gif" border="0" />'."\n"); |
$r->print ('<input type="hidden" name="acts" value="">'); |
$r->print ('<input type="hidden" name="acts" value="" />'); |
$r->print ('<input src="'.$iconpath.'folder_pointer_'.$diropen. |
$r->print ('<input src="'.$iconpath.'folder_pointer_'.$diropen. |
'.gif"'); |
'.gif"'); |
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'. |
$r->print (' name="'.$msg.'" height="22" type="image" border="0" />'. |
"\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 |
Line 891 sub display_line {
|
Line 891 sub display_line {
|
my $plainname=&Apache::loncommon::plainname($listname,$domain); |
my $plainname=&Apache::loncommon::plainname($listname,$domain); |
$r->print ($listname); |
$r->print ($listname); |
if (defined($plainname) && $plainname) { $r->print(" ($plainname) "); } |
if (defined($plainname) && $plainname) { $r->print(" ($plainname) "); } |
$r->print ($tabtag.'</tr></form>'."\n"); |
$r->print ('</form>'.$tabtag.'</tr>'."\n"); |
return OK; |
return OK; |
} |
} |
|
|
Line 910 sub display_line {
|
Line 910 sub display_line {
|
} |
} |
# Set the icon for the file |
# Set the icon for the file |
my $iconname = &Apache::loncommon::icon($listname); |
my $iconname = &Apache::loncommon::icon($listname); |
$r->print("<tr valign='$valign' bgcolor=$fileclr><td nowrap='1' align='top'>"); |
$r->print("<tr valign='$valign' bgcolor=$fileclr><td nowrap='nowrap' valign='top'>"); |
|
|
if ($ENV{'form.catalogmode'} eq 'interactive') { |
if ($ENV{'form.catalogmode'} eq 'interactive') { |
my $quotable_filelink = &Apache::loncommon::escape_single($filelink); |
my $quotable_filelink = &Apache::loncommon::escape_single($filelink); |
Line 927 sub display_line {
|
Line 927 sub display_line {
|
if ($hash{'store_'.$filelink}) { |
if ($hash{'store_'.$filelink}) { |
$r->print("checked"); |
$r->print("checked"); |
} |
} |
$r->print(">\n"); |
$r->print(" />\n"); |
$r->print("</form>\n"); |
$r->print("</form>\n"); |
$r->print("</td><td nowrap>"); |
$r->print("</td><td nowrap>"); |
$hash{"pre_${fnum}_link"}=$filelink; |
$hash{"pre_${fnum}_link"}=$filelink; |
Line 962 sub display_line {
|
Line 962 sub display_line {
|
my $curdir = $startdir.$filecom[0].'/'; |
my $curdir = $startdir.$filecom[0].'/'; |
my $anchor = $curdir; |
my $anchor = $curdir; |
$anchor =~ s/\///g; |
$anchor =~ s/\///g; |
$r->print ('<input type="hidden" name="acts" value="">'); |
$r->print ('<input type="hidden" name="acts" value="" />'); |
$r->print ('<a name="'.$anchor.'"><input src="'.$iconpath. |
$r->print ('<a name="'.$anchor.'"><input src="'.$iconpath. |
'folder_pointer_'.$diropen.'.gif"'); |
'folder_pointer_'.$diropen.'.gif"'); |
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'. |
$r->print (' name="'.$msg.'" height="22" type="image" border="0" />'. |
"\n"); |
"\n"); |
} |
} |
# Filetype icons |
# Filetype icons |
Line 1115 sub display_line {
|
Line 1115 sub display_line {
|
$r->print ("<img src=",$iconpath,"whitespace",$rem, |
$r->print ("<img src=",$iconpath,"whitespace",$rem, |
".gif border='0' />\n") if $rem > 0; |
".gif border='0' />\n") if $rem > 0; |
} |
} |
$r->print ('<input type="hidden" name="acts" value="">'); |
$r->print ('<input type="hidden" name="acts" value="" />'); |
$r->print ('<a name="'.$anchor.'"><input src="'.$iconpath. |
$r->print ('<a name="'.$anchor.'"><input src="'.$iconpath. |
'folder_pointer_'.$diropen.'.gif"'); |
'folder_pointer_'.$diropen.'.gif"'); |
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'. |
$r->print (' name="'.$msg.'" height="22" type="image" border="0" />'. |
"\n"); |
"\n"); |
my $quotable_curdir = &Apache::loncommon::escape_single($curdir); |
my $quotable_curdir = &Apache::loncommon::escape_single($curdir); |
$r->print ('<a href="javascript:gothere(\'' |
$r->print ('<a href="javascript:gothere(\'' |
Line 1200 sub begin_form {
|
Line 1200 sub begin_form {
|
'" onSubmit="return rep_dirpath(\''.$dnum.'\''. |
'" onSubmit="return rep_dirpath(\''.$dnum.'\''. |
',document.forms.fileattr.acts.value)" '. |
',document.forms.fileattr.acts.value)" '. |
'enctype="application/x-www-form-urlencoded">'."\n"); |
'enctype="application/x-www-form-urlencoded">'."\n"); |
$r->print ('<input type="hidden" name="openuri" value="'.$uri.'">'. |
$r->print ('<input type="hidden" name="openuri" value="'.$uri.'" />'. |
"\n"); |
"\n"); |
$r->print ('<input type="hidden" name="dirPointer" value="on">'."\n"); |
$r->print ('<input type="hidden" name="dirPointer" value="on" />'."\n"); |
$dnum++; |
$dnum++; |
} |
} |
|
|