version 1.7, 2001/05/31 14:29:03
|
version 1.8, 2001/05/31 21:38:58
|
Line 23 my %dirs;
|
Line 23 my %dirs;
|
my %language; |
my %language; |
my $hidden; |
my $hidden; |
my $extrafield; |
my $extrafield; |
|
my $fnum=0; |
sub BEGIN { |
sub BEGIN { |
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/language.tab'); |
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/language.tab'); |
map { |
map { |
Line 75 END
|
Line 75 END
|
END |
END |
} |
} |
elsif ($ENV{'form.catalogmode'} eq 'groupimport') { |
elsif ($ENV{'form.catalogmode'} eq 'groupimport') { |
|
$extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'. |
|
'<a name="$anchor"><img src="'.$iconpath.'whitespace1.gif"'. |
|
' border="0"></td>'; |
$colspan=" colspan='2' "; |
$colspan=" colspan='2' "; |
$hidden=<<END; |
$hidden=<<END; |
<input type='hidden' name='catalogmode' value='groupimport'> |
<input type='hidden' name='catalogmode' value='groupimport'> |
Line 83 END
|
Line 86 END
|
<input type="button" name="close" value='CLOSE' onClick="self.close()"> |
<input type="button" name="close" value='CLOSE' onClick="self.close()"> |
END |
END |
$groupimportbutton=<<END; |
$groupimportbutton=<<END; |
<input type="button" name="groupimport" value='GROUP IMPORT' onClick="alert('not implemented')"> |
<input type="button" name="groupimport" value='GROUP IMPORT' onClick="javascript:select_group()"> |
END |
END |
} |
} |
|
|
Line 94 END
|
Line 97 END
|
function select_data(title,url) { |
function select_data(title,url) { |
changeTitle(title); |
changeTitle(title); |
changeURL(url); |
changeURL(url); |
|
self.close(); |
|
} |
|
function save_group() { |
|
for (var num=0; num<document.forms.fnum.fnum.value; num++) { |
|
if (eval("document.forms.form"+num+".filelink.checked")) { |
|
alert(eval("document.forms.form"+num+".title.value")+ |
|
eval("document.forms.form"+num+".filelink.value")); |
|
} |
|
} |
|
} |
|
function select_group() { |
|
for (var num=0; num<document.forms.fnum.fnum.value; num++) { |
|
if (eval("document.forms.form"+num+".filelink.checked")) { |
|
alert(eval("document.forms.form"+num+".title.value")+ |
|
eval("document.forms.form"+num+".filelink.value")); |
|
} |
|
} |
|
// changeTitle(title); |
|
// changeURL(url); |
} |
} |
function changeTitle(val) { |
function changeTitle(val) { |
if (opener.inf.document.forms.resinfo.elements.t) { |
if (opener.inf.document.forms.resinfo.elements.t) { |
Line 212 END
|
Line 234 END
|
my $indent = 0; |
my $indent = 0; |
&scanDir ($r,$toplevel,$indent); |
&scanDir ($r,$toplevel,$indent); |
|
|
|
$r->print("<form name='fnum'>"); |
|
$r->print("<input type='hidden' name='fnum' value='$fnum'></form>"); |
$r->print("</table>"); |
$r->print("</table>"); |
$r->print("</td></tr></table>"); |
$r->print("</td></tr></table>"); |
$r->print("</body></html>\n"); |
$r->print("</body></html>\n"); |
Line 375 sub display_line{
|
Line 399 sub display_line{
|
my @file_ext = split (/\./,$listname); |
my @file_ext = split (/\./,$listname); |
my $curfext = $file_ext[scalar(@file_ext)-1]; |
my $curfext = $file_ext[scalar(@file_ext)-1]; |
my $filelink = $startdir.$filecom[0]; |
my $filelink = $startdir.$filecom[0]; |
$r->print("<tr><td nowrap bgcolor=$fileclr>"); |
$r->print("<tr><td nowrap valign='bottom' bgcolor=$fileclr>"); |
my $metafile = grep /^$filecom[0]\.meta\&/, @list; |
my $metafile = grep /^$filecom[0]\.meta\&/, @list; |
my $title; |
my $title; |
if ($ENV{'form.catalogmode'} eq 'interactive') { |
if ($ENV{'form.catalogmode'} eq 'interactive') { |
$title=$listname; |
$title=$listname; |
$title = &Apache::lonnet::metadata($filelink,'title') if ($metafile == 1); |
$title = &Apache::lonnet::metadata($filelink,'title') |
|
if ($metafile == 1); |
$title=$listname unless $title; |
$title=$listname unless $title; |
$r->print("<a href='javascript:select_data(\"", |
$r->print("<a href='javascript:select_data(\"", |
$title,'","',$filelink,"\")'>"); |
$title,'","',$filelink,"\")'>"); |
$r->print("<img src='",$iconpath,"select.gif' border=0></a>\n"); |
$r->print("<img src='",$iconpath,"select.gif' border=0></a>\n"); |
$r->print("</td><td nowrap bgcolor=$fileclr>"); |
$r->print("</td><td valign='bottom' nowrap bgcolor=$fileclr>"); |
|
} |
|
elsif ($ENV{'form.catalogmode'} eq 'groupimport') { |
|
$title=$listname; |
|
$title = &Apache::lonnet::metadata($filelink,'title') |
|
if ($metafile == 1); |
|
$title=$listname unless $title; |
|
$r->print("<form name='form$fnum'>\n"); |
|
$r->print("<input type='checkbox' name='filelink"."' ". |
|
"value='$filelink'>\n"); |
|
$r->print("<input type='hidden' name='title"."' ". |
|
"value='$title'>\n"); |
|
$r->print("</form>\n"); |
|
$r->print("</td><td valign='bottom' nowrap bgcolor=$fileclr>"); |
|
$fnum++; |
} |
} |
|
|
if ($indent < 11) { |
if ($indent < 11) { |