#################################################################### # Modify Multiple Records # Last edited 14 Aug 2000 # All subroutines copied from Links 2, with minor modifications #################################################################### # delicia - may need some work in validation for universal date translator #################################################################### # In html.pl, sub html_modify_search, after &html_record_form(); # add print qq|
Modify Multiple records at once: |; #################################################################### # Add the following subroutines to html.pl sub html_record_form_mult { # -------------------------------------------------------- # my (%rec) = @_; print &build_html_mult_record_form (%rec); } sub html_modify_mult_form { # -------------------------------------------------------- # The user has searched the database and requested to modify multiple # records at once. A form for each record is present along with a checkbox # on which record to use. # my ($status, @hits) = &query("mod"); my ($numhits) = ($#hits+1) / ($#db_cols+1); if (($numhits == 1) and !$in{'nh'}) { $in{'modify'} = $hits[$db_key_pos]; &html_modify_form_record(); return; } &html_print_headers(); print qq|