--- loncom/metadata_database/searchcat.pl 2003/12/26 15:13:48 1.50 +++ loncom/metadata_database/searchcat.pl 2003/12/26 16:27:20 1.51 @@ -2,7 +2,7 @@ # The LearningOnline Network # searchcat.pl "Search Catalog" batch script # -# $Id: searchcat.pl,v 1.50 2003/12/26 15:13:48 www Exp $ +# $Id: searchcat.pl,v 1.51 2003/12/26 16:27:20 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -283,6 +283,9 @@ my $dbh; "version TEXT, notes TEXT, abstract TEXT, mime TEXT, language TEXT, ". "creationdate DATETIME, lastrevisiondate DATETIME, owner TEXT, ". "copyright TEXT, dependencies TEXT, ". + "modifyinguser TEXT, authorspace TEXT, ". + "lowestgradelevel INTEGER UNSIGNED, highestgradelevel INTEGER UNSIGNED, ". + "standards TEXT, ". "count INTEGER UNSIGNED, ". "course INTEGER UNSIGNED, course_list TEXT, ". "goto INTEGER UNSIGNED, goto_list TEXT, ". @@ -335,6 +338,11 @@ my $insert_sth = $dbh->prepare "?,". # owner "?,". # copyright "?,". # dependencies + "?,". # modifyinguser + "?,". # authorspace + "?,". # lowestgradelevel + "?,". # highestgradelevel + "?,". # standards "?,". # count "?,". # course "?,". # course_list @@ -395,6 +403,11 @@ foreach my $user (@homeusers) { $ref->{'owner'}, $ref->{'copyright'}, $ref->{'dependencies'}, + $ref->{'modifyinguser'}, + $ref->{'authorspace'}, + $ref->{'lowestgradelevel'}, + $ref->{'highestgradelevel'}, + $ref->{'standards'}, $dyn{'count'}, $dyn{'course'}, $dyn{'course_list'},