loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonsearchcat.pm between versions 1.110 and 1.116

version 1.110, 2001/12/11 03:18:39	version 1.116, 2002/03/07 20:12:36
Line 28	Line 28
# YEAR=2001	# YEAR=2001
# 3/8, 3/12, 3/13, 3/14, 3/15, 3/19 Scott Harrison	# 3/8, 3/12, 3/13, 3/14, 3/15, 3/19 Scott Harrison
# 3/20, 3/21, 3/22, 3/26, 3/27, 4/2, 8/15, 8/24, 8/25 Scott Harrison	# 3/20, 3/21, 3/22, 3/26, 3/27, 4/2, 8/15, 8/24, 8/25 Scott Harrison
# 10/12,10/14,10/15,10/16,11/28,11/29,12/10 Scott Harrison	# 10/12,10/14,10/15,10/16,11/28,11/29,12/10,12/12,12/16 Scott Harrison
	# YEAR=2002
	# 1/17 Scott Harrison
#	#
###	###

Line 54 use Apache::File();	Line 56 use Apache::File();
use CGI qw(:standard);	use CGI qw(:standard);
use Text::Query;	use Text::Query;
use GDBM_File;	use GDBM_File;
	use Apache::loncommon();

# ---------------------------------------- variables used throughout the module	# ---------------------------------------- variables used throughout the module

# -- information holders	# -- information holders
my %language; # holds contents of language.tab
my %cprtag; # holds contents of copyright.tab
my %mimetag; # holds contents of filetypes.tab
my %hostdomains; # matches host name to host domain	my %hostdomains; # matches host name to host domain
my %hostips; # matches host name to host ip	my %hostips; # matches host name to host ip
my %hitcount; # stores number of hits per host	my %hitcount; # stores number of hits per host
Line 97 my $advancedviewselect=<<END;	Line 97 my $advancedviewselect=<<END;
END	END

