[Koha-cvs] CVS: koha member-flags.pl,1.3,1.4

[Mike Hansen]

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

Modified Files:
	member-flags.pl 
Log Message:
Fixed bug #340 and templated member-flags.tmpl


Index: member-flags.pl
===================================================================
RCS file: /cvsroot/koha/koha/member-flags.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** member-flags.pl	4 Feb 2003 05:20:10 -0000	1.3
--- member-flags.pl	13 Apr 2003 04:08:56 -0000	1.4
***************
*** 14,17 ****
--- 14,19 ----
  use C4::Circulation::Circ2;
  #use C4::Acquisitions;
+ use HTML::Template;
+ use C4::Interface::CGI::Output;
  
  my $input = new CGI;
***************
*** 20,24 ****
  $flagsrequired->{borrowers}=1;
  $flagsrequired->{permissions}=1;
! my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
  
  my $member=$input->param('member');
--- 22,36 ----
  $flagsrequired->{borrowers}=1;
  $flagsrequired->{permissions}=1;
! 
! my ($template, $loggedinuser, $cookie)
!     = get_template_and_user({template_name => "member-flags.tmpl",
!                              query => $input,
!                              type => "intranet",
!                              authnotrequired => 0,
!                              debug => 1,
!                              });
! 
! 
! 
  
  my $member=$input->param('member');
***************
*** 32,35 ****
--- 44,48 ----
      $i++;
  }
+ 
  if ($input->param('newflags')) {
      my $dbh=C4::Context->dbh();
***************
*** 50,54 ****
      my $sth=$dbh->prepare("select bit,flag,flagdesc from userflags order by bit");
      $sth->execute;
!     my $flagtext='';
      while (my ($bit, $flag, $flagdesc) = $sth->fetchrow) {
  	my $checked='';
--- 63,67 ----
      my $sth=$dbh->prepare("select bit,flag,flagdesc from userflags order by bit");
      $sth->execute;
!     my @loop;
      while (my ($bit, $flag, $flagdesc) = $sth->fetchrow) {
  	my $checked='';
***************
*** 56,80 ****
  	    $checked='checked';
  	}
! 	$flagtext.="<tr><td><input type=checkbox name=flag-$bit $checked></td><td>$flag</td><td>$flagdesc</td></tr>\n";
      }
-     print $input->header(-cookie => $cookie);
-     print startpage();
-     print startmenu('member');
-     print qq|
-     <h2>$bor->{'surname'}, $bor->{'firstname'}</h2>
-     <form method=post>
-     <input type=hidden name=member value=$member>
-     <input type=hidden name=newflags value=1>
-     <table border=1>
-     <tr><th background=/koha/images/background-mem.gif colspan=3>FLAGS</th></tr>
-     $flagtext
-     </table>
- 
-     <p>
-     <input type=submit value="Set Flags">
-     </form>
-     |;
  
!     print endmenu('member');
!     print endpage();
  }
--- 69,85 ----
  	    $checked='checked';
  	}
! 	my %row = ( bit => $bit,
! 		 flag => $flag,
! 		 checked => $checked,
! 		 flagdesc => $flagdesc );
! 	push @loop, \%row;
      }
  
!     $template->param(member => $member,
! 			surname => $bor->{'surname'},
! 			firstname => $bor->{'firstname'},
! 			loop => \@loop);
! 
!     output_html_with_http_headers $input, $cookie, $template->output;
! 
  }