[Koha-cvs] CVS: koha modbibitem.pl,1.10,1.11

[Henri-Damien LAURENT]

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

Modified Files:
        modbibitem.pl 
Log Message:
Templating : modbibitem.pl modbibitem.tmpl

Index: modbibitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/modbibitem.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** modbibitem.pl       13 Oct 2002 07:33:31 -0000      1.10
--- modbibitem.pl       15 Dec 2002 17:38:20 -0000      1.11
***************
*** 32,35 ****
--- 32,36 ----
  use C4::Koha;
  use CGI;
+ use HTML::Template;
  
  
***************
*** 42,54 ****
    print 
$input->redirect("deletebiblioitem.pl?biblioitemnumber=$bibitemnum&biblionumber=$biblio");
  }
! print $input->header;
! #my ($count,$subject)=subject($data->{'biblionumber'});
! #my ($count2,$subtitle)=subtitle($data->{'biblionumber'});
! #my ($count3,$addauthor)=addauthor($data->{'biblionumber'});
! 
! #my ($analytictitle)=analytic($biblionumber,'t');
! #my ($analyticauthor)=analytic($biblionumber,'a');
! print startpage();
! print startmenu('catalogue');
  my %inputs;
  
--- 43,49 ----
    print 
$input->redirect("deletebiblioitem.pl?biblioitemnumber=$bibitemnum&biblionumber=$biblio");
  }
! 
! my $template = gettemplate("modbibitem.tmpl");
! 
  my %inputs;
  
***************
*** 88,217 ****
  $inputs{'bibitemnum'}="hidden\t$data->{'biblioitemnumber'}\t21";
  
! print <<printend
  
! <BLOCKQUOTE><FONT SIZE=6>
! <em><a 
href=/cgi-bin/koha/detail.pl?bib=$data->{'biblionumber'}&type=intra>$data->{'title'}
 ($data->{'author'})</a><br>
! Modify Group - $data->{'description'}</em></FONT><br>
! <form action=updatebibitem.pl method=post>
! <table border=0 cellspacing=0 cellpadding=5 align=left>
  
! <TR VALIGN=TOP  bgcolor="99cc33">
! <TD  bgcolor="99cc33" background="/images/background-mem.gif" colspan=2 
><b><input type=radio name=existing value=YES > RE-ASSIGN TO EXISTING 
GROUP</b></td></tr>
  
- printend
- ;
- my ($count,@bibitems)=bibitems($data->{'biblionumber'});
- print "<tr valign=top><td colspan=3><select name=existinggroup>\n";
  for (my $i=0;$i<$count;$i++){
!   print "<option 
value=$bibitems[$i]->{'biblioitemnumber'}>$bibitems[$i]->{'description'} - 
$bibitems[$i]->{'isbn'}\n";
  }
! print "</select></td></tr>";
! my $notesinput=$input->textfield(-name=>'Notes', -default=>$data->{'bnotes'}, 
-size=>20);
! 
! print <<printend
! <TR VALIGN=TOP  bgcolor="99cc33">
! <TD  bgcolor="99cc33" background="/images/background-mem.gif" colspan=2 
><b><input type=radio name=existing value=NO checked >OR MODIFY 
DETAILS</b></td></tr>
! 
! 
! 
! <tr valign=top bgcolor=white><td>Item Type</td><td><input type=text name=Item 
Type value="$data->{'itemtype'}" size=20></td></tr>
! 
! <tr valign="top" bgcolor="white">
! <td>URL</td>
! <td><input type="text" name="url" value="$data->{'url'}" size="20"></td>
! </tr>
! 
! <tr valign=top bgcolor=white><td>Class</td><td><input type=text name=Class 
value="$data->{'classification'}$dewey$data->{'subclass'}" size=20></td></tr>
! 
! 
! 
! <tr valign=top bgcolor=white><td>Publisher</td><td><input type=text 
name=Publisher value="$data->{'publishercode'}" size=20></td></tr>
! <tr valign=top bgcolor=white><td>Place</td><td><input type=text name=Place 
value="$data->{'place'}" size=20></td></tr>
! 
! 
! <tr valign=top bgcolor=white><td>ISBN</td><td><input type=text name=ISBN 
value="$data->{'isbn'}" size=20></td></tr>
! 
! <tr valign=top bgcolor=white><td>Publication Year</td><td><input type=text 
name=Publication Year value="$data->{'publicationyear'}" size=20></td></tr>
! 
! <tr valign=top bgcolor=white><td>Pages</td><td><input type=text name=Pages 
value="$data->{'pages'}" size=20></td></tr>
! 
! <tr valign=top bgcolor=white><td>Illustrations</td><td><input type=text 
name=Illustrations value="$data->{'illustration'}" size=20></td></tr>
  
- <tr valign=top bgcolor=white><td>Volume</td>
- <td><input type=text name=Volume value="$data->{'volumeddesc'}" 
size=20></td></tr>
- <tr valign=top bgcolor=white><td>Notes</td>
- <td>$notesinput</td></tr>
- <tr valign=top bgcolor=white><td>Size</td>
- <td><input type=text name=Size value="$data->{'size'}" size=20></td></tr>
  
! <input type=hidden name=bibnum value="$data->{'biblionumber'}">
  
! <input type=hidden name=bibitemnum value="$data->{'biblioitemnumber'}">
  
