version 1.97, 2004/03/30 02:50:27
|
version 1.101, 2004/05/07 15:43:45
|
Line 452 END
|
Line 452 END
|
(($ENV{'form.catalogmode'} eq 'groupimport')? |
(($ENV{'form.catalogmode'} eq 'groupimport')? |
'document.forms.fileattr':'')). |
'document.forms.fileattr':'')). |
&Apache::lonhtmlcommon::select_recent('residx','resrecent', |
&Apache::lonhtmlcommon::select_recent('residx','resrecent', |
'this.form.action=this.form.resrecent.options[this.form.resrecent.selectedIndex].value;this.form.submit();'). |
'this.form.action=this.form.resrecent.options[this.form.resrecent.selectedIndex].value;this.form.submit();')); |
'</form>'); |
# -------------------------------------------------------- Resource Home Button |
|
my $reshome=$ENV{'course.'.$ENV{'request.course.id'}.'.reshome'}; |
|
if ($reshome) { |
|
$r->print("<font size='+2'><a href='"); |
|
if ($ENV{'form.catalogmode'} eq 'groupimport') { |
|
$r->print('javascript:document.forms.fileattr.action="'.$reshome.'";document.forms.fileattr.submit();'); |
|
} else { |
|
$r->print($reshome); |
|
} |
|
$r->print("'>".&mt('Home').'</a></font>'); |
|
} |
|
$r->print('</form>'); |
# ------------------------------------------------------ Remember where we were |
# ------------------------------------------------------ Remember where we were |
&Apache::loncommon::storeresurl($storeuri); |
&Apache::loncommon::storeresurl($storeuri); |
&Apache::lonhtmlcommon::store_recent('residx',$storeuri,$storeuri); |
&Apache::lonhtmlcommon::store_recent('residx',$storeuri,$storeuri); |
Line 732 sub display_line {
|
Line 743 sub display_line {
|
|
|
# display uplink arrow |
# display uplink arrow |
if ($filecom[1] eq 'viewOneUp') { |
if ($filecom[1] eq 'viewOneUp') { |
|
my $updir=$startdir; |
|
# -------------- Filter out sequence containment in crumbs and "recent folders" |
|
$updir='/'.(split(/\.(page|sequence)\/\//,$startdir))[-1]; |
|
$updir=~s/\/+/\//g; |
|
|
$r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield"); |
$r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield"); |
$r->print("<td>\n"); |
$r->print("<td>\n"); |
$r->print ('<form method="post" name="dirpathUP" action="'.$startdir. |
$r->print ('<form method="post" name="dirpathUP" action="'.$updir. |
'/" '. |
'/" '. |
'onSubmit="return rep_dirpath(\'UP\','. |
'onSubmit="return rep_dirpath(\'UP\','. |
'document.forms.fileattr.acts.value)" '. |
'document.forms.fileattr.acts.value)" '. |
Line 832 sub display_line {
|
Line 848 sub display_line {
|
$title = &Apache::lonnet::metadata($filelink,'title') |
$title = &Apache::lonnet::metadata($filelink,'title') |
if ($metafile == 1); |
if ($metafile == 1); |
$title=$listname unless $title; |
$title=$listname unless $title; |
my $titleesc=HTML::Entities::encode($title); |
my $titleesc=HTML::Entities::encode($title,'<>&"'); |
$titleesc=~s/\'/\\'/; #' (clean up this spare quote) |
$titleesc=~s/\'/\\'/; #' (clean up this spare quote) |
$r->print("<a href=\"javascript:select_data(\'", |
$r->print("<a href=\"javascript:select_data(\'", |
$titleesc,"','",$filelink,"')\">"); |
$titleesc,"','",$filelink,"')\">"); |
Line 841 sub display_line {
|
Line 857 sub display_line {
|
$r->print("</td><td nowrap>"); |
$r->print("</td><td nowrap>"); |
} elsif ($ENV{'form.catalogmode'} eq 'groupimport') { |
} elsif ($ENV{'form.catalogmode'} eq 'groupimport') { |
$title=$listname; |
$title=$listname; |
#$title = &Apache::lonnet::metadata($filelink,'title') |
$title = &Apache::lonnet::metadata($filelink,'title') |
#if ($metafile == 1); |
if ($metafile == 1); |
$title=$listname unless $title; |
$title=$listname unless $title; |
my $titleesc=&HTML::Entities::encode($title); |
my $titleesc=&HTML::Entities::encode($title,'<>&"'); |
$r->print("<form name='form$fnum'>\n"); |
$r->print("<form name='form$fnum'>\n"); |
$r->print("<input type='checkbox' name='filelink"."' ". |
$r->print("<input type='checkbox' name='filelink"."' ". |
"value='$filelink' onClick='". |
"value='$filelink' onClick='". |