# ----------------------------------------------------------------------- BEGIN	# ----------------------------------------------------------------------- BEGIN
sub BEGIN {	BEGIN {
# --------------------------------- Compute various listings of metadata values
$language{'any'}='Any language';
{
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.
'/language.tab');
while (<$fh>) {
$_=~/(\w+)\s+([\w\s\-]+)/; chomp;
$language{$1}=$2;
}
}
$cprtag{'any'}='Any copyright/distribution';
{
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonIncludes'}.
'/copyright.tab');
while (<$fh>) {
$_=~/(\w+)\s+([\w\s\-]+)/; chomp;
$cprtag{$1}=$2;
}
}
$mimetag{'any'}='Any type';
{
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.
'/filetypes.tab');
while (<$fh>) {
if (/^\S/ and !/^\#/) {
$_=~/(\S+)\s+(\S+)\s+([\S\s\-]+)/; chomp;
$mimetag{$1}=".$1 $3";
}
}
}
{	{
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.	my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.
'/hosts.tab');	'/hosts.tab');
Line 148 my $domain = "";	Line 118 my $domain = "";
sub handler {	sub handler {
my $r = shift;	my $r = shift;
untie %hash;	untie %hash;
&get_unprocessed_cgi();

$r->content_type('text/html');	$r->content_type('text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;

$domain = $r->dir_config('lonDefDomain');	$domain = $r->dir_config('lonDefDomain');

$diropendb= "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_searchcat.db";	$diropendb= "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_searchcat.db";

	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
	['catalogmode','launch','acts']);

if ($ENV{'form.launch'} eq '1') {	if ($ENV{'form.launch'} eq '1') {
if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) {	if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) {
&start_fresh_session();	&start_fresh_session();
Line 235 END	Line 206 END

$ENV{'form.mime'}='any' unless length($ENV{'form.mime'});	$ENV{'form.mime'}='any' unless length($ENV{'form.mime'});
$scrout.=&selectbox('Limit by MIME type','mime',	$scrout.=&selectbox('Limit by MIME type','mime',
$ENV{'form.mime'},%mimetag);	$ENV{'form.mime'},
	'any','Any type',
	\&{Apache::loncommon::filedescriptionex},
	(&Apache::loncommon::fileextensions));

$ENV{'form.language'}='any' unless length($ENV{'form.language'});	$ENV{'form.language'}='any' unless length($ENV{'form.language'});

$scrout.=&selectbox('Limit by language','language',	$scrout.=&selectbox('Limit by language','language',
$ENV{'form.language'},%language);	$ENV{'form.language'},'any','Any Language',
	\&{Apache::loncommon::languagedescription},
	(&Apache::loncommon::languageids),
	);

# ------------------------------------------------ Compute date selection boxes	# ------------------------------------------------ Compute date selection boxes
$scrout.=<<CREATIONDATESTART;	$scrout.=<<CREATIONDATESTART;
Line 292 LASTREVISIONDATEEND	Line 268 LASTREVISIONDATEEND

$ENV{'form.copyright'}='any' unless length($ENV{'form.copyright'});	$ENV{'form.copyright'}='any' unless length($ENV{'form.copyright'});
$scrout.=&selectbox('Limit by copyright/distribution','copyright',	$scrout.=&selectbox('Limit by copyright/distribution','copyright',
$ENV{'form.copyright'},%cprtag);	$ENV{'form.copyright'},
	'any','Any copyright/distribution',
	\&{Apache::loncommon::copyrightdescription},
	(&Apache::loncommon::copyrightids),
	);

# ------------------------------------------- Compute customized metadata field	# ------------------------------------------- Compute customized metadata field
$scrout.=<<CUSTOMMETADATA;	$scrout.=<<CUSTOMMETADATA;
Line 326 $scrout.=' <i>initial users of this syst	Line 306 $scrout.=' <i>initial users of this syst
<script type="text/javascript">	<script type="text/javascript">
function openhelp(val) {	function openhelp(val) {
openhelpwin=open('/adm/help/searchcat.html','helpscreen',	openhelpwin=open('/adm/help/searchcat.html','helpscreen',
'scrollbars=1,width=400,height=300');	'scrollbars=1,width=600,height=300');
openhelpwin.focus();	openhelpwin.focus();
}	}
</script>	</script>
Line 376 ENDDOCUMENT	Line 356 ENDDOCUMENT
return OK;	return OK;
}	}

# ----------- grab unprocessed CGI variables that may have been appended to URL
sub get_unprocessed_cgi {
foreach (split(/&/,$ENV{'QUERY_STRING'})) {
my ($name, $value) = split(/=/,$_);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
if ($name eq 'catalogmode' or $name eq 'launch' or $name eq 'acts') {
$ENV{'form.'.$name}=$value;
}
}
}

# ------------------------------------------------------------- make persistent	# ------------------------------------------------------------- make persistent
sub make_persistent {	sub make_persistent {
my $persistent='';	my $persistent='';
Line 578 END	Line 546 END
}	}

sub selectbox {	sub selectbox {
my ($title,$name,$value,%options)=@_;	my ($title,$name,$value,$anyvalue,$anytag,$functionref,@idlist)=@_;
my $uctitle=uc($title);	my $uctitle=uc($title);
my $selout="\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:".	my $selout="\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:".
"</b></font><br />".'<select name="'.$name.'">';	"</b></font><br />".'<select name="'.$name.'">';
foreach (sort keys %options) {	foreach ($anyvalue,@idlist) {
$selout.='<option value=\''.$_.'\'';	$selout.='<option value=\''.$_.'\'';
if ($_ eq $value) { $selout.=' selected'; }	if ($_ eq $value and !/^any$/) {
$selout.='>'.$options{$_}.'</option>';	$selout.=' selected>'.&{$functionref}($_).'</option>';
	}
	elsif ($_ eq $value and /^$anyvalue$/) {
	$selout.=' selected>'.$anytag.'</option>';
	}
	else {$selout.='>'.&{$functionref}($_).'</option>';}
}	}
return $selout.'</select>';	return $selout.'</select>';
}	}

	sub testf {
	return @_[0];
	}

# ----------------------------------------------- Performing an advanced search	# ----------------------------------------------- Performing an advanced search
sub advancedsearch {	sub advancedsearch {
my ($r,$envhash)=@_;	my ($r,$envhash)=@_;
Line 987 RESULTS	Line 964 RESULTS
$grid.=$sk;	$grid.=$sk;
my $hc;	my $hc;
if ($rhash{$sk} eq 'con_lost') {	if ($rhash{$sk} eq 'con_lost') {
$hc="!!!BAD CONNECTION, CONTACT SYSTEM ADMINISTRATOR!!!";	$hc="BAD CONNECTION, CONTACT SYSTEM ADMINISTRATOR ";
}	}
else {	else {
$hc="'+\"'\"+\"+hc['$sk']+\"+\"'\"+'";	$hc="'+\"'\"+\"+hc['$sk']+\"+\"'\"+'";
Line 1006 RESULTS	Line 983 RESULTS
}	}
$r->print(<<ENDPOP);	$r->print(<<ENDPOP);
<script type="text/javascript">	<script type="text/javascript">
popwin=open('','popwin','scrollbars=1,width=400,height=200');	popwin=open('','popwin','scrollbars=1,width=400,height=220');
popwin.focus();	popwin.focus();
popwin.document.writeln('<'+'html>');	popwin.document.writeln('<'+'html>');
popwin.document.writeln('<'+'head>');	popwin.document.writeln('<'+'head>');
Line 1034 RESULTS	Line 1011 RESULTS
$grid	$grid
'<'+'br />'+	'<'+'br />'+
'Server details '+	'Server details '+
'<'+'input type="text" size="25" name="sdetails"'+	'<'+'input type="text" size="35" name="sdetails"'+
' value="" />'+	' value="" />'+
'<'+'br />'+	'<'+'br />'+
' <'+'input type="button" name="button"'+	' <'+'input type="button" name="button"'+
Line 1242 END	Line 1219 END
$compiledresult.=<<END;	$compiledresult.=<<END;
<p>	<p>
END	END
$compiledresult.=<<END if $ENV{'form.catalogmode'} eq 'interactive';	if ($ENV{'form.catalogmode'} eq 'interactive') {
	my $titleesc=$title;
	$titleesc=~s/\'/\\'/; # '

	$compiledresult.=<<END if ($ENV{'form.catalogmode'} eq 'interactive');
<font size='-1'><INPUT TYPE="button" NAME="returnvalues" VALUE="SELECT"	<font size='-1'><INPUT TYPE="button" NAME="returnvalues" VALUE="SELECT"
onClick="javascript:select_data('$title','$url')">	onClick="javascript:select_data('$titleesc','$url')">
</font>	</font>
<br />	<br />
END	END
	}
if ($ENV{'form.catalogmode'} eq 'groupsearch') {	if ($ENV{'form.catalogmode'} eq 'groupsearch') {
$fnum+=0;	$fnum+=0;
$hash{"pre_${fnum}_link"}=$url;	$hash{"pre_${fnum}_link"}=$url;
Line 1333 sub detailed_citation_view {	Line 1315 sub detailed_citation_view {
<b>Subject:</b> $subject<br />	<b>Subject:</b> $subject<br />
<b>Keyword(s):</b> $keywords<br />	<b>Keyword(s):</b> $keywords<br />
<b>Notes:</b> $notes<br />	<b>Notes:</b> $notes<br />
<b>MIME Type:</b> $mimetag{$mime}<br />	<b>MIME Type:</b>
<b>Language:</b> $language{$lang}<br />	END
<b>Copyright/Distribution:</b> $cprtag{$copyright}<br />	$result.=&Apache::loncommon::filedescription($mime);
	$result.=<<END;
	<br />
	<b>Language:</b>
	END
	$result.=&Apache::loncommon::languagedescription($lang);
	$result.=<<END;
	<br />
	<b>Copyright/Distribution:</b>
	END
	$result.=&Apache::loncommon::copyrightdescription($copyright);
	$result.=<<END;
	<br />
</p>	</p>
$extrashow	$extrashow
<p>	<p>
Line 1351 sub summary_view {	Line 1345 sub summary_view {
$notes,$shortabstract,$mime,$lang,	$notes,$shortabstract,$mime,$lang,
$creationdate,$lastrevisiondate,$owner,$copyright,	$creationdate,$lastrevisiondate,$owner,$copyright,
$hostname,$httphost,$extrashow)=@_;	$hostname,$httphost,$extrashow)=@_;
	my $cprtag=&Apache::loncommon::copyrightdescription($copyright);
my $result=<<END;	my $result=<<END;
<a href="http://$httphost$url" TARGET='search_preview'>$author</a><br />	<a href="http://$httphost$url" TARGET='search_preview'>$author</a><br />
$title<br />	$title<br />
$owner -- $lastrevisiondate<br />	$owner -- $lastrevisiondate<br />
$cprtag{$copyright}<br />	$cprtag<br />
$extrashow	$extrashow
</p>	</p>
END	END
Line 1368 sub fielded_format_view {	Line 1363 sub fielded_format_view {
$notes,$shortabstract,$mime,$lang,	$notes,$shortabstract,$mime,$lang,
$creationdate,$lastrevisiondate,$owner,$copyright,	$creationdate,$lastrevisiondate,$owner,$copyright,
$hostname,$httphost,$extrashow)=@_;	$hostname,$httphost,$extrashow)=@_;
	my $mimetag=&Apache::loncommon::filedescription($mime);
	my $language=&Apache::loncommon::languagedescription($lang);
	my $cprtag=&Apache::loncommon::copyrightdescription($copyright);
my $result=<<END;	my $result=<<END;
<b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A>	<b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A>
<br />	<br />
Line 1376 sub fielded_format_view {	Line 1374 sub fielded_format_view {
<b>Subject:</b> $subject<br />	<b>Subject:</b> $subject<br />
<b>Keyword(s):</b> $keywords<br />	<b>Keyword(s):</b> $keywords<br />
<b>Notes:</b> $notes<br />	<b>Notes:</b> $notes<br />
<b>MIME Type:</b> $mimetag{$mime}<br />	<b>MIME Type:</b> $mimetag<br />
<b>Language:</b> $language{$lang}<br />	<b>Language:</b> $language<br />
<b>Creation Date:</b> $creationdate<br />	<b>Creation Date:</b> $creationdate<br />
<b>Last Revision Date:</b> $lastrevisiondate<br />	<b>Last Revision Date:</b> $lastrevisiondate<br />
<b>Publisher/Owner:</b> $owner<br />	<b>Publisher/Owner:</b> $owner<br />
<b>Copyright/Distribution:</b> $cprtag{$copyright}<br />	<b>Copyright/Distribution:</b> $cprtag<br />
<b>Repository Location:</b> $hostname<br />	<b>Repository Location:</b> $hostname<br />
<b>Abstract:</b> $shortabstract<br />	<b>Abstract:</b> $shortabstract<br />
$extrashow	$extrashow
Line 1396 sub xml_sgml_view {	Line 1394 sub xml_sgml_view {
$notes,$shortabstract,$mime,$lang,	$notes,$shortabstract,$mime,$lang,
$creationdate,$lastrevisiondate,$owner,$copyright,	$creationdate,$lastrevisiondate,$owner,$copyright,
$hostname,$httphost,$extrashow)=@_;	$hostname,$httphost,$extrashow)=@_;
	my $cprtag=&Apache::loncommon::copyrightdescription($copyright);
	my $mimetag=&Apache::loncommon::filedescription($mime);
	my $language=&Apache::loncommon::languagedescription($lang);
my $result=<<END;	my $result=<<END;
<pre>	<pre>
<LonCapaResource>	<LonCapaResource>
Line 1407 sub xml_sgml_view {	Line 1408 sub xml_sgml_view {
<notes>$notes</notes>	<notes>$notes</notes>
<mimeInfo>	<mimeInfo>
<mime>$mime</mime>	<mime>$mime</mime>
<mimetag>$mimetag{$mime}</mimetag>	<mimetag>$mimetag</mimetag>
</mimeInfo>	</mimeInfo>
<languageInfo>	<languageInfo>
<language>$lang</language>	<language>$lang</language>
<languagetag>$language{$lang}</languagetag>	<languagetag>$language</languagetag>
</languageInfo>	</languageInfo>
<creationdate>$creationdate</creationdate>	<creationdate>$creationdate</creationdate>
<lastrevisiondate>$lastrevisiondate</lastrevisiondate>	<lastrevisiondate>$lastrevisiondate</lastrevisiondate>
<owner>$owner</owner>	<owner>$owner</owner>
<copyrightInfo>	<copyrightInfo>
<copyright>$copyright</copyright>	<copyright>$copyright</copyright>
<copyrighttag>$cprtag{$copyright}</copyrighttag>	<copyrighttag>$cprtag</copyrighttag>
</copyrightInfo>	</copyrightInfo>
<repositoryLocation>$hostname</repositoryLocation>	<repositoryLocation>$hostname</repositoryLocation>
<shortabstract>$shortabstract</shortabstract>	<shortabstract>$shortabstract</shortabstract>
Line 1553 This routine is only run once after comp	Line 1554 This routine is only run once after comp

=item *	=item *

Initializes %language hash table.

=item *

Initializes %cprtag hash table (for copyright.tab).

=item *

Initializes %mimetag hash table (for filetypes.tab).

=item *

Initializes %hostdomains and hostips hash table (for hosts.tab).	Initializes %hostdomains and hostips hash table (for hosts.tab).

=back	=back

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.110
changed lines
	Added in v.1.116