! </table>
  
- <img src="/images/holder.gif" width=16 height=500 align=left>
- 
- 
- 
- 
- <TABLE  cellspacing=0 cellpadding=5 border=0 >
- printend
- ;
- 
- 
- print <<printend;
- <TR VALIGN=TOP  bgcolor="99cc33">
- <TD  bgcolor="99cc33" background="/images/background-mem.gif" colspan=5 
><b>CHANGES TO AFFECT THESE BARCODES<br>
- Tick ALL barcodes that changes are to apply too. Those left un-ticked will 
keep the original group record.</td></tr>
- 
- <tr valign=top bgcolor=99cc33>
- <td background="/images/background-mem.gif">&nbsp;</td>
- <td background="/images/background-mem.gif">Barcode</td>
- <td background="/images/background-mem.gif">Location</td>
- <td background="/images/background-mem.gif">Date Due</td>
- <td background="/images/background-mem.gif">Last Seen</td></tr>
- 
- printend
- ;
  my (@items)=itemissues($data->{'biblioitemnumber'});
  #print @items;
  my address@hidden;
  for (my $i=0;$i<$count;$i++){
!   $items[$i]->{'datelastseen'} = slashifyDate($items[$i]->{'datelastseen'});
!   print <<printend
! <tr valign=top gcolor=#ffffcc>
! <td><input type=checkbox name="check_group_$items[$i]->{'barcode'}"></td>
! <td><a 
href="/cgi-bin/koha/moredetail.pl?item=$items[$i]->{'itemnumber'}&bib=$data->{'biblionumber'}&bi=$data->{'biblioitemnumber'}">$items[$i]->{'barcode'}</a></td>
! <td>$items[$i]->{'holdingbranch'}</td>
! <td></td>
! <td>$items[$i]->{'datelastseen'}</td>
! </tr>
! printend
! ;
  }
! print <<printend
! 
! </table>
! <p>
! 
! <input type=image  name=submit src=/images/save-changes.gif border=0 
width=187 height=42>
! 
! 
! </form>
! <p>
! 
! 
! <B>HELP:</B> You <b>must</b> click on the appropriate radio button (in the 
green boxes), and choose to either re-assign the item/s to a record already in 
the system, or modify this record.  IF your changes only apply to some
!  items, tick the appropriate ones and a new group record will be created 
automatically for them.
!  <br clear=all>
! 
!  <p> &nbsp; </p>
! 
! 
! printend
! ;
! 
  
- print endmenu();
- print endpage();
--- 83,141 ----
  $inputs{'bibitemnum'}="hidden\t$data->{'biblioitemnumber'}\t21";
  
! $template->param( biblionumber => $data->{'biblionumber'},
!                                                               title => 
$data->{'title'},
!                                                               author => 
$data->{'author'},
!                                                               description => 
$data->{'description'});
  
! my ($count,@bibitems)=bibitems($data->{'biblionumber'});
  
! my @bibitemloop;
  
  for (my $i=0;$i<$count;$i++){
!       my %line;
!       $line{biblioitemnumber} = $bibitems[$i]->{'biblioitemnumber'};
!       $line{description} = $bibitems[$i]->{'description'};
!       $line{isbn} = $bibitems[$i]->{'isbn'};
!       push(@bibitemloop,\%line);
  }
! $template->param(bibitemloop =>address@hidden);
  
  
! #my $notesinput=$input->textfield(-name=>'Notes', 
-default=>$data->{'bnotes'}, -size=>20);
! $template->param(bnotes=>$data->{'bnotes'});
  
! $template->param(itemtype => $data->{'itemtype'});
  
! $template->param(url => $data->{'url'});
! $template->param(classification => $data->{'classification'},
!                                                               dewey => $dewey,
!                                                               subclass => 
$data->{'subclass'},
!                                                               publishercode 
=> $data->{'publishercode'},
!                                                               place => 
$data->{'place'},
!                                                               isbn => 
$data->{'isbn'},
!                                                               publicationyear 
=> $data->{'publicationyear'},
!                                                               pages => 
$data->{'pages'},
!                                                               illustration => 
$data->{'illustration'},
!                                                               volumeddesc => 
$data->{'volumeddesc'},
!                                                               size => 
$data->{'size'},
!                                                               biblionumber => 
$data->{'biblionumber'},
!                                                               
biblioitemnumber => $data->{'biblioitemnumber'});
  
  my (@items)=itemissues($data->{'biblioitemnumber'});
  #print @items;
+ my @itemloop;
  my address@hidden;
  for (my $i=0;$i<$count;$i++){
!       my %line;
!       $items[$i]->{'datelastseen'} = 
slashifyDate($items[$i]->{'datelastseen'});
!       $line{barcode}=$items[$i]->{'barcode'};
!       $line{itemnumber}=$items[$i]->{'itemnumber'};
!       $line{biblionumber}=$data->{'biblionumber'};
!       $line{biblioitemnumber}=$data->{'biblioitemnumber'};
!       $line{holdingbranch}=$items[$i]->{'holdingbranch'};
!       $line{datelastseen}=$items[$i]->{'datelastseen'};
!       push(@itemloop,\%line);
  }
! $template->param(itemloop => address@hidden);
! print "Content-Type: text/html\n\n", $template->output;