- Koha-devel - lists.koha-community.org

CVS: koha/C4 BookShelves.pm,1.1,1.2
by Steve Tonnesen 08 Feb '01

08 Feb '01

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv24927/koha/C4 Modified Files: BookShelves.pm Log Message: Added header and log substition variables Index: BookShelves.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/BookShelves.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** BookShelves.pm 2001/02/07 20:27:17 1.1 --- BookShelves.pm 2001/02/07 23:47:43 1.2 *************** *** 4,7 **** --- 4,10 ---- # $Header$ # + # + # Change log is at the bottom of the file + # #requires DBI.pm to be installed *************** *** 140,143 **** --- 143,149 ---- # # $Log$ + # Revision 1.2 2001/02/07 23:47:43 tonnesen + # Added header and log substition variables + # # Revision 1.1 2001/02/07 20:27:17 tonnesen # Start of code to implement virtual bookshelves in Koha.

1 0

CVS: koha/C4 BookShelves.pm,NONE,1.1
by Steve Tonnesen 07 Feb '01

07 Feb '01

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv31873/koha/C4 Added Files: BookShelves.pm Log Message: Start of code to implement virtual bookshelves in Koha. --- NEW FILE --- package C4::BookShelves; #asummes C4/BookShelves # # $Header: /cvsroot/koha/koha/C4/BookShelves.pm,v 1.1 2001/02/07 20:27:17 tonnesen Exp $ # #requires DBI.pm to be installed use strict; require Exporter; use DBI; use C4::Database; use C4::Circulation::Circ2; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking $VERSION = 0.01; @ISA = qw(Exporter); @EXPORT = qw(&GetShelfList &GetShelfContents &AddToShelf &RemoveFromShelf &AddShelf &RemoveShelf); sub AddShelf { } sub RemoveShelf { } %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], # your exported package globals go here, # as well as any optionally exported functions @EXPORT_OK = qw($Var1 %Hashit); # non-exported package globals go here use vars qw(@more $stuff); # initalize package globals, first exported ones my $Var1 = ''; my %Hashit = (); # then the others (which are still accessible as $Some::Module::stuff) my $stuff = ''; my @more = (); # all file-scoped lexicals must be created before # the functions below that use them. # file-private lexicals go here my $priv_var = ''; my %secret_hash = (); # here's a file-private function as a closure, # callable as &$priv_func; it cannot be prototyped. my $priv_func = sub { # stuff goes here. }; # make all your functions, whether exported or not; my $dbh=C4Connect(); sub GetShelfList { my $sth=$dbh->prepare("select shelfnumber,shelfname from bookshelf"); $sth->execute; my %shelflist; while (my ($shelfnumber, $shelfname) = $sth->fetchrow) { my $sti=$dbh->prepare("select count(*) from shelfcontents where shelfnumber=$shelfnumber"); $sti->execute; my ($count) = $sti->fetchrow; $shelflist{$shelfnumber}->{'shelfname'}=$shelfname; $shelflist{$shelfnumber}->{'count'}=$count; } return(\%shelflist); } sub GetShelfContents { my ($env, $shelfnumber) = @_; my @itemlist; my $sth=$dbh->prepare("select itemnumber from shelfcontents where shelfnumber=$shelfnumber order by itemnumber"); $sth->execute; while (my ($itemnumber) = $sth->fetchrow) { my ($item) = getiteminformation($env, $itemnumber, 0); push (@itemlist, $item); } return (\@itemlist); } sub AddToShelf { my ($env, $itemnumber, $shelfnumber) = @_; my $sth=$dbh->prepare("select * from shelfcontents where shelfnumber=$shelfnumber and itemnumber=$itemnumber"); $sth->execute; if ($sth->rows) { # already on shelf } else { $sth=$dbh->prepare("insert into shelfcontents (shelfnumber, itemnumber, flags) values ($shelfnumber, $itemnumber, 0)"); $sth->execute; } } sub RemoveFromShelf { my ($env, $itemnumber, $shelfnumber) = @_; my $sth=$dbh->prepare("delete from shelfcontents where shelfnumber=$shelfnumber and itemnumber=$itemnumber"); $sth->execute; } sub AddShelf { my ($env, $shelfname) = @_; my $q_shelfname=$dbh->quote($shelfname); my $sth=$dbh->prepare("select * from bookshelf where shelfname=$q_shelfname"); $sth->execute; if ($sth->rows) { return(0, "Shelf \"$shelfname\" already exists"); } else { $sth=$dbh->prepare("insert into bookshelf (shelfname) values ($q_shelfname)"); $sth->execute; return (1, "Done"); } } sub RemoveShelf { my ($env, $shelfnumber) = @_; my $sth=$dbh->prepare("select count(*) from shelfcontents where shelfnumber=$shelfnumber"); $sth->execute; my ($count)=$sth->fetchrow; if ($count) { return (0, "Shelf has $count items on it"); } else { $sth=$dbh->prepare("delete from bookshelf where shelfnumber=$shelfnumber"); $sth->execute; return (1, "Done"); } } END { } # module clean-up code here (global destructor) # # $Log: BookShelves.pm,v $ # Revision 1.1 2001/02/07 20:27:17 tonnesen # Start of code to implement virtual bookshelves in Koha. # #

