--- loncom/metadata_database/searchcat.pl 2003/12/27 23:04:28 1.53 +++ loncom/metadata_database/searchcat.pl 2004/01/05 15:54:22 1.54 @@ -2,7 +2,7 @@ # The LearningOnline Network # searchcat.pl "Search Catalog" batch script # -# $Id: searchcat.pl,v 1.53 2003/12/27 23:04:28 www Exp $ +# $Id: searchcat.pl,v 1.54 2004/01/05 15:54:22 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -388,8 +388,13 @@ foreach my $user (@homeusers) { $m2=~s/\.meta$//; if ($ref->{'obsolete'}) { print LOG "obsolete\n"; next; } if ($ref->{'copyright'} eq 'private') { print LOG "private\n"; next; } - my %dyn=&dynamicmeta($m2); - &count($m2); + my %dyn=(); + if ($m2=~/\/default$/) { + $m2=~s/\/default$/\//; + } else { + %dyn=&dynamicmeta($m2); + &count($m2); + } unless ($insert_sth->execute( $ref->{'title'}, $ref->{'author'}, @@ -550,8 +555,10 @@ sub propath { # ---------------------------- convert 'time' format into a datetime sql format sub sqltime { + my $time=&unsqltime(@_[0]); + unless ($time) { return 'NULL'; } my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = - localtime(&unsqltime(@_[0])); + localtime($time); $mon++; $year+=1900; return "$year-$mon-$mday $hour:$min:$sec"; }