[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.52.2.11,1.52.2.12

[Henri-Damien LAURENT]

Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29531/acqui.simple

Modified Files:
      Tag: rel_2_2
        addbiblio.pl 
Log Message:
Adding Log Facility for Biblio management.
Note that a javascript will soon be written for action type management and that 
viewlog.pl is fully functionnal (tested) only for Catalogue.


Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.52.2.11
retrieving revision 1.52.2.12
diff -C2 -r1.52.2.11 -r1.52.2.12
*** addbiblio.pl        8 Aug 2005 09:18:57 -0000       1.52.2.11
--- addbiblio.pl        24 Aug 2005 10:44:53 -0000      1.52.2.12
***************
*** 22,25 ****
--- 22,26 ----
  use strict;
  use CGI;
+ use C4::Log;
  use C4::Auth;
  use C4::Output;
***************
*** 442,447 ****
--- 443,450 ----
                        NEWmodbiblioframework($dbh,$bibid,$frameworkcode);
                        NEWmodbiblio($dbh,$record,$bibid,$frameworkcode);
+                       
logaction($loggedinuser,"acqui.simple","modify",$bibid,"record : 
".$record->as_formatted) if (logstatus());
                } else {
                        ($bibid,$oldbibnum,$oldbibitemnum) = 
NEWnewbiblio($dbh,$record,$frameworkcode);
+                       
logaction($loggedinuser,"acqui.simple","add",$bibid,"record : 
".$record->as_formatted) if (logstatus());
                }
        # now, redirect to additem page