- print $input->header;
- print startpage();
- print startmenu('catalogue');
- print $error;
- my @subs=split('\n',$error);
- print "<p> Click submit to force the subject";
- my @names=$input->param;
- my %data;
- my $count=@names;
- for (my $i=0;$i<$count;$i++) {
- if ($names[$i] ne 'Force') {
- my $value=$input->param("$names[$i]");
- $data{$names[$i]}="hidden\t$value\t$i";
- } # if
- } # for
- $data{"Force"}="hidden\t$subs[0]\t$count";
- print mkform3('updatebiblio.pl',%data);
- print endmenu();
- print endpage();
+ my ($template, $loggedinuser, $cookie) = get_template_and_user({
+ template_name => "updatebiblio.tmpl",
+ query => $input,
+ type => "intranet",
+ flagsrequired => {catalogue => 1},
+ });
+
+
+ my @subs=split('\n',$error);
+ my @names=$input->param;
+ my $count=@names;
+ my @dataloop;
+ for (my $i=0;$i<$count;$i++) {
+ if ($names[$i] ne 'Force') {
+ my %line;
+ $line{'value'}=$input->param("$names[$i]");
+ $line{'name'}=$names[$i];
+ push(@dataloop, \%line);
+ } # if
+ } # for
+ $template->param(substring =>$subs[0],
+ error =>$error,
+ dataloop => \@dataloop);
+ print "Content-Type: text/html\n\n", $template->output;