[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 {