[Koha-cvs] CVS: koha/opac opac-sidebar.pl,1.1.2.1,1.1.2.2

[Finlay Thompson]

Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1:/tmp/cvs-serv11949

Modified Files:
      Tag: rel-1-2
	opac-sidebar.pl 
Log Message:

small change so that after loggin in you go back to the same page


Index: opac-sidebar.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/Attic/opac-sidebar.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -r1.1.2.1 -r1.1.2.2
*** opac-sidebar.pl	28 Nov 2002 21:34:03 -0000	1.1.2.1
--- opac-sidebar.pl	28 Nov 2002 21:40:57 -0000	1.1.2.2
***************
*** 16,18 ****
--- 16,30 ----
  			 });
  
+ my @inputs =();
+ foreach my $name (param $query) {
+     (next) if ($name eq 'userid' || $name eq 'password');
+     my $value = $query->param($name);
+     push @inputs, {name => $name , value => $value};
+ }
+ 
+ $template->param(INPUTS => \@inputs);
+ 
+ my $self_url = $query->url(-absolute => 1);
+ $template->param(url => $self_url);
+ 
  print $query->header(-cookie => $cookie), $template->output;