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

[Henri-Damien LAURENT]

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

Modified Files:
	addbiblio.pl 
Log Message:
Adding an object field to action_logs.
+ Minor Correction to updatedatabase
Changing Activate_Log from choice to YesNo Variable.


Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.57
retrieving revision 1.58
diff -C2 -r1.57 -r1.58
*** addbiblio.pl	15 Jul 2005 16:10:31 -0000	1.57
--- addbiblio.pl	19 Jul 2005 16:48:15 -0000	1.58
***************
*** 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
--- 430,437 ----
  			NEWmodbiblioframework($dbh,$bibid,$frameworkcode);
  			NEWmodbiblio($dbh,$record,$bibid,$frameworkcode);
! 			logaction($loggedinuser,"acqui.simple","modify",$oldbiblionumber,"record : ".$record->as_formatted) if (C4::Context->preference("Activate_Log"));
  		} else {
  			($bibid,$oldbibnum,$oldbibitemnum) = NEWnewbiblio($dbh,$record,$frameworkcode);
! 			logaction($loggedinuser,"acqui.simple","add",$oldbibnum,"record : ".$record->as_formatted) if (C4::Context->preference("Activate_Log"));
  		}
  	# now, redirect to additem page
***************
*** 486,490 ****
  #------------------------------------------------------------------------------------------------------------------------------
  	&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>";
--- 486,490 ----
  #------------------------------------------------------------------------------------------------------------------------------
  	&NEWdelbiblio($dbh,$bibid);
! 	logaction($loggedinuser,"acqui.simple","del",$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>";