|
Lines 18-28
Link Here
|
| 18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
use CGI qw ( -utf8 ); |
21 |
use CGI qw ( -utf8 ); |
| 22 |
use C4::Auth qw( get_template_and_user ); |
22 |
|
|
|
23 |
use C4::Auth qw( get_template_and_user ); |
| 24 |
use C4::Biblio qw( GetMarcFromKohaField ); |
| 23 |
use C4::Context; |
25 |
use C4::Context; |
| 24 |
use C4::Output qw( output_html_with_http_headers ); |
26 |
use C4::Output qw( output_html_with_http_headers ); |
| 25 |
use C4::Context; |
|
|
| 26 |
|
27 |
|
| 27 |
use Koha::Caches; |
28 |
use Koha::Caches; |
| 28 |
use Koha::AuthorisedValues; |
29 |
use Koha::AuthorisedValues; |
|
Lines 230-235
if ( $op eq 'add_form' ) {
Link Here
|
| 230 |
} |
231 |
} |
| 231 |
} |
232 |
} |
| 232 |
|
233 |
|
|
|
234 |
my ( $items_tag, $items_subtag ) = GetMarcFromKohaField('items.itemnumber'); |
| 235 |
$template->param( items_tag => $items_tag ); |
| 236 |
|
| 233 |
# here, $op can be unset or set to "cud-framework_create_confirm". |
237 |
# here, $op can be unset or set to "cud-framework_create_confirm". |
| 234 |
if ( $searchfield ne '' ) { |
238 |
if ( $searchfield ne '' ) { |
| 235 |
$template->param( searchfield => $searchfield ); |
239 |
$template->param( searchfield => $searchfield ); |