Index: openacs-4/contrib/packages/irc-logger/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/irc-logger/www/admin/index.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/contrib/packages/irc-logger/www/admin/index.tcl 10 Feb 2003 21:21:06 -0000 1.2 +++ openacs-4/contrib/packages/irc-logger/www/admin/index.tcl 11 Feb 2003 21:49:54 -0000 1.3 @@ -39,16 +39,23 @@ # Create a data source of remaining RDF log files in the log directory -multirow create rdf_logs date view_href update_href +multirow create rdf_logs desc date view_href update_href set rdf_dir [parameter::get \ -parameter irc_rdf_dir \ -package_id $package_id \ -default ""] + +# First a link to update all RDF log files. + +multirow append rdf_logs "All RDF log files" "*" {} update?[export_vars -url {{date *}}] + +# Followed by links to individual RDF log files. + foreach rdf_log [glob -nocomplain -directory $rdf_dir *.rdf] { set date [file rootname [file tail $rdf_log]] if {[file writable $rdf_log]} { - multirow append rdf_logs $date ../../$date update?[export_vars -url {date $date}] + multirow append rdf_logs $date $date ../../$date update?[export_vars -url {date $date}] } else { - multirow append rdf_logs $date ../../$date {} + multirow append rdf_logs $date $date ../../$date {} } }