[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>";