--- loncom/metadata_database/searchcat.pl 2002/10/08 15:09:36 1.21 +++ loncom/metadata_database/searchcat.pl 2002/10/18 13:54:31 1.24 @@ -2,7 +2,7 @@ # The LearningOnline Network # searchcat.pl "Search Catalog" batch script # -# $Id: searchcat.pl,v 1.21 2002/10/08 15:09:36 www Exp $ +# $Id: searchcat.pl,v 1.24 2002/10/18 13:54:31 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -45,6 +45,7 @@ use IO::File; use HTML::TokeParser; use DBI; use GDBM_File; +use POSIX qw(strftime mktime); my @metalist; @@ -57,6 +58,14 @@ sub unescape { return $str; } +# -------------------------------------------------------- Escape Special Chars + +sub escape { + my $str=shift; + $str =~ s/(\W)/"%".unpack('H2',$1)/eg; + return $str; +} + # ------------------------------------------- Code to evaluate dynamic metadata @@ -76,7 +85,7 @@ sub dynamicmeta { my ($adomain,$aauthor)=($url=~/^(\w+)\/(\w+)\//); my $prodir=&propath($adomain,$aauthor); if (tie(%evaldata,'GDBM_File', - $prodir.'/nohist_resevaldata.db',&GDBM_READER,0640)) { + $prodir.'/nohist_resevaldata.db',&GDBM_WRCREAT(),0640)) { my %sum=(); my %cnt=(); my %listitems=('count' => 'add', @@ -98,32 +107,44 @@ sub dynamicmeta { foreach (keys %evaldata) { my $key=&unescape($_); if ($key=~/$regexp/) { - if (defined($cnt{$1})) { $cnt{$1}++; } else { $cnt{$1}=1; } - unless ($listitems{$1} eq 'app') { - if (defined($sum{$1})) { - $sum{$1}+=$evaldata{$_}; - } else { - $sum{$1}=$evaldata{$_}; + my $ctype=$1; + if (defined($cnt{$ctype})) { + $cnt{$ctype}++; + } else { + $cnt{$ctype}=1; + } + unless ($listitems{$ctype} eq 'app') { + if (defined($sum{$ctype})) { + $sum{$ctype}+=$evaldata{$_}; + } else { + $sum{$ctype}=$evaldata{$_}; + } + } else { + if (defined($sum{$ctype})) { + if ($evaldata{$_}) { + $sum{$ctype}.='