1 0

CVS: koha shelves.pl,NONE,1.1
by Steve Tonnesen 07 Feb '01

07 Feb '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv31873/koha Added Files: shelves.pl Log Message: Start of code to implement virtual bookshelves in Koha. --- NEW FILE --- #!/usr/bin/perl #script to provide bookshelf management # # $Header: /cvsroot/koha/koha/shelves.pl,v 1.1 2001/02/07 20:27:16 tonnesen Exp $ # use strict; use C4::Search; use CGI; use C4::Output; use C4::BookShelves; use C4::Circulation::Circ2; my $env; my $query = new CGI; print $query->header; my $headerbackgroundcolor='#663266'; my $circbackgroundcolor='#555555'; my $circbackgroundcolor='#550000'; my $linecolor1='#bbbbbb'; my $linecolor2='#dddddd'; print startpage(); print startmenu('catalogue'); my ($shelflist) = GetShelfList(); if ($query->param('modifyshelfcontents')) { my $shelfnumber=$query->param('shelfnumber'); my $barcode=$query->param('addbarcode'); my ($item) = getiteminformation($env, 0, $barcode); AddToShelf($env, $item->{'itemnumber'}, $shelfnumber); foreach ($query->param) { if (/REM-(\d*)/) { my $itemnumber=$1; RemoveFromShelf($env, $itemnumber, $shelfnumber); } } } SWITCH: { if ($query->param('viewshelf')) { viewshelf($query->param('viewshelf')); last SWITCH;} print << "EOF"; <center> <table border=0 cellpadding=4 cellspacing=0> <tr><td bgcolor=$headerbackgroundcolor> <table border=0 cellpadding=5 cellspacing=0 width=100%> <tr><th bgcolor=$headerbackgroundcolor> <font color=white>Shelf List</font> </th></tr> </table> </td></tr> EOF my $color=''; foreach (sort keys %$shelflist) { ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1); print "<tr><td bgcolor=$color><a href=shelves.pl?viewshelf=$_>$shelflist->{$_}->{'shelfname'} ($shelflist->{$_}->{'count'} books)</a></td></tr>\n"; } print "</table>\n"; } sub viewshelf { my $shelfnumber=shift; my ($itemlist) = GetShelfContents($env, $shelfnumber); my $item=''; print << "EOF"; <center> <form> <a href=shelves.pl>Shelf List</a><p> <table border=0 cellpadding=0 cellspacing=0> <tr><td colspan=7> <table> <tr><td>Add a book by barcode:</td><td><input name=addbarcode></td></tr> </table> <br> <table border=0 cellpadding=5 cellspacing=0 width=100%> <tr><th bgcolor=$headerbackgroundcolor> <font color=white>Contents of $shelflist->{$shelfnumber}->{'shelfname'} shelf</font> </th></tr> </table> </td></tr> EOF my $color=''; foreach $item (sort {$a->{'barcode'} cmp $b->{'barcode'}} @$itemlist) { ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1); print << "EOF"; <tr> <td bgcolor=$color><input type=checkbox name=REM-$item->{'itemnumber'}></td> <td bgcolor=$color width=10 align=center><img src=/images/blankdot.gif></td> <td bgcolor=$color>$item->{'barcode'}</td> <td bgcolor=$color width=10 align=center><img src=/images/blankdot.gif></td> <td bgcolor=$color>$item->{'title'}</td> <td bgcolor=$color width=10 align=center><img src=/images/blankdot.gif></td> <td bgcolor=$color>$item->{'author'}</td> </tr> EOF } print << "EOF"; </table> <br> <input type=hidden name=shelfnumber value=$shelfnumber> <input type=hidden name=modifyshelfcontents value=1> <input type=hidden name=viewshelf value=$shelfnumber> <input type=submit value="Modify Shelf List"> </form> EOF } # # $Log: shelves.pl,v $ # Revision 1.1 2001/02/07 20:27:16 tonnesen # Start of code to implement virtual bookshelves in Koha. # # #

1 0

CVS: koha-html/intranet-html index.html,1.1.1.1,1.2
by Steve Tonnesen 07 Feb '01

07 Feb '01

