[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.56,1.57

[Henri-Damien LAURENT]

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

Modified Files:
        addbiblio.pl 
Log Message:
Adding Log Facility.
Needs Two Update in database...
On more table (action_logs)
And One more syspref Activate_Log, with On|Off values.
Maintainance has been sweeped of previous Log functions
addbiblio.pl contains a sample of code using Log.pm
To be generalized to Authorities, acquisitions, members soon.



Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.56
retrieving revision 1.57
diff -C2 -r1.56 -r1.57
*** addbiblio.pl        20 Jun 2005 13:16:10 -0000      1.56
--- addbiblio.pl        15 Jul 2005 16:10:31 -0000      1.57
***************
*** 28,31 ****
--- 28,32 ----
  use C4::SearchMarc; # also includes Biblio.pm, SearchMarc is used to 
FindDuplicate
  use C4::Context;
+ use C4::Log;
  use C4::Koha; # XXX subfield_is_koha_internal_p
  use HTML::Template;
***************
*** 429,434 ****
--- 430,437 ----
                        NEWmodbiblioframework($dbh,$bibid,$frameworkcode);
                        NEWmodbiblio($dbh,$record,$bibid,$frameworkcode);
+                       
logaction($loggedinuser,"acqui.simple","modify","biblionumber 
:$oldbiblionumber\nrecord : ".$record->as_formatted) if (logstatus);
                } else {
                        ($bibid,$oldbibnum,$oldbibitemnum) = 
NEWnewbiblio($dbh,$record,$frameworkcode);
+                       
logaction($loggedinuser,"acqui.simple","add","biblionumber :$oldbibnum\nrecord 
: ".$record->as_formatted) if (logstatus);
                }
        # now, redirect to additem page
***************
*** 483,489 ****
  
#------------------------------------------------------------------------------------------------------------------------------
        &NEWdelbiblio($dbh,$bibid);
        print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; 
URL=/cgi-bin/koha/search.marc/search.pl?type=intranet\"></html>";
        exit;
! 
#------------------------------------------------------------------------------------------------------------------------------
  
#------------------------------------------------------------------------------------------------------------------------------
  } else {
--- 486,494 ----
  
#------------------------------------------------------------------------------------------------------------------------------
        &NEWdelbiblio($dbh,$bibid);
+       logaction($loggedinuser,"acqui.simple","del","biblionumber :$bibid") if 
(logstatus);
+       
        print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; 
URL=/cgi-bin/koha/search.marc/search.pl?type=intranet\"></html>";
        exit;
! 
#------------------------------------------------------------------------------------------------------------------------------logaction($loggedinuser,"acqui.simple","add","biblionumber
 :$oldbibnum");
  
#------------------------------------------------------------------------------------------------------------------------------
  } else {