-if ($op eq 'add_form') {
- #---- if primkey exists, it's a modify action, so read values to modify...
- my $data;
- if ($itemtype) {
- my $dbh = &C4Connect;
- my $sth=$dbh->prepare("select itemtype,description,loanlength,renewalsallowed,rentalcharge from itemtypes where itemtype='$itemtype'");
- $sth->execute;
- $data=$sth->fetchrow_hashref;
- $sth->finish;
- }
- print <<printend
- <script>
- /////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- function isNotNull(f,noalert) {
- if (f.value.length ==0) {
- return false;
- }
- return true;
- }
- /////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- function toUC(f) {
- var x=f.value.toUpperCase();
- f.value=x;
- return true;
- }
- /////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- function isNum(v,maybenull) {
- var n = new Number(v.value);
- if (isNaN(n)) {
- return false;
- }
- if (maybenull==0 && v.value=='') {
- return false;
- }
- return true;
- }
- /////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- function isDate(f) {
- var t = Date.parse(f.value);
- if (isNaN(t)) {
- return false;
- }
- }
- /////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- function Check(f) {
- var ok=1;
- var _alertString="";
- var alertString2;
- if (f.itemtype.value.length==0) {
- _alertString += "- itemtype missing\\n";
- }
- if (!(isNotNull(window.document.Aform.description,1))) {
- _alertString += "- description missing\\n";
- }
- if (!isNum(f.loanlength,0)) {
- _alertString += "- loan length is not a number\\n";
- }
- if (!isNum(f.rentalcharge,0)) {
- _alertString += "- loan length is not a number\\n";
- }
- if (_alertString.length==0) {
- document.Aform.submit();
- } else {
- alertString2 = "Form not submitted because of the following problem(s)\\n";
- alertString2 += "------------------------------------------------------------------------------------\\n\\n";
- alertString2 += _alertString;
- alert(alertString2);
- }
- }
- </SCRIPT>
-printend
-;#/
- if ($itemtype) {
- print "<h1>Modify item type</h1>";
- } else {
- print "<h1>Add item type</h1>";
- }
- print "<form action='$script_name' name=Aform method=post>";
- print "<input type=hidden name=op value='add_validate'>";
- print "<input type=hidden name=checked value=0>";
- print "<table>";
- if ($itemtype) {
- print "<tr><td>Item type</td><td><input type=hidden name=itemtype value=$itemtype>$itemtype</td></tr>";
- } else {
- print "<tr><td>Item type</td><td><input type=text name=itemtype size=5 maxlength=3 onBlur=toUC(this)></td></tr>";
- }
- print "<tr><td>Description</td><td><input type=text name=description size=40 maxlength=80 value='$data->{'description'}'> </td></tr>";
- print "<tr><td>loan length</td><td><input type=text name=loanlength value='$data->{'loanlength'}'></td></tr>";
- if ($data->{'renewalsallowed'} eq 1) {
- print "<tr><td>Renewals allowed</td><td><input type=checkbox name=renewalsallowed checked value=1></td></tr>";
- } else {
- print "<tr><td>Renewals allowed</td><td><input type=checkbox name=renewalsallowed value=1></td></tr>";
- }
-# print "<tr><td>Renewals allowed</td><td><input type=text name=renewalsallowed value='$data->{'renewalsallowed'}'></td></tr>";
- print "<tr><td>Rental charge</td><td><input type=text name=rentalcharge value='$data->{'rentalcharge'}'></td></tr>";
- print "<tr><td> </td><td><INPUT type=button value='OK' onClick='Check(this.form)'></td></tr>";
-print "</table>";
- print "</form>";
-;
- # END $OP eq ADD_FORM
+if ( $op eq 'add_form' ) {
+ #---- if primkey exists, it's a modify action, so read values to modify...
+ my $data;
+ if ($itemtype) {
+ my $sth = $dbh->prepare("select * from itemtypes where itemtype=?");
+ $sth->execute($itemtype);
+ $data = $sth->fetchrow_hashref;
+ }
+
+ my $imagesets = C4::Koha::getImageSets( checked => $data->{'imageurl'} );
+
+ my $remote_image = undef;
+ if ( defined $data->{imageurl} and $data->{imageurl} =~ /^http/i ) {
+ $remote_image = $data->{imageurl};
+ }
+
+ $template->param(
+ itemtype => $itemtype,
+ description => $data->{'description'},
+ rentalcharge => sprintf( "%.2f", $data->{'rentalcharge'} ),
+ notforloan => $data->{'notforloan'},
+ imageurl => $data->{'imageurl'},
+ template => C4::Context->preference('template'),
+ summary => $data->{summary},
+ checkinmsg => $data->{'checkinmsg'},
+ checkinmsgtype => $data->{'checkinmsgtype'},
+ imagesets => $imagesets,
+ remote_image => $remote_image,
+ );
+
+ # END $OP eq ADD_FORM