Update of /cvsroot/koha/koha-html/intranet-html In directory usw-pr-cvs1:/tmp/cvs-serv11687/koha-html/intranet-html Modified Files: index.html Log Message: Added circulation module to main librarian page. Index: index.html =================================================================== RCS file: /cvsroot/koha/koha-html/intranet-html/index.html,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** index.html 2001/02/04 20:52:45 1.1.1.1 --- index.html 2001/02/07 18:05:46 1.2 *************** *** 25,28 **** --- 25,30 ---- reports=new Image; reports.src ="/images/front-mouseover-reports.gif" + circulation=new Image; + circulation.src ="/images/front-mouseover-circulation.gif" } //--> *************** *** 52,57 **** <tr valign=top > ! <td background=" "><img src="images/holder.gif" width=236 height=42 alt=" " hspace=0 vspace=0 ></td> <td background=" "><img src="images/holder.gif" width=25 height=42 alt=" " hspace=0 vspace=0></td> --- 54,61 ---- <tr valign=top > ! <td background=" "><img src="images/holder.gif" width=186 height=42 alt=" " hspace=0 vspace=0 ></td> + <td background=" "><img src="images/holder.gif" width=30 height=42 + alt=" " hspace=0 vspace=0 ></td> <td background=" "><img src="images/holder.gif" width=25 height=42 alt=" " hspace=0 vspace=0></td> *************** *** 71,84 **** <tr valign=top > ! <td background=" " colspan=2><img src="images/holder.gif" width=1 height=1 hspace=0 vspace=0></td> ! <td background=" " colspan=4><a href="/catalogue/" onMouseOver="if(document.images)document.search.src='images/front-mouseover-search.gif'" onMouseOut="if(document.images)document.search.src='images/front-search.gif'"><img src="images/front-search.gif" width=320 height=37 name="search" hspace=0 vspace=0 border=0></a></td> - </tr> <FORM ACTION="/cgi-bin/koha/search.pl" method=post> <tr valign=top > ! <td background=" " rowspan=3 align="right" colspan=3><img src="images/holder.gif" width=1 height=35 alt=" " hspace=0 vspace=0><br> --- 75,87 ---- <tr valign=top > ! <td background=" " colspan=3><img src="images/holder.gif" width=1 height=1 hspace=0 vspace=0></td> ! <td background=" " colspan=4><a href="/catalogue/" onMouseOver="if(document.images)document.search.src='images/front-mouseover-search.gif'" onMouseOut="if(document.images)document.search.src='images/front-search.gif'"><img src="images/front-search.gif" width=320 height=37 name="search" hspace=0 vspace=0 border=0></a></td> </tr> <FORM ACTION="/cgi-bin/koha/search.pl" method=post> <tr valign=top > ! <td background=" " rowspan=3 align="right" colspan=4><img src="images/holder.gif" width=1 height=35 alt=" " hspace=0 vspace=0><br> *************** *** 129,133 **** <td></td> <td></td> ! <td background=" " colspan=4><A href="/acquisitions/" onMouseOver="if(document.images)document.acquisitions.src='images/front-mouseover-acquisitions.gif'" onMouseOut="if(document.images)document.acquisitions.src='images/front-acquisitions.gif'"><img src="images/front-acquisitions.gif" width=320 height=36 name="acquisitions" hspace=0 vspace=0 border=0></a><br> <img src="images/holder.gif" width=1 height=12 --- 132,137 ---- <td></td> <td></td> ! <td></td> ! <td background=" " colspan=4><A href="/cgi-bin/koha/loadmodules.pl?module=acquisitions" onMouseOver="if(document.images)document.acquisitions.src='images/front-mouseover-acquisitions.gif'" onMouseOut="if(document.images)document.acquisitions.src='images/front-acquisitions.gif'"><img src="images/front-acquisitions.gif" width=320 height=36 name="acquisitions" hspace=0 vspace=0 border=0></a><br> <img src="images/holder.gif" width=1 height=12 *************** *** 144,149 **** <td></td> <td background=" " colspan=5> <A href="/reports/" onMouseOver="if(document.images)document.reports.src='images/front-mouseover-reports.gif'" onMouseOut="if(document.images)document.reports.src='images/front-reports.gif'"><img src="images/front-reports.gif" width=346 height=37 name="reports" ! hspace=0 vspace=0 border=0></a><p> <br> <font size=2 face="arial,helvetica" > --- 148,167 ---- <td></td> + <td></td> <td background=" " colspan=5> <A href="/reports/" onMouseOver="if(document.images)document.reports.src='images/front-mouseover-reports.gif'" onMouseOut="if(document.images)document.reports.src='images/front-reports.gif'"><img src="images/front-reports.gif" width=346 height=37 name="reports" ! hspace=0 vspace=0 border=0></a><br> ! <img src="images/holder.gif" width=1 height=12 ! alt=" " hspace=0 vspace=0 ></td> ! ! ! </tr> ! !  ! ! ! <tr valign=top > ! ! <td></td><td background=" " colspan=5> <A href="/cgi-bin/koha/circ/circulation.pl" onMouseOver="if(document.images)document.circulation.src='images/front-mouseover-circulation.gif'" onMouseOut="if(document.images)document.circulation.src='images/front-circulation.gif'"><img src="images/front-circulation.gif" width=346 height=37 name="circulation" ! hspace=0 vspace=0 border=0></a> <br> <font size=2 face="arial,helvetica" >

3 2

CVS: koha-html/intranet-html/images blankdot.gif,NONE,1.1
by Steve Tonnesen 06 Feb '01

06 Feb '01

Update of /cvsroot/koha/koha-html/intranet-html/images In directory usw-pr-cvs1:/tmp/cvs-serv4198/koha-html/intranet-html/images Added Files: blankdot.gif Log Message: Blank dot gif used for spacing tables in circulation module --- NEW FILE --- GIF89a

1 0

test
by Chris Cormack 05 Feb '01

05 Feb '01

test

1 0